### MISC
is_even <- function(a) {
a%%2 == 0
}
Kernel_tri <- function(X, center, bw) {
ifelse(abs(X - center) > bw, 0, 1 - (abs(X - center)/bw))
}
Kernel_uni <- function(X, center, bw) {
ifelse(abs(X - center) > bw, 0, 1)
}
.onAttach <- function(...) {
packageStartupMessage("
Please consider citing R and rddtools,
citation()
citation('rddtools')
")}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.