R/gamcen.22.R

In EnvStats: Package for Environmental Statistics, Including US EPA Guidance

gamcen.22 <-
function (x, mu = 0, sig = 1, eta = 0, kappa = 1, alf = 2, bet = 2) 
{
    r <- (x - mu)/sig
    1/sig^2 * (r^2 * (s.1.m.singly.censored(r, alf, bet) - s.0.m.singly.censored(r, 
        alf, bet)^2) + 2 * r * s.0.m.singly.censored(r, alf, 
        bet))
}