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

Clear vignette code

parent ea139f3b
Pipeline #45804 failed with stages
in 2 minutes and 38 seconds
......@@ -38,13 +38,15 @@ test <- function(code, kappa_threshold = 0.65, baserate_inflation = 0.2) {
second_v_classifier <- NULL
if(nrow(code$testSet) > 0) {
to.test <- merge(code.to.use$computerSet, code.to.use$testSet, by = "ID")
if(!any(is.na(to.test[, 2:3])))
first_v_classifier_test = calc_statistics(to.test)
}
if(nrow(code.to.use$trainingSet) > 0) {
to.test = merge(code.to.use$computerSet, code.to.use$trainingSet, by = "ID")
if(!any(is.na(to.test[, 2:3])))
first_v_classifier_train = calc_statistics(to.test)
to.test[is.na(to.test[,3]), 3] = abs(to.test[is.na(to.test[,3]), 2] - 1)
first_v_classifier_train = calc_statistics(to.test)
}
first_v_classifier <- test_result(
......
......@@ -29,12 +29,12 @@ newcode = create.code(name = "Data", expressions = c("number","data"), excerpts
## Handcode 4 excerpts
```{r}
newcode.h = handcode(code = newcode, excerpts = rs_text, n = 4)
# newcode.h = handcode(code = newcode, excerpts = rs_text, n = 4)
```
## Run test to see rho/kappa of current test set
```{r}
newcode.t = test(code = newcode.h, kappaThreshold = 0.65)
# newcode.t = test(code = newcode.h, kappaThreshold = 0.65)
```
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