R/psiobs.2sq.R

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

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