R/MeanAobj.SGB.R

In SGB: Simplicial Generalized Beta Regression

Defines functions MeanAobj.SGB

Documented in MeanAobj.SGB

MeanAobj.SGB <-
function(obj) {
    x <- obj[["par"]]
    shape1 <- x[1]
    scale <- obj[["scale"]]
    D <- NCOL(scale)
    npar <- length(x)
    n1 <- npar-D+1
    shape2 <- x[n1:npar]
    return(MeanA.SGB(shape1,scale,shape2))
}

Try the SGB package in your browser