R/codominant.default.R

Defines functions `codominant.default`

`codominant.default` <-
function(o)
{
 if (length(unique(o[!is.na(o)]))>3)
    stop("variable should have 3 levels max")
 else factor(o)
}

Try the SNPassoc package in your browser

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

SNPassoc documentation built on Dec. 28, 2022, 1:59 a.m.