n <- 1000
NMC <- 500
prob <- c(0.99)
if (FALSE) #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)
Run the code above in your browser using DataLab