
附上我的代码和一部分数据
crx.zip
(671 Bytes)
本附件包括:- crx.csv
- library(rpart)
- set.seed(1234)
- dtree <- rpart(X16 ~ ., data = crx.train,method="class",parms = list(split="information"))
- dtree$cptable
- plotcp(dtree)
- #结果#
- dtree$cptable
- CP nsplit rel error xerror xstd
- 1 0.62679426 0 1.00000000 1.0000000 0.05095591
- 2 0.22966507 1 0.37320574 0.7655502 0.04879034
- 3 0.05263158 2 0.14354067 0.5358852 0.04399610
- 4 0.02870813 3 0.09090909 0.5311005 0.04386268
- 5 0.01000000 5 0.03349282 0.5311005 0.04386268


雷达卡





京公网安备 11010802022788号







