search for: kyphosisunevenweight

Displaying 1 result from an estimated 1 matches for "kyphosisunevenweight".

Did you mean: kyphosisunevenweights
2011 Dec 27
0
Using minsplit and unequal weights in rpart
...ghts <- 3 fitWeighted <- rpart(Kyphosis ~ Age + Number + Start, data=kyphosisWeighted, weights=myWeights, control=rpart.control(minsplit=15)) ## minsplit has to be adjusted for weights... plot(fitWeighted) text(fitWeighted, use.n=TRUE) # uneven weights don't works the same way kyphosisUnevenWeights <- rbind(kyphosis, kyphosis) kyphosisUnevenWeights$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(fitUneve...