# NOT RUN {
## read Brown spectrum
data(Brown.spc)
summary(Brown.spc)
## sample a spectrum of 100k tokens
MiniBrown.spc <- sample.spc(Brown.spc,1e+5)
summary(MiniBrown.spc)
## if we repat, we get a different sample
MiniBrown.spc <- sample.spc(Brown.spc,1e+5)
summary(MiniBrown.spc)
# }
Run the code above in your browser using DataLab