R/wrongProb.formula.R

In wasabi1989/MiscPsycho: Miscellaneous Psychometric Analyses

wrongProb.formula <-
function(formula, data, na.action = NULL, subset, key, ...){
	mf <- match.call(expand.dots = FALSE)
    m <- match(c("formula", "data", "na.action", "subset"), 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")
	dat <- mf
	result <- wrongProb.default(dat, key, ...)
	result
}