X <- rexp(1000,1)
 par(mfrow=c(2,2))
 Kern_general(Data=X, bw='Irt', k="gaussian", Law = c("exp"))
 Kern_general(Data=X, bw='scott', k="gaussian", Law = c("exp"))
 Kern_general(Data=X, bw='Ucv', k="gaussian", Law = c("exp"))
 Kern_general(Data=X, bw=0.3, k="gaussian", Law = c("exp"))Run the code above in your browser using DataLab