Getting Started with nCoder

library(ncodeR)

# Individual Pieces
data(RS.data)
rs_text = RS.data$text

Create Code

newcode = create.code(name = "Data", expressions = c("number","data"), excerpts = rs_text)

Handcode 4 excerpts

# newcode.h = handcode(code = newcode, excerpts = rs_text, n = 4)

Run test to see rho/kappa of current test set

# newcode.t = test(code = newcode.h, kappaThreshold = 0.65)