# NOT RUN {
truePartition <- c(10,10,10,10)
numberFields <- 5
numberCategories <- rep(10,5)
trueBeta <- 0.01
data <- SimData(truePartition, numberFields, numberCategories, trueBeta)
DataRemap(data)
# }
Run the code above in your browser using DataLab