R/rm_sdt_extract_par_from_partable_add_increment.R

Defines functions rm_sdt_extract_par_from_partable_add_increment

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


rm_sdt_extract_par_from_partable_add_increment <- function(partable,
        pargroup, increment )
{
    partable <- partable[ partable$est, ]
    res <- partable[ partable$est, "value" ]
    res <- res + increment * ( partable$pargroup==pargroup )
    return(res)
}
alexanderrobitzsch/sirt documentation built on March 18, 2024, 1:29 p.m.