# NOT RUN {
n <- 1000
NMC <- 500
prob <- c(0.99)
# }
# NOT RUN {
#For computing time purpose
CriticalValue(NMC, n, TruncGauss.kernel, kpar = c(sigma = 1), prob, gridlen = 100 ,
initprop = 1/10, r1 = 1/4, r2 = 1/20, plot = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab