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