R/cusp.Like.R

`cusp.Like` <-
function (p, x) 
{
    print(p)
    -2 * sum(log(dcusp((x - p[3])/p[4], p[1], p[2])/p[4]))
}

Try the cusp package in your browser

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

cusp documentation built on Aug. 29, 2022, 9:07 a.m.