```
print.logicBagg<-function(x,...){
type<-x$type
if(type==9)
type<-4
cat("Bagged Logic Regression\n\n")
cat("Number of Iterations: ",length(x$logreg.model),"\n")
cat("Sampling Method: ",x$sampling,"\n")
cat("Logic Regression Type:",switch(type,"Classification","Linear Regression",
"Logistic Regression","Multinomial"),"\n")
cat("Search Algorithm: ",ifelse(x$fast,"Stepwise Greedy Selection",
"Simulated Annealing"),"\n")
if(x$type%in%c(2,3,9))
cat("Number of Trees: ",if(x$nleaves>=10) "",x$ntrees,"\n")
cat("Max. Number of Leaves:",x$nleaves,"\n")
if(!is.null(x$oob.error)){
if(x$type==2)
cat("\n","OOB RMSPE: ",round(x$oob.error,3),"\n",sep="")
else
cat("\n","OOB Error Rate: ",100*round(x$oob.error,4),"%","\n",sep="")
}
}
```

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.