Skip to content
Snippets Groups Projects
Select Git revision
  • bdb9338e3f132397c82ad894bc0772b0bf5f3f1e
  • main default protected
  • develop
  • v0.1
4 results

parameters_valugaps.R

Blame
  • Code owners
    Assign users and groups as approvers for specific file changes. Learn more.
    parameters_SE Design-Agri.R 1.23 KiB
    
    
    designpath<- "Projects/SE_AGRI/designs-seagri/"
    
    resps =360  # number of respondents
    nosim=2 # number of simulations to run (about 500 is minimum)
    
    #betacoefficients should not include "-"
    basc = 4.2 ## very high asc
    bprof = 0.3
    bexp = 0.3
    bdomestic = 0.3
    bforeign = 0.3
    bdamage = 0.6
    bprice = 0.2
    
    
    
    manipulations = list(alt1.professional=     expr(alt1.initiator==1), 
                         alt2.professional=     expr(alt2.initiator==1),
                         alt1.expert      =     expr(alt1.initiator==2), 
                         alt2.expert      =     expr(alt2.initiator==2),
                         alt1.domestic    =     expr(alt1.funding==1), 
                         alt2.domestic    =     expr(alt2.funding==1),
                         alt1.foreign     =     expr(alt1.funding==2), 
                         alt2.foreign     =     expr(alt2.funding==2))
    
    
    
    
    
    
    #place your utility functions here
    u<- list(u1= 
      list(
      v1 =V.1 ~  bprof*alt1.professional+ bexp * alt1.expert + bdomestic * alt1.domestic + bforeign * alt1.foreign + bdamage*alt1.damage + bprice * alt1.compensation,
      v2 =V.2 ~  bprof*alt2.professional + bexp * alt2.expert + bdomestic * alt2.domestic + bforeign * alt2.foreign + bdamage*alt2.damage + bprice * alt2.compensation,
      v3 =V.3 ~ basc)
    )