set.seed(1)
data <- matrix(sample( c( 0, 1, 2 ), 500 * 30, replace = TRUE,
prob <- c( 0.35, 0.35, 0.3)), ncol = 30 )
FS <- sample( c( 0.1, 0.5, 0.7, NA ), ncol( data ), replace = TRUE)
asym_m_ng(y = rbinom(500, 1, 0.5), data = data, FS = FS)
Run the code above in your browser using DataLab