now example really working

README.Rmd

@@ -46,33 +46,40 @@ remotes::install_gitlab(repo = "dj44vuri/simulateDCE" , host = "https://git.idiv
 This is a basic example for a simulation:
 
 ```{r example}
- library(simulateDCE)
+
+
+rm(list=ls())
+library(simulateDCE)
 library(rlang)
 library(formula.tools)
 
-# Designpath indicates the folder where all designs that should be simulated are stored. Can be either ngd files (for NGENE) or R objects for spdesign)
+
+library(rlang)
+
 designpath<- system.file("extdata","SE_DRIVE" ,package = "simulateDCE")
 
-# on your computer, it would be something like
-# designpath <- "c:/myfancyDCE/Designs"
+resps =120  # number of respondents
+nosim= 2 # number of simulations to run (about 500 is minimum)
+
 
 
-# number of respondents
-resps =120
 
-# number of simulations to run (about 200 is minimum if you want to be serious -- but it takes some time. always test your code with 2 simulations, and if it runs smoothly, go for more.)
-nosim= 2 
 
-# If you want to use different groups of respondents, use this. The following line means that you have one group of 70% size and one group of 30% size
+
+# bpreis = -0.036
+# blade  = -0.034
+# bwarte = -0.049
+
+
 decisiongroups=c(0,0.7,1)
 
-# set the values of the parameters you want to use in the simulation
+# wrong parameters
+
+#
 bpreis = -0.01
 blade = -0.07
 bwarte = 0.02
 
-# If you want to do some manipulations in the design before you simulate, add a list called manipulations. Here, we devide some attributes by 10
-
 manipulations = list(alt1.x2=     expr(alt1.x2/10),
                      alt1.x3=     expr(alt1.x3/10),
                      alt2.x2=     expr(alt2.x2/10),
@@ -80,8 +87,8 @@ manipulations = list(alt1.x2=     expr(alt1.x2/10),
 )
 
 
-#place your utility functions here. We have two utility functions and two sets of utility functions. This is because we assume that 70% act according to the utility u1 and 30% act to the utility u2 (that is, they only decide according to the price and ignore the other attributes)
-u<-list( u1 =
+#place your utility functions here
+ul<-list( u1 =
 
            list(
              v1 =V.1~  bpreis * alt1.x1 + blade*alt1.x2 + bwarte*alt1.x3   ,
@@ -94,11 +101,11 @@ u<-list( u1 =
 
 )
 
-# specify the designtype "ngene" or "spdesign"
+
 destype="ngene"
 
+sedrive <- sim_all(nosim = nosim, resps=resps, destype = destype,
+                   designpath = designpath, u=ul)
 
-#lets go
-sedrive <- sim_all()
 
 ```