Displaying 1 result from an estimated 1 matches for "gdis".
Did you mean:
dis
2011 Jul 07
0
Can't reproduce ada example
..., ncol=p)
y <- as.factor(c(-1,1)[as.numeric(apply(x^2, 1, sum) > 9.34) + 1])
indtrain <- sample(1:n, 2000, FALSE)
train <- data.frame(y=y[indtrain], x[indtrain,])
test <- data.frame(y=y[-indtrain], x[-indtrain,])
control <- rpart.control(cp = -1,minsplit = 0,xval = 0,maxdepth = 1)
gdis <- ada(y~., data = train, iter = 400, bag.frac = 1, nu = 1,
control = control, test.x = test[,-1], test.y = test[,1])
gdis
plot(gdis, TRUE, TRUE)
summary(gdis, n.iter = 398)
My problem is that my confusion matrix, testing results and diagnostic
plots differ from what is given in the paper. My...