if (FALSE) {
#############################################################################
# EXAMPLE 1: Simulating data with nnig_sim function
#############################################################################
#* define input parameters
Sigma <- matrix( c(1,.5, .2,
.5, 1,.7,
.2, .7, 1), 3, 3 )
skew <- c(0,1,1)
kurt <- c(1,3,3)
#* determine coefficients
coeff <- miceadds::nnig_coef( Sigma=Sigma, skew=skew, kurt=kurt )
print(coeff)
#* simulate data
set.seed(2018)
Y <- miceadds::nnig_sim( N=2000, coef=coeff)
#* check descriptive statistics
apply(Y, 2, TAM::weighted_skewness )
apply(Y, 2, TAM::weighted_kurtosis )
}
Run the code above in your browser using DataLab