#notes <- "This design consists of different heuristics. One group did not attend the methan attribute, another group only decided based on the payment"
notes<-"No Heuristics"
resps=40# number of respondents
nosim=2# number of simulations to run (about 500 is minimum)
# Test that the function throws an error when lengths don't match
expect_error(sim_all(nosim=nosim,resps=resps,destype=destype,designpath=designpath,u=badlist,bcoeff=bcoeff,decisiongroups=baddecisiongroups),"Number of decision groups must equal number of utility functions!")
# Define test inputs where lengths match
gooddecisiongroups<-c(0,0.3,0.6,0.8,1)
# Test that the function does not throw an error when lengths match
#notes <- "This design consists of different heuristics. One group did not attend the methan attribute, another group only decided based on the payment"