R/STTtoShapeParameter.R

Defines functions STTtoShapeParameter

Documented in STTtoShapeParameter

STTtoShapeParameter <-
function(STT) {

        if(STT> 0.4) stop("only works for STT <= 0.4")
        f<-function(w,STT) abs(w-qgamma(1-STT,shape=w))
        out<-optimize(f,lower=0,upper=2,STT=STT)$minimum
        return(out)

}

Try the GSAgm package in your browser

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

GSAgm documentation built on May 2, 2019, 7:17 a.m.