demo/demoFigure4A.R

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

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

# Demo for Figure 4A
fourA <- aKMajorityRuleSimulation(folderName="Figure4A", 
                                       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("0","0","0"),
                                       maximumNumberOfProposalsInASeries=1, 
                                       perProposalDecisionCost=0, 
                                       outputTo=getwd(),
                                       silentSeries=TRUE,
                                       silentIterations=FALSE,
                                       writeCSV=FALSE,
                                       writeRObjects=FALSE,
                                       plotExternalCostTotalCosts=FALSE,
                                       plotExpectedUtilityDecCostTotalUtil=FALSE,
                                       plotOnlyExternalCost=TRUE,
                                       plotOnlyExpectedUtility=TRUE,
                                       plotNumberOfRounds=FALSE,
                                       plotPareto=FALSE,
                                       printOutputToScreen=TRUE)
rm(fourA)