# Simulate data with default parameters:
set.seed(1)
myCMData <- simulateCardData()
# Simulate data with custom parameters:
set.seed(1)
myCMData <- simulateCardData(nSorters=40, pCorrect=.90, attributeWeights=c(1,1,1,1))
Run the code above in your browser using DataLab