Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- fit1 <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosis)
- plotcp(fit1)
- fit2 <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosis)
- plotcp(fit2)
- plotcp(fit2)
- plotcp(fit2)
- plotcp(fit2)
- set.seed(10020101)
- fit1 <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosis)
- plotcp(fit1)
- set.seed(10020101)
- fit2 <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosis)
- plotcp(fit2)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement