## Not run:
# require(golubEsets)
# data(Golub_Merge)
# array <- arrayEset(Golub_Merge, colBy = "ALL.AML", include = list("ALL", "AML"))
# array <- modFilter(array, 20, 16000, 500, 5) # pre-filter Golub ala Deb 2003
# array <- modTransform(array) # lg transform
# array <- modNormalize(array, c(1, 2)) # normalize gene and subject vectors
# ss <- ctrlSplitSet(func = "splitStratify", percent.include = 67, colBy = NULL)
# fs <- list(ctrlFeatureSelect(func = "fsStats", top = 0, how = "t.test"),
# ctrlFeatureSelect(func = "fsPrcomp", top = 50))
# gs <- ctrlGridSearch(func = "plGrid", how = "buildSVM", top = c(2, 3, 4), fold = 10,
# kernel = c("linear", "radial"), cost = 10^(-3:3), gamma = 10^(-3:3))
# boot <- plMonteCarlo(array, B = 3, ctrlSS = ss, ctrlFS = fs, ctrlGS = gs)
# ## End(Not run)
Run the code above in your browser using DataCamp Workspace