Wie zu beschneiden eines Baumes in R?

Mache ich eine Klassifikation mittels rpart in R. Das Baum-Modell ist ausgebildet durch:

> tree <- rpart(activity ~ . , data=trainData)
> pData1 <- predict(tree, testData, type="class")

Die Genauigkeit für das Baum-Modell ist:

> sum(testData$activity==pData1)/length(pData1)
[1] 0.8094276

Lese ich tutorial zu beschneiden, den Baum durch cross-Validierung:

> ptree <- prune(tree,cp=tree$cptable[which.min(tree$cptable[,"xerror"]),"CP"])
> pData2 <- predict(ptree, testData, type="class")

Die Genauigkeit rate für den beschnittenen Baum ist immer noch der gleiche:

> sum(testData$activity==pData2)/length(pData2)
[1] 0.8094276

Ich will wissen, was ' s falsch mit meinem Baum beschnitten? Und wie kann ich den Rückschnitt des Baum-Modells mittels Kreuzvalidierung in R? Danke.

InformationsquelleAutor zfz | 2013-03-10

Schreibe einen Kommentar