Dear all,
I implemented my own request for an automated 1 SE pruning in rpart with the
following command:
> test.pr2 <- prune(test, cp = max(test$cptable[test$cptable[,4]<
+
min(test$cptable[,4])+test$cptable[test$cptable[,4]==min(test$cptable[,4]),5
],1]))
where "test" is my rpart tree object
Cheers
Volker
P.S. (constructive) criticism welcome
Original request:
has anyone implemented a function that automates pruning rpart regression
trees according to the 1 SE rule? I searched the s-news archives but
couldn't find anything posted along these lines.
|