if (FALSE) {
# Generate data:
C <- c(3, 3, 3, 5, 5, 5)
I <- 6
gen <- GenData.GGUM(750, I, C, seed = 125)
# Export data to 'GGUM2004':
export.GGUM2004(gen$data)
# Write command file:
write.GGUM2004(I, C, model = "GGUM")
# Run 'GGUM2004':
res.GGUM2004 <- run.GGUM2004()
}
Run the code above in your browser using DataLab