R/classical.formula.R

In wasabi1989/MiscPsycho: Miscellaneous Psychometric Analyses

classical.formula <- function(formula, data, na.action, subset, designSE = FALSE, group, na.rm = TRUE, use = "everything", ...){
	mf <- match.call(expand.dots = FALSE)
    m <- match(c("formula", "data", "na.action", "subset", "group"), names(mf), 0L)
    mf <- mf[c(1L, m)]
    mf$drop.unused.levels <- TRUE
    mf[[1L]] <- as.name("model.frame")
    mf <- eval(mf, parent.frame())
	mt <- attr(mf, "terms")
	N <- ncol(mf)
	if(designSE==FALSE)	data <- mf[, 1:(N-1)]
	data
	result <- classical.default(data, designSE, group, ...)
	result$call <- match.call()
	result$formula <- formula
	result
}