hist(r_g_kern(n = 1e3, d = 2, h = 1, kernel = "1"), breaks = 30,
probability = TRUE, main = "", xlim = c(-1, 1))
hist(r_g_kern(n = 1e3, d = 2, h = 1, kernel = "2"), breaks = 30,
probability = TRUE, main = "", xlim = c(-1, 1))
hist(r_g_kern(n = 1e3, d = 2, h = 1, kernel = "3"), breaks = 30,
probability = TRUE, main = "", xlim = c(-1, 1))
Run the code above in your browser using DataLab