R/ModeA.SGB.R

In SGB: Simplicial Generalized Beta Regression

Defines functions ModeA.SGB

Documented in ModeA.SGB

ModeA.SGB <-
function(shape1,scale,shape2){
    modeA <- scale%*%diag(shape2^(1/shape1))
    colnames(modeA) <- colnames(scale)
    return(modeA/rowSums(modeA))
  }

Try the SGB package in your browser