R/psi_1.R

Defines functions Psi

Psi <- function(x, p, eta, theta.fix, theta.var)
{
    res <- 0
    for(i in 1:length(eta))
        for(j in 1:length(eta))
            if(p[i,j] != 0)
                res <- res + p[i,j] * psi(x, eta[[i]], eta[[j]], theta.fix[[i]], theta.var[[i,j]])
    res
}

Try the rodd package in your browser

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

rodd documentation built on May 29, 2017, 9:42 p.m.