Nothing
"maboost.formula" <-
function(formula, data,...,subset,na.action=na.rpart){
## m = match.call(expand.dots = FALSE)
##m[[1]] = as.name("model.frame")
##m$...=NULL
##m =eval(m,parent.frame())
m <- match.call(expand.dots = FALSE)
m$model <- m$method <- m$control <- NULL
m$x <- m$y <- m$parms <- m$... <- NULL
m$cost <- NULL
m$na.action <- na.action
m[[1]] <- as.name("model.frame")
m <- eval(m, parent.frame())
Terms = attr(m, "terms")
y = as.factor(model.extract(m,"response"))
if(class(y)!="factor") {
warning('Class variable should be pass as factor. It is now automatically converted to factor');
y=as.factor(y);
}
preds<-attr(attributes(m)$terms,"term.labels")
x<-as.data.frame(m[,!is.na(match(names(m),preds))])
res = maboost.default(x,y,...,na.action=na.action)
res$terms = Terms
cl = match.call()
cl[[1]] = as.name("maboost")
res$call = cl
res
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.