createModel = function(){
testData = createData(family = poisson(), overdispersion = 1,
randomEffectVariance = 0)
fittedModel <- glm(observedResponse ~ Environment1, data = testData, family = poisson())
return(fittedModel)
}
a = function(m){
testUniformity(m, plot = FALSE)$p.value
}
b = function(m){
testDispersion(m, plot = FALSE)$p.value
}
c = function(m){
testDispersion(m, plot = FALSE, type = "PearsonChisq")$p.value
}
evaluationFunctions = list(a,b, c)
benchmarkRuntime(createModel, evaluationFunctions, 2)
Run the code above in your browser using DataLab