demo/demoFigure6B.R

In codeForReviewer/kMajorityRule: A series of tools for exploring different k-majority rule scenarios.

rm(list = ls(all = TRUE)) # clear the workspace

# Figure 6B
sixB <- aKMajorityRuleSimulation(folderName="Figure6B", 
                                 numberOfIterations=1000, 
                                 groupSize=c(35,30,35),
                                 utilityDistribution=c("normal","normal","normal"), 
                                 utilityDistributionParameters=c(-.3,.2,0,.2,.3,.2), 
                                 errorDistribution=c("normal","normal","normal"), 
                                 errorDistributionParameters=c(0,.3,0,.3,0,.3), 
                                 groupPostFailingProposalMeanUiIncrease=c(".1/r",".1/r",".1/r"),
                                 maximumNumberOfProposalsInASeries=FALSE, 
                                 perProposalDecisionCost=.01, 
                                 outputTo=getwd(),
                                 silentSeries=TRUE,
                                 silentIterations=FALSE,
                                 writeCSV=FALSE,
                                 writeRObjects=FALSE,
                                 plotExternalCostTotalCosts=FALSE,
                                 plotExpectedUtilityDecCostTotalUtil=TRUE,
                                 plotOnlyExternalCost=FALSE,
                                 plotOnlyExpectedUtility=FALSE,
                                 plotNumberOfRounds=FALSE,
                                 plotPareto=FALSE,
                                 printOutputToScreen=TRUE)
rm(sixB)