## ------------------------------------------------------------------------
library(foofactors)
a <- factor(c("character", "hits", "your", "eyeballs"))
b <- factor(c("but", "integer", "where it", "counts"))
## ------------------------------------------------------------------------
c(a, b)
## ------------------------------------------------------------------------
fbind(a, b)
## ------------------------------------------------------------------------
set.seed(1234)
x <- factor(sample(letters[1:5], size = 100, replace = TRUE))
table(x)
as.data.frame(table(x))
## ------------------------------------------------------------------------
freq_out(x)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.