Nothing
rrfa = function(dat, yvar = ncol(dat), tr, te, mispct, number.trees) {
rdms = function(dt, pct, kpc) {
nr = nrow(dt)
nc = ncol(dt)
nd = dt
nm = floor(nr * pct)
for (z in 1:nc) {
if (!(z %in% kpc))
nd[sample(nr, nm, replace = F), z] = NA
}
mfix(nd, 1)
}
fin = matrix(0, length(te), number.trees)
for (i in 1:number.trees) {
pmr = rdms(dat, mispct, yvar)
rf = randomForest(pmr[tr, -yvar], pmr[tr, yvar], ntree = 1)
fin[, i] = as.numeric(predict(rf, pmr[te, -yvar])) - 1
}
list(pred = fin)
}
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.