Monte Carlo Method Assuming Multivariate Normal Distribution for Indirect Effect in a Simple Mediation Model for Data Generated from a Multivariate Normal Distribution with Data Missing Completely at Random - 20%

mvn_mcar_20_mc.mvn(
  taskid,
  R = 20000L,
  alphahat,
  sehatalphahat,
  betahat,
  sehatbetahat
)

Arguments

taskid

Numeric. Task ID.

R

Integer. Monte Carlo replications.

alphahat

Numeric. Estimated slope of path from x to m \(\left( \hat{\alpha} \right)\) .

sehatalphahat

Numeric. Estimated standard error of slope of path from x to m \(\left( \widehat{se}_{\hat{\alpha}} \right)\) .

betahat

Numeric. Estimated slope of path from m to y \(\left( \hat{\beta} \right)\) .

sehatbetahat

Numeric. Estimated standard error of slope of path from m to y \(\left( \widehat{se}_{\hat{\beta}} \right)\) .

See also

Other monte carlo method functions: beta_ols_mc.mvn_pcci_simulation(), beta_ols_mc.mvn_pcci_task(), beta_ols_mc.mvn_simulation(), beta_ols_mc.mvn_task(), beta_ols_mc.mvn(), exp_ols_mc.mvn_pcci_simulation(), exp_ols_mc.mvn_pcci_task(), exp_ols_mc.mvn_simulation(), exp_ols_mc.mvn_task(), exp_ols_mc.mvn(), mc.mvn(), mc.t(), mc.wishart(), mvn_mar_10_mc.mvn_pcci_simulation(), mvn_mar_10_mc.mvn_pcci_task(), mvn_mar_10_mc.mvn_simulation(), mvn_mar_10_mc.mvn_task(), mvn_mar_10_mc.mvn(), mvn_mar_20_mc.mvn_pcci_simulation(), mvn_mar_20_mc.mvn_pcci_task(), mvn_mar_20_mc.mvn_simulation(), mvn_mar_20_mc.mvn_task(), mvn_mar_20_mc.mvn(), mvn_mar_30_mc.mvn_pcci_simulation(), mvn_mar_30_mc.mvn_pcci_task(), mvn_mar_30_mc.mvn_simulation(), mvn_mar_30_mc.mvn_task(), mvn_mar_30_mc.mvn(), mvn_mcar_10_mc.mvn_pcci_simulation(), mvn_mcar_10_mc.mvn_pcci_task(), mvn_mcar_10_mc.mvn_simulation(), mvn_mcar_10_mc.mvn_task(), mvn_mcar_10_mc.mvn(), mvn_mcar_20_mc.mvn_pcci_simulation(), mvn_mcar_20_mc.mvn_pcci_task(), mvn_mcar_20_mc.mvn_simulation(), mvn_mcar_20_mc.mvn_task(), mvn_mcar_30_mc.mvn_pcci_simulation(), mvn_mcar_30_mc.mvn_pcci_task(), mvn_mcar_30_mc.mvn_simulation(), mvn_mcar_30_mc.mvn_task(), mvn_mcar_30_mc.mvn(), mvn_mnar_10_mc.mvn_pcci_simulation(), mvn_mnar_10_mc.mvn_pcci_task(), mvn_mnar_10_mc.mvn_simulation(), mvn_mnar_10_mc.mvn_task(), mvn_mnar_10_mc.mvn(), mvn_mnar_20_mc.mvn_pcci_simulation(), mvn_mnar_20_mc.mvn_pcci_task(), mvn_mnar_20_mc.mvn_simulation(), mvn_mnar_20_mc.mvn_task(), mvn_mnar_20_mc.mvn(), mvn_mnar_30_mc.mvn_pcci_simulation(), mvn_mnar_30_mc.mvn_pcci_task(), mvn_mnar_30_mc.mvn_simulation(), mvn_mnar_30_mc.mvn_task(), mvn_mnar_30_mc.mvn(), mvn_ols_mc.mvn_pcci_simulation(), mvn_ols_mc.mvn_pcci_task(), mvn_ols_mc.mvn_simulation(), mvn_ols_mc.mvn_task(), mvn_ols_mc.mvn(), mvn_sem_mc.mvn_pcci_simulation(), mvn_sem_mc.mvn_pcci_task(), mvn_sem_mc.mvn_simulation(), mvn_sem_mc.mvn_task(), mvn_sem_mc.mvn(), mvn_std_mc.mvn.delta_pcci_simulation(), mvn_std_mc.mvn.delta_pcci_task(), mvn_std_mc.mvn.delta_simulation(), mvn_std_mc.mvn.delta_task(), mvn_std_mc.mvn.delta(), mvn_std_mc.mvn.sem_pcci_simulation(), mvn_std_mc.mvn.sem_pcci_task(), mvn_std_mc.mvn.sem_simulation(), mvn_std_mc.mvn.sem_task(), mvn_std_mc.mvn.sem(), mvn_std_mc.mvn.tb_pcci_simulation(), mvn_std_mc.mvn.tb_pcci_task(), mvn_std_mc.mvn.tb_simulation(), mvn_std_mc.mvn.tb_task(), mvn_std_mc.mvn.tb(), mvn_std_mc.wishart_pcci_simulation(), mvn_std_mc.wishart_pcci_task(), mvn_std_mc.wishart_simulation(), mvn_std_mc.wishart_task(), mvn_std_mc.wishart(), vm_mod_ols_mc.mvn_pcci_simulation(), vm_mod_ols_mc.mvn_pcci_task(), vm_mod_ols_mc.mvn_simulation(), vm_mod_ols_mc.mvn_task(), vm_mod_ols_mc.mvn(), vm_mod_sem_mc.mvn_pcci_simulation(), vm_mod_sem_mc.mvn_pcci_task(), vm_mod_sem_mc.mvn_simulation(), vm_mod_sem_mc.mvn_task(), vm_mod_sem_mc.mvn(), vm_sev_ols_mc.mvn_pcci_simulation(), vm_sev_ols_mc.mvn_pcci_task(), vm_sev_ols_mc.mvn_simulation(), vm_sev_ols_mc.mvn_task(), vm_sev_ols_mc.mvn(), vm_sev_sem_mc.mvn_pcci_simulation(), vm_sev_sem_mc.mvn_pcci_task(), vm_sev_sem_mc.mvn_simulation(), vm_sev_sem_mc.mvn_task(), vm_sev_sem_mc.mvn()

Author

Ivan Jacob Agaloos Pesigan

Examples

taskid <- 1 data <- mvn_dat(taskid = taskid) data <- mvn_mcar_20_dat(data = data, taskid = taskid) fit.sem(data = data, minimal = TRUE, std = FALSE, fiml = TRUE)
#> [1] 0.5552644
fit <- mvn_mcar_20_fit.sem(data = data, taskid = taskid) thetahatstar <- mvn_mcar_20_mc.mvn( taskid = taskid, R = 20000L, alphahat = fit["alphahat"], sehatalphahat = fit["sehatalphahat"], betahat = fit["betahat"], sehatbetahat = fit["sehatbetahat"] ) hist(thetahatstar)