Generate Nonnormal Data Using the Vale and Maurelli (1983) Approach following a Simple Mediation Model (Skewness = 2, Kurtosis = 7)

vm_mod_dat(taskid)

Arguments

taskid

Numeric. Task ID.

See also

Author

Ivan Jacob Agaloos Pesigan

Examples

data <- vm_mod_dat(taskid = 1) colMeans(data)
#> x m y #> 99.83287 100.04038 100.41229
cov(data)
#> x m y #> x 225.8714 175.3977 165.7768 #> m 175.3977 271.4106 236.7399 #> y 165.7768 236.7399 283.8558
apply(X = data, MARGIN = 2, FUN = jeksterslabRdist::skew)
#> x m y #> 2.029359 3.164923 2.788516
apply(X = data, MARGIN = 2, FUN = jeksterslabRdist::kurt)
#> x m y #> 6.820311 19.894556 14.065857
fit.ols(data, minimal = TRUE)
#> [1] 0.6203215
fit.ols(data, minimal = TRUE, std = TRUE)
#> [1] 0.5533483
fit.ols(data, minimal = FALSE)
#> deltayhat taudothat betahat #> 9.15388510 0.11362159 0.79882982 #> deltamhat alphahat alphahatbetahat #> 22.51638750 0.77653777 0.62032153 #> taudothatprime betahatprime alphahatprime #> 0.10135440 0.78112189 0.70840198 #> alphahatprimebetahatprime sigma2xhat sigma2hatepsilonmhat #> 0.55334829 225.87138742 135.34320049 #> sigma2hatepsilonyhat muxhat sehatdeltayhat #> 76.05738919 99.83286932 1.92897268 #> sehattaudothat sehatbetahat sehatdeltamhat #> 0.02601178 0.02372943 2.47252017 #> sehatalphahat sehattaudothatprimetb sehatbetahatprimetb #> 0.02449091 0.02320341 0.02320341 #> sehatalphahatprimetb sehattaudothatprimedelta sehatbetahatprimedelta #> 0.02234200 0.02319978 0.01942925 #> sehatalphahatprimedelta #> 0.01576130