R/MHprop_refresh.R

In alexanderrobitzsch/immer: Item Response Models for Multiple Ratings

## File Name: MHprop_refresh.R
## File Version: 0.171


MHprop_refresh <- function( MHprop )
{
    vars <- MHprop$VARS_refreshing
    V <- length(vars)
    for (vv in 1L:V){
        var.vv <- vars[vv]
        ri <- MHprop$refresh_iter[[ var.vv ]]
        accept <- MHprop$accept[[ var.vv ]] / MHprop$refresh_iter[[ var.vv ]]
        SD <- MHprop$SD[[ var.vv ]]
        SDchange <- MHprop$refresh_SDchange[[ var.vv ]]
        MHprop$SD[[ var.vv ]] <- MHprop_refresh_parstype( accept=accept, SD=SD,
                                        MHprop=MHprop, SDchange=SDchange )
        MHprop$accept[[ var.vv ]] <- 0*MHprop$accept[[var.vv]]
        MHprop$refresh_count[[var.vv]] <- 0
    }
    return(MHprop)
}