powered by
"print"(x, ...)
print.real_adaboost
fakedata <- data.frame( X=c(rnorm(100,0,1),rnorm(100,1,1)), Y=c(rep(0,100),rep(1,100) ) ) fakedata$Y <- factor(fakedata$Y) test_adaboost <- adaboost(Y~X, fakedata, 10) print(test_adaboost)
Run the code above in your browser using DataLab