test.cv <- function(...)
{
    data(iris)
    ## testing lda
    classys.classifier.cv(iris[,-5], iris[,5], cas[[3]], split.ratio = 1/5, type = "class", ...)
}