# \donttest{
# Use ECB example data
rate <- ecb$rate
x <- ecb$x[,1:3,drop=FALSE]
cvKeep <- cvfit(x,rate,folds=5,alltype=c("logistic","arctan"),parallel=TRUE)
cvfitplot(cvKeep)
# Add results from non-parameteric curves
cvRF <- cvnpcurve(x,rate,cvKeep$cvIndex)
cvSP <- cvnpcurve(x,rate,cvKeep$cvIndex,type="spline")
cvfitplot(cvKeep,cvRF=cvRF,cvSP=cvSP)
# }
Run the code above in your browser using DataLab