R/mtest.gv.R

Defines functions mtest.gv

Documented in mtest.gv

mtest.gv <-
function(gv) {
    # test if 
    if (!('gv' %in% class(gv))) stop("Object must be of class 'gv'")

    if (length(gv$model) == 1) {
        if (is.na(gv$model)) {
            mtest <- FALSE
        } else {
            stop("Model in 'gv' has no parameters")
        }
    } else if (length(gv$model) == 4) {
        mtest <- TRUE
    } else {
        stop("Wrong number of model parameters. Three were expected.")
    }
    mtest
}

Try the phylin package in your browser

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

phylin documentation built on Dec. 12, 2019, 5:07 p.m.