R/tam_pv_mcmc_update_plausible_values.R

In TAM: Test Analysis Modules

## File Name: tam_pv_mcmc_update_plausible_values.R
## File Version: 0.02


tam_pv_mcmc_update_plausible_values <- function(pv, theta, pv_index_matrix)
{
    index <- attr(pv,"last_pv") <- attr(pv,"last_pv")  + 1
    pv[, pv_index_matrix[[index]] ] <- theta
    return(pv)
}