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

Always track touched excerpts

parent 5649224b
......@@ -73,6 +73,7 @@ getHandSetIndices2 = function(
# autocode excerpt at this single indice
autocoded = codeToUse$process(codeToUse$excerpts[randIndice])
codeToUse$touchedIndices = c(codeToUse$touchedIndices, randIndice)
if(autocoded == 1){
positives = positives - 1;
this.set = c(this.set, randIndice) # only adding positive indices to handset
......@@ -87,7 +88,7 @@ getHandSetIndices2 = function(
codeToUse$computerSet = rbind(codeToUse$computerSet, c(randIndice, autocoded))
}
else{ # if max number of nonPositve indices is reached, save indice, but don't add to set
codeToUse$touchedIndices = c(codeToUse$touchedIndices, randIndice)
}
}
}
......@@ -126,6 +127,7 @@ getHandSetIndices2 = function(
autocoded = codeToUse$process(codeToUse$excerpts[this.set])
codeToUse$computerSet = rbind(codeToUse$computerSet, data.frame("ID" = this.set, "X1" = autocoded))
codeToUse$touchedIndices <- c(codeToUse$touchedIndices, this.set)
codeToUse$testSet = rbind(
codeToUse$testSet,
data.frame(ID=this.set, X1=NA)
......
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