Verified Commit b6afe0a2 authored by Cody L Marquart's avatar Cody L Marquart
Browse files

Updates to the stats

parent a57c64b8
......@@ -14,9 +14,10 @@ calc_statistics <- function(set, kappa_threshold = 0.9, baserate_inflation = 0.2
}
)
}
stats$N <- nrow(set)
stats$set <- set
stats$kappa_threshold <- kappa_threshold;
stats$N <- nrow(set);
stats$set <- set;
stats
}
......@@ -106,6 +107,8 @@ test <- function(code, kappa_threshold = 0.65, baserate_inflation = 0.2, ...) {
one_v_classifier = first_v_classifier,
one_v_two = test_result(test_set = first_v_second, training_set = first_v_second_train),
two_v_classifier = test_result(test_set = second_v_classifier, training_set = second_v_classifier_train),
kappa_threshold = kappa_threshold,
baserate_inflation = baserate_inflation,
classifier = cloned_code
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment