demo/demoFigure6A.R

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

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



# Figure 6A
sixA <- aKMajorityRuleSimulation(folderName="Figure6A", 
                                  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",".1",".1"),
                                  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(sixA)