R - Проблемы с узлами () для дерева partykit

Question

У меня такой же вопрос, как в

как получить все терминальные узлы - прогноз веса и ответа 'ctree' в r

Я хотел бы получить такой результат. Тем не менее, функция node ()- не работает должным образом в моем случае. И я не понимаю почему.

tree <- ctree(DV ~ IV, data = data)

nodes(tree, unique(where(tree))) 

Когда я запускаю его, я всегда получаю следующую ошибку:

Error in match.arg(data, choices = c("all", "organization", "endpoint",  : 
  'arg' must be NULL or a character vector

Что я могу сделать, чтобы заставить функцию работать?

Заранее большое спасибо!

Answer 1

Попробуйте использовать ctree функция party пакет:

library(party)
set.seed(1)
x <- rnorm(100)
y <- x+runif(100)
data <- data.frame(DV=y , IV=x)

tree <- party::ctree(DV ~ IV, data = data)
nodes(tree, unique(where(tree))) 

# [[1]]
# 3)*  weights = 19 

# [[2]]
# 6)*  weights = 26 

# [[3]]
# 9)*  weights = 19 

# [[4]]
# 8)*  weights = 19 

# [[5]]
# 5)*  weights = 17