# approximate calculation for a kernel density estimate
data(geyser, package="locfit")
lscv(~geyser, alpha=cbind(0,1), ev="grid", mg=100, deg=0,
flim=c(1,6), kern="gauss")
# same computation, exact
lscv(geyser,alpha=1,exact=TRUE)
Run the code above in your browser using DataLab