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

Fix for non-coded values in training set

parent 70632069
Pipeline #45925 passed with stages
in 5 minutes and 17 seconds
......@@ -46,6 +46,7 @@ test <- function(code, kappa_threshold = 0.65, baserate_inflation = 0.2) {
to.test = merge(code.to.use$computerSet, code.to.use$trainingSet, by = 1)
to.test[is.na(to.test[,3]), 3] = abs(to.test[is.na(to.test[,3]), 2] - 1)
to.test[!to.test[,3] %in% 0:1, 3] <- abs(to.test[!to.test[,3] %in% 0:1, 2] - 1)
first_v_classifier_train = calc_statistics(to.test)
}
......
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