R/meanModels.r

`meanModels` <-
function(modelShow, statistics=c("T","S")) {
 res           <- data.frame(MODEL = modelShow$MODEL, modelShow[,statistics])
 res           <- aggregate(res[,-1], list(MODEL=res$MODEL), mean, na.rm=TRUE)
 rownames(res) <- res$MODEL
 return(res[,-1])
 }

Try the irtProb package in your browser

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

irtProb documentation built on May 2, 2019, 1:30 p.m.