# NOT RUN {
# Run it and see for yourself
# }
# NOT RUN {
data.tmp<-read.csv(system.file("ext", "testdata.csv", package="BullsEyeR"))
ds<-as.character(data.tmp$Story[1:2])
freqAnalysis(ds=ds,spvar=0.99,stemvar=0)
# }
Run the code above in your browser using DataLab