## Not run:
# library(ILS)
# data(TG)
# delta <- seq(from = 40 ,to = 850 ,length.out = 1000 )
# curves.fqcd <- lab.fqcd(TG, argvals = delta,rangeval = c(40,80))
# draw.control = list(col = c("blue","grey"),
# lty = c(1, 1), lwd = c(2, 1))
# #by Walter method
# windows(20,10)
# par(mfrow=c(1,2))
# quantile95.w <- bootstrap.quantile(curves.fqcd, statistic = "h",
# method = "Walter", smo = 0,
# nb= 500, alpha = 0.05, quantile = 0.95,draw = TRUE,
# draw.control = draw.control,ylim=c(-3,3),x.co=50,y.co=3,
# main="Statistical h by the method's Walter")
# ## End(Not run)
Run the code above in your browser using DataLab