R/cusp.nc.R

`cusp.nc` <-
Vectorize(function (alpha, beta, mom.order = 0, ...) 
tryCatch(integrate(function(x) x^mom.order * exp(alpha * x + 
    beta * x^2/2 - x^4/4), -Inf, Inf, ...)$value, error = function(e) Inf))

Try the cusp package in your browser

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

cusp documentation built on May 2, 2019, 6:51 p.m.