Nothing
analyzeModelList <- function(modelList, data, activeAnalysis, globalProgress = NULL, singleProgress = NULL)
{
modelList = lapply(modelList, .cleanModel)
if(activeAnalysis=="oneWayAov"){
modelList = lapply(modelList, analysisOneWay, data = data, singleProgress = NULL)
}
return(modelList)
# increment progress?
}
.cleanModel <- function(model)
{
model$data <- NULL
model$out <- NULL
model$hasResults = FALSE
model$flag = NULL
model$error = NULL
}
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.