# Usage
#######

source("compareToCV.R")

# rseed: >= 0 for reproducibility.
compareToCV(data, target_column_index, rseed = -1)

# Average over N runs:

> compareMulti(iris, 5, N=100)
[1] "error agghoo vs. cross-validation:"
[1] 0.04266667 0.04566667

> compareMulti(PimaIndiansDiabetes, 9, N=100)
[1] "error agghoo vs. cross-validation:"
[1] 0.2579221 0.2645455

# WARNING: slow!
> compareMulti(LetterRecognition, 1, N=100)
[1] "error agghoo vs. cross-validation:"
[1] 0.03870 0.04376