R/btm_fit_combine_tables.R

In sirt: Supplementary Item Response Theory Models

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


btm_fit_combine_tables <- function( win1, win2, ind1, ind2, TP )
{
    win <- rep( 0, TP )
    win[ind1] <- win1[, 1]
    win[ind2] <- win[ind2] + win2[, 1]
    return(win)
}