Nothing
npregCv <- function( x ) {
xDat <- x$eval
yDat <- fitted(x) + residuals(x)
res <- rep( NA, nrow( xDat ) )
for( i in 1:nrow( xDat ) ) {
tmp <- npreg( bws = x$bws, tydat = yDat[-i], txdat = xDat[-i,],
exdat = xDat[i,] )
res[ i ] <- yDat[ i ] - fitted( tmp )
}
cv <- mean( res^2 )
attr( cv, "err" ) <- res
return( cv )
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.