# NOT RUN {
set.seed(37372)
x <- rnorm(1000) * 100
x <- x[ 0 < x & x < 100 ]
F.nLL( c(50,20), x, "uniform", w.hi = 100)
F.nLL( c(50,20, .1), x, "uniform", expansions=1, w.hi = 100, series="cosine")
# }
Run the code above in your browser using DataLab