## Goal: simulate data from various models, and evaluate the
## performance of a classifier based on training and test sets.

source("utils.R")

flist <-
    list(bvnCreator(c(-1, 1,  1),
                    c( 1, 1, -1)),
         bvnCreator(-1, -1))

df.train <-
    simulateData(n = 200, 
                 lapply(flist, "[[", "rfun"))


if (FALSE)
{
    xyplot(X2 ~ X1, data = df.train, groups = which)
}