# Data process
set.seed(123)
Y <- as.vector(rnorm(100))
X <- matrix(rnorm(200), ncol = 2)
quantile_target <- c(0.1, 0.5, 0.9)
bandwidth_value <- 0.5
results_qt <- f_nadaraya_watson_quantile(v_dep=Y,
v_expl=X,
qt_trgt=quantile_target,
bandwidth=bandwidth_value)
Run the code above in your browser using DataLab