R/hrdiweibull.R

hrdiweibull<-Vectorize(function(x, q, beta)
{
if(x!=floor(x) | x<1)
{stop("Non-feasible value of x!",x)}
(q^x^(-beta)-q^(x-1)^(-beta))/(1-q^(x-1)^(-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.