rm(list = ls()) devtools::load_all() set.seed(3393) designpath <- system.file("extdata", "CSA", "linear", package = "simulateDCE") library(rlang) library(formula.tools) notes <- "No Heuristics" resps <- 240 # number of respondents nosim <- 2 # number of simulations to run (about 500 is minimum) destype <- "spdesign" bcoeff <- list( bx1 = -0.02, bx2 = -0.03, bx3 = -0.02, bx4 = -0.005, bnobuy = -1 ) # place your utility functions here ul <- list(u1 = list( v1 = V.1 ~ bx1 * alt1.x1 + bx2 * alt1.x2 + bx3 * alt1.x3 + bx4 * alt1.x4, v2 = V.2 ~ bx1 * alt2.x1 + bx2 * alt2.x2 + bx3 * alt2.x3 + bx4 * alt2.x4, v3 = V.3 ~ bnobuy )) savefile <- "testdir/file" csa <- simulateDCE::sim_all( nosim = nosim, resps = resps, designtype = destype, designpath = designpath, u = ul, bcoeff = bcoeff, utility_transform_type = "exact", savefile = NULL, mode = "sequential" )