# 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))
as.data.frame(code.set)
# }
Run the code above in your browser using DataLab