## An example with marginal distributions the standard logistic.
set.seed(1)
## The latent correlation matrix
latent.cor <- toeplitz(c(1, rep(0.8, 3)))
logit.sim <- rnorta(R = 1000, cor.matrix = latent.cor, distr = "logistic")
## The following code illustrates the NORTA method.
set.seed(1)
norm.sim <- rsmvnorm(1000, latent.cor)
all(logit.sim==qlogis(pnorm(norm.sim)))
Run the code above in your browser using DataLab