## classical {trivial, not interesting}:
F1 <- function(x) rep.int(1, length(x))
cPsi <- psiFunc(rho = function(x) x^2 / 2, psi = function(x) x,
wgt = F1, Dpsi = F1,
Erho = function(x) rep.int(1/2, length(x)),
Epsi2 = F1, EDpsi = F1)
Run the code above in your browser using DataLab