R/A2_k.R

In kerdiest: Nonparametric kernel estimation of the distribution function. Bandwidth selection and estimation of related functions.

A2_k <-
function(type_kernel)
# INPUTS:
#   "type_kernel" kernel function: "e" Epanechnikov,	"n" Normal, 
#                                  "b" Biweight, "t" Triweight         

{
	if(type_kernel == "e")	
    result <- 1/5	
	else 
		if(type_kernel == "n")	
      result <- 1		 
	else 
		if(type_kernel == "b")	
		  result <- 1/7	 
	else 
		if(type_kernel == "t")	
      result <- 1/9	
  return(result)
}