R/error.cdf.R

In bbefkr: Bayesian bandwidth estimation and semi-metric selection for the functional kernel regression with unknown error density

error.cdf <- function(band, eps, res.data)
{
    res = as.numeric(res.data)
    data.num = length(res)
    std.res = sd(res)
    epsilon = (res - mean(res))/std.res
    eps.std = (eps - mean(res))/std.res
    tem = (eps.std - epsilon)/band
    tem2 = pnorm(tem)
    hatf = sum(tem2)/data.num
    return(hatf)
}