# NOT RUN {
# Load data
data(ramdata)
# Generate summary statistics
summaryStats <- sumData(ramdata$menu, ramdata$choice)
# Generate constraint matrices
constraints <- genMat(summaryStats$sumMenu, summaryStats$sumMsize)
constraints$ConstN
constraints$R[1:10, 1:10]
# }
Run the code above in your browser using DataLab