R/dweibull.R

In Rlab: Functions and Datasets Required for ST370 Class

"dweibull" <-

function (x, shape = 1, scale = 1, alpha = shape, beta = scale, log = FALSE) 



{



    if (any(alpha <= 0)) 



            stop("alpha (or shape) must be strictly positive")

            

    if (any(beta <= 0)) 



            stop("beta (or scale) must be strictly positive")



     stats::dweibull(x,shape=alpha,scale=beta,log=log)



}