5

私は一生、rpartで混同行列を計算する方法を理解できません。

これが私がやったことです：

set.seed(12345)
UBANK_rand <- UBank[order(runif(1000)), ]
UBank_train <- UBank_rand[1:900, ]
UBank_test  <- UBank_rand[901:1000, ]


dim(UBank_train)
dim(UBank_test)

#Build the formula for the Decision Tree
UB_tree <- Personal.Loan ~ Experience + Age+ Income +ZIP.Code + Family + CCAvg + Education

#Building the Decision Tree from Test Data
UB_rpart <- rpart(UB_tree, data=UBank_train)

今、私は次のようなことをすると思います

table(predict(UB_rpart, UBank_test, UBank_Test$Default))

しかし、それは私に混同行列を与えていません。

4

2 に答える 2

-2

あなたが試すことができます

pred <- predict(UB_rpart, UB_test) confusionMatrix(pred, UB_test$Personal.Loan)

于 2016-09-21T09:33:01.413 に答える