if (FALSE) {
distributions <- list(
list('rchisq', list(df = 2)),
list('runif', list(min = 0, max = 1)),
list('rexp', list(rate = 1))
)
data <- genData.ruscio(N = 100, Sigma = diag(3),
distributions = distributions,
modelH0 = 'f =~ x1 + x2 + x3')
distributions <- list(
list('rnorm', list(mean = 0, sd = 10)),
list('runif', list(min = 0, max = 1)),
list('rbeta', list(shape1 = 1, shape2 = 2)),
list('rexp', list(rate = 1)),
list('rpois', list(lambda = 4)),
list('rbinom', list(size = 1, prob = .5))
)
data <- genData.ruscio(N = 100, Sigma = diag(6),
distributions = distributions,
modelH0 = 'f1=~x1+x2+x3\nf2=~x4+x5+x6')
}
Run the code above in your browser using DataLab