Skip to content
Snippets Groups Projects
Commit 0fd9a788 authored by dj44vuri's avatar dj44vuri
Browse files

new file structure, projects separated

parent bbcbeae9
No related branches found
No related tags found
No related merge requests found
Showing
with 117 additions and 1 deletion
design
;alts = opt1*, opt2*
;block = 10
? efficient design
;eff = (mnl, d)
;alg = mfederov
;rows = 120
;reject:
opt1.x1 = opt2.x1,
opt2.x5= opt1.x5,
opt2.x1 = opt1.x1,
opt1.x5= opt2.x5,
opt1.x5 = 125 and opt2.x5 = 126,
opt1.x5 = 126 and opt2.x5 = 125,
opt1.x5 = 50 and opt2.x5 = 51,
opt1.x5 = 51 and opt2.x5 = 50,
opt1.x5 = 100 and opt2.x5 = 101,
opt1.x5 = 101 and opt2.x5 = 100,
opt1.x5 = 200 and opt2.x5 = 201,
opt1.x5 = 201 and opt2.x5 = 200,
opt1.x5 = 75 and opt2.x5 = 76,
opt1.x5 = 76 and opt2.x5 = 75,
opt1.x5 = 150 and opt2.x5 = 151,
opt1.x5 = 151 and opt2.x5 = 150
;model:
U(opt1) = b1[-0.0025] * x1[20,40,60,80]
+ b2[-0.0025] * x5[25,50,51,75,76,100,101,125,126,150,151,200,201,225,250,300]
/
U(opt2) = b1 * x1
+ b2 * x5
$
design
;alts = opt1, opt2
;block = 5
? efficient design
;eff = (mnl, d)
;alg = swap
;rows = 60
;cond:
if(opt1.x2+opt1.x3 >opt2.x2+opt2.x3 , opt1.x1<opt2.x1),
if(opt1.x2+opt1.x3 <opt2.x2+opt2.x3 , opt1.x1>opt2.x1),
if(opt1.x2=opt2.x2 , opt1.x3<>opt2.x3 )
;model:
U(opt1) = b1[-0.036] * x1[20,40,60,80]
+ b2[-0.0034] * x2[25,50,100,200]
+ b3[-0.0049] * x3[0,25,50,100]
/
U(opt2) = b1 * x1
+ b2 * x2
+ b3 * x3
$
design
;alts = opt1, opt2
;block = 10
? efficient design
;eff = (mnl, d)
;alg = swap
;rows = 120
;cond:
if(opt1.x2+opt1.x3 >opt2.x2+opt2.x3 , opt1.x1<opt2.x1),
if(opt1.x2+opt1.x3 <opt2.x2+opt2.x3 , opt1.x1>opt2.x1),
if(opt1.x2=opt2.x2 , opt1.x3<>opt2.x3 )
;model:
U(opt1) = b1[-0.036] * x1[20,40,60,80]
+ b2[-0.0034] * x2[25,50,100,200]
+ b3[-0.0049] * x3[0,25,50,100]
/
U(opt2) = b1 * x1
+ b2 * x2
+ b3 * x3
$
design
;alts = opt1, opt2
;block = 10
;eff = (mnl,d,mean)
;rep = 1000
;bdraws = halton(1000)
;bseed = 2333344
;rseed = 2333344
;alg = swap
;rows = 120
;cond:
if(opt1.x2+opt1.x3 >opt2.x2+opt2.x3 , opt1.x1<opt2.x1),
if(opt1.x2+opt1.x3 <opt2.x2+opt2.x3 , opt1.x1>opt2.x1),
if(opt1.x2=opt2.x2 , opt1.x3<>opt2.x3 )
;model:
U(opt1) = b1[(n,-0.036,0.02)] * x1[20,40,60,80]
+ b2[(n,-0.0034,0.002)] * x2[25,50,100,200]
+ b3[(n,-0.0049,0.003)] * x3[0,25,50,100]
/
U(opt2) = b1 * x1
+ b2 * x2
+ b3 * x3
$
File moved
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
designpath<- "SE_DRIVE/Designs/" designpath<- "SE_DRIVE/Designs/"
resps =120 # number of respondents resps =120 # number of respondents
nosim= 500 # number of simulations to run (about 500 is minimum) nosim= 2 # number of simulations to run (about 500 is minimum)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment