R/various_code.R

In bquast/RDDtools: Toolbox for Regression Discontinuity Design ('RDD')

### 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')
")}