diff --git a/inst/extdata/CSA/design1.RDS b/inst/extdata/CSA/design1.RDS deleted file mode 100644 index c3ad4809b9dd93b05f8d6993d4eda66be33480b2..0000000000000000000000000000000000000000 Binary files a/inst/extdata/CSA/design1.RDS and /dev/null differ diff --git a/inst/extdata/CSA/design2.RDS b/inst/extdata/CSA/design2.RDS deleted file mode 100644 index 3b71a4c88c00fb093a4570878d2c5949cac2c695..0000000000000000000000000000000000000000 Binary files a/inst/extdata/CSA/design2.RDS and /dev/null differ diff --git a/inst/extdata/CSA/linear/BLIIIbay.RDS b/inst/extdata/CSA/linear/BLIIIbay.RDS new file mode 100644 index 0000000000000000000000000000000000000000..cc79f148efe84ea8969f046d2352eeb6ba66a515 Binary files /dev/null and b/inst/extdata/CSA/linear/BLIIIbay.RDS differ diff --git a/inst/extdata/CSA/linear/BLIIIeff.RDS b/inst/extdata/CSA/linear/BLIIIeff.RDS new file mode 100644 index 0000000000000000000000000000000000000000..05ba768f7e3a963bfd8816e50b99fc000d6f9871 Binary files /dev/null and b/inst/extdata/CSA/linear/BLIIIeff.RDS differ diff --git a/inst/extdata/CSA/linear/BLIIbay.RDS b/inst/extdata/CSA/linear/BLIIbay.RDS new file mode 100644 index 0000000000000000000000000000000000000000..418f27cd85874c5b4b49d42256511c6c0550ed8e Binary files /dev/null and b/inst/extdata/CSA/linear/BLIIbay.RDS differ diff --git a/inst/extdata/CSA/linear/BLIIeff.RDS b/inst/extdata/CSA/linear/BLIIeff.RDS new file mode 100644 index 0000000000000000000000000000000000000000..6eaac4264ce0e30e83ef52c55c27e1f8e7582336 Binary files /dev/null and b/inst/extdata/CSA/linear/BLIIeff.RDS differ diff --git a/inst/extdata/CSA/linear/BLIVbay.RDS b/inst/extdata/CSA/linear/BLIVbay.RDS new file mode 100644 index 0000000000000000000000000000000000000000..569a5c32d7f60e1c8585a1743ac778996d3843c7 Binary files /dev/null and b/inst/extdata/CSA/linear/BLIVbay.RDS differ diff --git a/inst/extdata/CSA/linear/BLIVeff.RDS b/inst/extdata/CSA/linear/BLIVeff.RDS new file mode 100644 index 0000000000000000000000000000000000000000..32e43d70fbe5d737e767df2f49d9f23dd7cf3e4b Binary files /dev/null and b/inst/extdata/CSA/linear/BLIVeff.RDS differ diff --git a/inst/extdata/CSA/linear/BLIbay.RDS b/inst/extdata/CSA/linear/BLIbay.RDS new file mode 100644 index 0000000000000000000000000000000000000000..fcbe54da304fc401faa16b180f7df444b7493f96 Binary files /dev/null and b/inst/extdata/CSA/linear/BLIbay.RDS differ diff --git a/inst/extdata/CSA/linear/BLIeff.RDS b/inst/extdata/CSA/linear/BLIeff.RDS new file mode 100644 index 0000000000000000000000000000000000000000..65b0947767a5e11443b5dae15c638985820bd51d Binary files /dev/null and b/inst/extdata/CSA/linear/BLIeff.RDS differ diff --git a/inst/extdata/CSA/linear/BLVIbay.RDS b/inst/extdata/CSA/linear/BLVIbay.RDS new file mode 100644 index 0000000000000000000000000000000000000000..4f282e4b88e9758b5ceb073793ca5e99f4af2877 Binary files /dev/null and b/inst/extdata/CSA/linear/BLVIbay.RDS differ diff --git a/inst/extdata/CSA/linear/BLVIeff.RDS b/inst/extdata/CSA/linear/BLVIeff.RDS new file mode 100644 index 0000000000000000000000000000000000000000..551a92265e16b81a608b495ea40f00574f29aa6b Binary files /dev/null and b/inst/extdata/CSA/linear/BLVIeff.RDS differ diff --git a/inst/extdata/CSA/linear/BLVbay.RDS b/inst/extdata/CSA/linear/BLVbay.RDS new file mode 100644 index 0000000000000000000000000000000000000000..7a0ae59c22bd016773be68982e135b5741739eca Binary files /dev/null and b/inst/extdata/CSA/linear/BLVbay.RDS differ diff --git a/inst/extdata/CSA/linear/BLVeff.RDS b/inst/extdata/CSA/linear/BLVeff.RDS new file mode 100644 index 0000000000000000000000000000000000000000..30147c512dace1c5d5eeb2458c7f72bb3f5e58b4 Binary files /dev/null and b/inst/extdata/CSA/linear/BLVeff.RDS differ diff --git a/tests/manual-tests/csa.R b/tests/manual-tests/csa.R index 7dc63961d6cc43eeda87f558cecf752242a9444a..2bfa74801ae351382b60b9ad0aa1b94b7d82b857 100644 --- a/tests/manual-tests/csa.R +++ b/tests/manual-tests/csa.R @@ -8,8 +8,16 @@ devtools::load_all() set.seed(3393) -designpath<- system.file("extdata","CSA" ,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" +designpath<- system.file("extdata","CSA","linear" ,package = "simulateDCE") + +library(rlang) +library(formula.tools) + + + + + + notes <- "No Heuristics" @@ -19,25 +27,26 @@ nosim=2 # number of simulations to run (about 500 is minimum) destype <- "spdesign" bcoeff<-list( - bx1 = -0.1, - bx2 = -0.1, - bx3 = -0.05, - bx4 = -0.025) + 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 ~ -5 + v3 =V.3 ~ bnobuy ) ) csa <- simulateDCE::sim_all(nosim = nosim, resps=resps, destype = destype, - designpath = designpath, u= ul, bcoeff = bcoeff) + designpath = designpath, u= ul, bcoeff = bcoeff) + -saveRDS(csa,file = "tests/manual-tests/csa.RDS") diff --git a/tests/manual-tests/csa.RDS b/tests/manual-tests/csa.RDS deleted file mode 100644 index 056d8c5182a890151961e07777fa31a3d68bddf6..0000000000000000000000000000000000000000 Binary files a/tests/manual-tests/csa.RDS and /dev/null differ