R/rm_sdt_evaluate_prior.R

Defines functions rm_sdt_evaluate_prior

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

rm_sdt_evaluate_prior <- function(partable)
{
    partable <- partable[ partable$est, ]
    m1 <- partable$prior_M
    sd1 <- partable$prior_SD
    y1 <- sirt_dnorm(partable$value, mean=m1, sd=sd1, log=TRUE)
    y2 <- sirt_dnorm(m1, mean=m1, sd=sd1, log=TRUE)
    res <- - ( y1 - y2 )
    return(res)
}

Try the sirt package in your browser

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

sirt documentation built on May 29, 2024, 8:43 a.m.