R/sirt_dmvnorm_discrete.R

Defines functions sirt_dmvnorm_discrete

## File Name: sirt_dmvnorm_discrete.R
## File Version: 0.07

sirt_dmvnorm_discrete <- function(x, mean=NULL, sigma=NULL, as_matrix=FALSE,
    eps=0, ...)
{
    y <- sirt_dmvnorm(x=x, mean=mean, sigma=sigma, ... )
    if (as_matrix){
        y <- matrix(y, nrow=length(y), ncol=1)
    }
    y <- y + eps
    y <- y / sum(y)
    return(y)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.