require(Hmisc) set.seed(1) x1 <- runif(100) x2 <- sample(1:5, 100, TRUE) x3 <- sample(c('dig', 'cat', 'giraffe'), 100, TRUE) d <- data.frame(x1, x2, x3) describe(d) html(describe(d))
html(describe(x1))
html(describe(data.frame(x1)))
x = c(0, 0, 0, 0, 2053, 2098, 0, 2053, 2098, 2, 5, 0, 0, 0, 5, 13, 13, 0, 2053, 2098) length(unique(x)) table(x) d <- describe(x) d d$values
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.