Comment tailler un arbre dans la R?

Je suis en train de faire un classement à l'aide de rpart dans R. Le modèle d'arbre est formé par:

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

La précision de ce modèle d'arbre est:

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

J'ai lu un tutoriel de tailler l'arbre par validation croisée:

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

Le taux d'exactitude de l'arbre élagué est toujours le même:

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

Je veux savoir quel est le problème avec mon arbre élagué? Et comment puis-je tailler le modèle d'arbre à l'aide de la validation croisée dans la R? Merci.

OriginalL'auteur zfz | 2013-03-10