R/h0.R

In NonlinearRDD: Nonlinear Regression Discontinuity Design

#' This is an internal function. The treatment choice function below the cutoff, used for the data generating function nrddgp.
#'
#' @param r Value of the running variable.
#' @param u Value of the conditional rank of the treatment given the running variable.
#' @return Value of the treatment choice function below the cutoff.

h0 <- function(r,u){
  return( r+ 2*sin(u*pi/2))
}