# NOT RUN {
es <- 0.99
beta <- prop.table(1:5)
xi <- 0
w <- 500
p <- 2:6
x <- DCES_demand (
es = es,
beta = beta,
xi = xi,
w = w,
p = p
)
DCES(es = es,
beta = beta,
xi = xi,
x = x)
SCES(es = es,
alpha = 1,
beta = beta,
x = x)
# }
Run the code above in your browser using DataLab