R/translate.r

translate <- function(obj) {
        gamma <- coef(obj)
        sigma <- obj$scale
        beta <- -gamma/sigma
        scale <- sigma
        list(beta = beta, scale = 1/sigma)
}
isglobal-brge/CNVassoc documentation built on May 30, 2019, 9:48 p.m.