R/rm_sdt_create_partable_include_priors.R

Defines functions rm_sdt_create_partable_include_priors

## File Name: rm_sdt_create_partable_include_priors.R
## File Version: 0.05

rm_sdt_create_partable_include_priors <- function(partable, type, obj)
{
    vars <- c("prior_M", "prior_SD")
    for (vv in 1:2){
        partable[ ( partable$type==type) & ( partable$est ), vars[vv] ] <- obj[vv]
    }
    return(partable)
}

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.