################################################################################# ################################################################################# ### Example R code ### VPR task ### Barbora Hladka, Martin Holub ### ESSLLI 2015 ### http://ufal.mff.cuni.cz/esslli2015 ################################################################################# ################################################################################# source("vpr.functions.R") message("\n*** Cross-validation of the SVM models with different frequency thresholds ***") ### to see more details, set verbose=T for(threshold in 1:20) { result = svm.eval("submit", fr.threshold=threshold, verbose=F) message( sprintf( "Frequency threshold = %2d\t\t acc = %.4f\t ci = %.4f\t cost = %f", threshold, result$acc, result$ci, result$cost ) ) }