About mpTune:
survival support and test (remember that some prediciton gives risk instead of survival time!)
```r mpTune.default( x, y, weights, modelList = list(RF = 'rf', balancedRF = 'rf', 'gbm'), modelControl = list( balancedRF = list(sampsize = quote(rep(min(table(y)),2))), gbm = list(verbose = TRUE)), preProcessControl = list(FUN = PCA, nPC = c(2,3,4), ...), tuningControl = list( tuneGrid = list(rf = ....), FUN = makeTuneGrid, gridLength = 5, randomizedLength = 20, # other parameter for makTuneGrid ...), samplingControl = list( FUN = createCVFolds, args = ..., trainIndex = NULL, testIndex = NULL, returnSample = TRUE), performanceControl = list( FUN = defaultSummary, args = ..., metric = NA, targetMetric = 'AUC'), parallelControl = list(backend = 'doMC', batchSize = 10), classProbs = TRUE, survivalPrediction = 'risk', returnData = TRUE, returnPrediction = TRUE, seeds = NA ); mpTune.data(data, ...)
lazyML(data) %>% preProcess() %>% sampling() %>% modelBlender(preProcess(), modelList, modelControl) %>% tuning(, performance()) %>% bestFit %>% run();
```
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.