R/ahrdiweibull.R

ahrdiweibull<-Vectorize(function(x, q, beta)
{
if(x!=floor(x) | x<1)
{stop("Non-feasible value of x!",x)}
log((1-q^(x-1)^(-beta))/(1-q^x^(-beta)))
}
)

Try the DiscreteInverseWeibull package in your browser

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

DiscreteInverseWeibull documentation built on May 29, 2017, 5:46 p.m.