# NOT RUN {
data(RS.data)
rs = RS.data
newcode = create.code(name = "Data",
expressions = c("number","data"), excerpts = rs$text)
code.set = code.set("Demo RS CodeSet", "CodeSet made for the demo",
excerpts = rs$text, codes = c(newcode))
summary(code.set)
# }
Run the code above in your browser using DataLab