R/dpareto2.R

dpareto2 <-
function(x, scale = 1, shape = 1)
{
    d <- (shape*scale^shape)/((x + scale)^(shape + 1))
    d[x <= 0] <- 0
    d
}

Try the CaDENCE package in your browser

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

CaDENCE documentation built on May 2, 2019, 6:05 a.m.