# NOT RUN {
y <- rexp(100, 1)
xx <- seq(min(y) + 0.05, max(y), length = 500)
h <- 2
gr <- Gumbel(x = xx, y = y, k = 200, h = h)
mse(kernel = gr, type = "Exp")
## if distribution is other than mentioned \code{type} is used then NaN will be produced.
# }
# NOT RUN {
mse(kernel = gr, type ="Beta")
# }
Run the code above in your browser using DataLab