R/frm_fb_descriptives_variables.R

Defines functions frm_fb_descriptives_variables

## File Name: frm_fb_descriptives_variables.R
## File Version: 0.10

frm_fb_descriptives_variables <- function(dat, predictorMatrix,
        freq_miss_values, dat0, parms_mcmc )
{
    vars <- colnames(predictorMatrix)
    NV <- length(vars)
    dfr <- data.frame("variable"=vars, M=NA, SD=NA )
    for (vv in 1:NV){
        # vv <- 1
        var_vv <- vars[vv]
        dfr$M[vv] <- mean( parms_mcmc$M_mcmc[, var_vv ] )
        dfr$SD[vv] <- mean( parms_mcmc$SD_mcmc[, var_vv ] )
    }
    N <- nrow(dat0)
    dfr1 <- data.frame( "variable"=names(freq_miss_values),
                "N_obs"=N - freq_miss_values,
                "N_miss"=freq_miss_values )
    dfr <- merge( x=dfr1, y=dfr, by="variable", all=TRUE)
    dfr <- dfr[ match( vars, dfr$variable ), ]
    return(dfr)
}

Try the mdmb package in your browser

Any scripts or data that you put into this service are public.

mdmb documentation built on March 7, 2023, 6:58 p.m.