R Новое предсказание с деревом решений

Question

У меня есть этот набор данных:

"Density","bodyfat","Age","state"
1.0708,12.3,23,normal
1.0853,6.1,22,slim
1.0414,25.3,22,fat
1.0751,10.4,26,normal

Я написал этот код:

library(rpart)

set.seed(1234)
ind <- sample(2,nrow(mydata),replace=TRUE, prob= c(0.7,0.3))
trainData <- mydata[ind==1,]
testData <- mydata[ind==2,]

myFormula <- state ~ bodyfat
albero <- rpart(state ~ bodyfat)

newdata <- data.frame(Density=1.0515,bodyfat=11.1,Age=24)
newdata

predict(albero,newdata,type="class")

print(albero)

Этот код не работает, и я получаю эту ошибку 2:

albero <- rpart(state~bodyfat)

Ошибка в eval(expr,envir,enclos): объект "состояние" не найден

а также:

predict(albero,newdata,type="class")

Ошибка в match.arg(тип): "arg" должно быть одним из "отклик","узел","проб"