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