## Not run:
# library(golubEsets)
# data(Golub_Train)
#
# class.column <- "ALL.AML"
# Preprocessingfunctions <- c("varSel.highest.var")
# list.of.poss.parameter <- list(var.numbers = c(250,1000))
#
# Preprocessingfunctions <- c("identity")
# class.function <- "SVM.OVA.wrap"
# list.of.poss.parameter <- list(gamma = 6)
# plot.label <- "Samples"
#
# cross.outer <- 10
# cross.repeat <- 20
# cross.inner <- 5
#
# SVM.estimate <- MCRestimate(Golub_Train,
# class.column,
# classification.fun = class.function,
# thePreprocessingMethods = Preprocessingfunctions,
# poss.parameters = list.of.poss.parameter,
# cross.outer = cross.outer, cross.inner = cross.inner,
# cross.repeat = cross.repeat, plot.label = plot.label)
#
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace