#############################################################################
# EXAMPLE 1: Simulate multivariate normal data
#############################################################################
# define covariance matrix and mean vector
rho <- .8
Sigma <- matrix(rho,3,3)
diag(Sigma) <- 1
mu <- c(0,.5,1)
#* simulate data
set.seed(87)
dat <- sirt::rmvn(N=200, mu=mu, Sigma=Sigma)
#* check means and covariances
stats::cov.wt(dat, method="ML")
if (FALSE) {
#############################################################################
# EXAMPLE 2: Simulate univariate normal data
#############################################################################
#* simulate data
x <- sirt::ruvn(N=20, mean=.5, sd=1.2, exact=TRUE)
# check results
stats::var(x)
sirt:::sirt_var(x)
}
Run the code above in your browser using DataLab