Displaying 1 result from an estimated 1 matches for "fituneven45".
Did you mean:
fituneven15
2011 Dec 27
0
Using minsplit and unequal weights in rpart
...phosisUnevenWeights$myWeights <- c(rep(1,length.out=nrow(kyphosis)),
rep(2,length.out=nrow(kyphosis)))
fitUneven15 <- rpart(Kyphosis ~ Age + Number + Start,
data=kyphosisUnevenWeights, weights=myWeights,
control=rpart.control(minsplit=15))
plot(fitUneven15)
text(fitUneven15, use.n=TRUE)
fitUneven45 <- rpart(Kyphosis ~ Age + Number + Start,
data=kyphosisUnevenWeights, weights=myWeights,
control=rpart.control(minsplit=45))
plot(fitUneven45)
text(fitUneven45, use.n=TRUE)
## 30 works, but seems like a special case
fitUneven30 <- rpart(Kyphosis ~ Age + Number + Start,
data=kyphosisUneve...