R/gibi-bf.R

Defines functions cleanModel analyzeModelList

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
}

Try the BayesFactors.gibi package in your browser

Any scripts or data that you put into this service are public.

BayesFactors.gibi documentation built on May 31, 2017, 1:43 a.m.