diff --git a/inst/extdata/CSA/design2.RDS b/inst/extdata/CSA/design2.RDS
new file mode 100644
index 0000000000000000000000000000000000000000..3b71a4c88c00fb093a4570878d2c5949cac2c695
Binary files /dev/null and b/inst/extdata/CSA/design2.RDS differ
diff --git a/tests/manual-tests/csa.R b/tests/manual-tests/csa.R
index 0a7b25004f30c0d4fe9589f5b3c5cb37e0f87962..fdabd908ac6b3131eaeea0c3875871e3fd9563f4 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")
+