# NOT RUN {
p <- c("thr" = 0.1, "ths" = 0.4, alf1 = .5, "n1" = 3,
"w1" = .5, "alf2" = 0.01, "n2" = 2,
"w2" = .3, "alf3" = 0.01, "n3" = 1.6,
"Ks" = 100, "tau" = .5)
h <- 10^seq(-2, 6.8, length = 197)
shyp.L <- shypFun.01310(p, h)
# }
Run the code above in your browser using DataLab