From fc4394bf3d2e262605bcc3100ccd784b05d219fc Mon Sep 17 00:00:00 2001
From: dj44vuri <julian.sagebiel@idiv.de>
Date: Tue, 13 Feb 2024 15:31:14 +0100
Subject: [PATCH] added functioning csa example
---
inst/extdata/CSA/design2.RDS | Bin 0 -> 356 bytes
tests/manual-tests/csa.R | 15 +++++++++------
2 files changed, 9 insertions(+), 6 deletions(-)
create mode 100644 inst/extdata/CSA/design2.RDS
diff --git a/inst/extdata/CSA/design2.RDS b/inst/extdata/CSA/design2.RDS
new file mode 100644
index 0000000000000000000000000000000000000000..3b71a4c88c00fb093a4570878d2c5949cac2c695
GIT binary patch
literal 356
zcmV-q0h|6GiwFP!000001I<-SPQx$|9r6J+5(o*dL8ZDZ*flFoP!I@-;Iwo@prVNc
z%N&g(^avb)MNdGOIyUMIabn5_OUauz-=}DjTtxujL*RShhiF20F+M*zL*EgSb?^YM
z<IxJ#8NF*Xd<l(*=W+ixXML=5IA_Rp^8U87ZM>_F=W(45d4JO7+OH+9bjCNOB60dw
z<6TVoWl2$%G;a*e_1w>q#|<}nG#Z`OJzTXT&+FoRj&<(xN1VP#+s^N(cdc`MkAAyn
zuDV?Nwe+d?lkW$|TaDKm`M#QcvhAa-uk5JP2$tvh-w@9})ZZl!ubmAvb`$6RhTNdG
z1Lz@!lT7A08i%0%I?B0Qq**eZY33u-W;B(B?9UeR@t*bRE#@!%C-mo9xL4w>s;Un@
z&?Kz~M%uY2vtp3E4k#6r4k<m|pn}#4S}SO+ptZv!e>U3EY(9BF<MRvejm~I=2LJ%W
C(y`6}
literal 0
HcmV?d00001
diff --git a/tests/manual-tests/csa.R b/tests/manual-tests/csa.R
index 0a7b250..fdabd90 100644
--- a/tests/manual-tests/csa.R
+++ b/tests/manual-tests/csa.R
@@ -14,14 +14,14 @@ designpath<- system.file("extdata","CSA" ,package = "simulateDCE")
notes <- "No Heuristics"
resps =240 # number of respondents
-nosim=2 # number of simulations to run (about 500 is minimum)
+nosim=1000 # number of simulations to run (about 500 is minimum)
bcoeff<-list(
- bx1 =0.1,
- bx2 =0.3,
- bx3 =0.1,
- bx4 =-0.2)
+ bx1 = -0.2,
+ bx2 = -0.2,
+ bx3 = -0.1,
+ bx4 = -0.05)
destype <- "spdesign"
@@ -30,7 +30,8 @@ destype <- "spdesign"
#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
+ v2 =V.2 ~ bx1 * alt2.x1 + bx2 * alt2.x2 + bx3 * alt2.x3 + bx4 * alt2.x4,
+ v3 =V.3 ~ -10
)
)
@@ -41,3 +42,5 @@ csa <- simulateDCE::sim_all(nosim = nosim, resps=resps, destype = destype,
+saveRDS(csa,file = "tests/manual-tests/csa.RDS")
+
--
GitLab