rm(list=ls())
devtools::load_all()
### currently used to test the chunks option

set.seed(3393)

designpath<- system.file("extdata","Rbook" ,package = "simulateDCE")
#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 =240  # number of respondents
nosim=19 # number of simulations to run (about 500 is minimum)

#betacoefficients should not include "-"
bcoeff<-list(
  bsq=0.00,
  bredkite=-0.05,
  bdistance=0.50,
  bcost=-0.05,
  bfarm2=0.25,
  bfarm3=0.50,
  bheight2=0.25,
  bheight3=0.50)


destype <- "spdesign"


#place your utility functions here
ul<- list(u1= list(
  v1 =V.1 ~  bsq * alt1.sq,
  v2 =V.2 ~  bfarm2 * alt2.farm2 + bfarm3 * alt2.farm3 + bheight2 * alt2.height2 + bheight3 * alt2.height3 +  bredkite * alt2.redkite + bdistance * alt2.distance + bcost * alt2.cost,
  v3 =V.3 ~  bfarm2 * alt3.farm2 + bfarm3 * alt3.farm3 + bheight2 * alt3.height2 + bheight3 * alt3.height3 +  bredkite * alt3.redkite + bdistance * alt3.distance + bcost * alt3.cost
)
)



rbook <- simulateDCE::sim_all(nosim = nosim, resps=resps, destype  = destype,
                 designpath = designpath, u= ul, bcoeff = bcoeff, chunks = 4, utility_transform_type = "exact")