R/z[.snp.r

"[.snp"<-
function (x, ..., drop = FALSE)
{
    y <- NextMethod("[")
#    attr(y, "contrasts") <- attr(x, "contrasts")
#    attr(y, "levels") <- attr(x, "levels")
#    class(y) <- oldClass(x)
    attributes(y) <- attributes(x)
    if (drop)
        factor(y)
    else y
}

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.