if (FALSE) {
dist_tab(rnorm(10000), 10)
dist_tab(sample(c("red", "blue", "gray"), 100, T), right = FALSE)
dist_tab(CO2, 4)
out1 <- dist_tab(mtcars[, 1:3])
ltruncdf(out1, 4)
out2 <- dist_tab(mtcars[, 1:3], 4)
ltruncdf(out2, 4)
wdst <- with(mraja1spl, word_stats(dialogue, list(sex, fam.aff, died)))
out3 <- dist_tab(wdst$gts[1:4])
ltruncdf(out3, 4)
}
Run the code above in your browser using DataLab