Nothing
## ---- echo = F, message = F, warning = F--------------------------------------
library(desctable)
options(DT.options = list(#scrollX = T,
info = F,
search = F,
dom = "Brtip",
fixedColumns = T))
knitr::opts_chunk$set(message = F, warning = F, screenshot.force = F)
## -----------------------------------------------------------------------------
iris %>%
desctable()
desctable(mtcars)
## -----------------------------------------------------------------------------
iris %>%
desctable() %>%
pander()
mtcars %>%
desctable() %>%
datatable()
## -----------------------------------------------------------------------------
# Strictly equivalent to iris %>% desctable() %>% datatable()
iris %>%
desctable(stats = stats_auto) %>%
datatable()
## ---- echo = F----------------------------------------------------------------
print(stats_auto)
## -----------------------------------------------------------------------------
mtcars %>%
desctable(stats = list("N" = length, "Mean" = mean, "SD" = sd)) %>%
datatable()
## -----------------------------------------------------------------------------
mtlabels <- c(mpg = "Miles/(US) gallon",
cyl = "Number of cylinders",
disp = "Displacement (cu.in.)",
hp = "Gross horsepower",
drat = "Rear axle ratio",
wt = "Weight (1000 lbs)",
qsec = "ΒΌ mile time",
vs = "V/S",
am = "Transmission",
gear = "Number of forward gears",
carb = "Number of carburetors")
mtcars %>%
dplyr::mutate(am = factor(am, labels = c("Automatic", "Manual"))) %>%
desctable(labels = mtlabels) %>%
datatable()
## -----------------------------------------------------------------------------
iris %>%
group_by(Species) %>%
desctable() -> iris_by_Species
iris_by_Species
## -----------------------------------------------------------------------------
str(iris_by_Species)
## -----------------------------------------------------------------------------
# With pander output
mtcars %>%
group_by(cyl) %>%
desctable() %>%
pander()
## -----------------------------------------------------------------------------
# With datatable output
iris %>%
group_by(Petal.Length > 5) %>%
desctable() %>%
datatable()
## ---- message = F, warning = F------------------------------------------------
mtcars %>%
dplyr::mutate(am = factor(am, labels = c("Automatic", "Manual"))) %>%
group_by(vs, am, cyl) %>%
desctable() %>%
datatable()
## -----------------------------------------------------------------------------
# Strictly equivalent to iris %>% group_by(Species) %>% desctable() %>% datatable()
iris %>%
group_by(Species) %>%
desctable(tests = tests_auto) %>%
datatable()
## ---- echo = F----------------------------------------------------------------
print(tests_auto)
## -----------------------------------------------------------------------------
iris %>%
group_by(Petal.Length > 5) %>%
desctable(tests = list(.auto = tests_auto,
Species = ~chisq.test)) %>%
datatable()
## -----------------------------------------------------------------------------
mtcars %>%
dplyr::mutate(am = factor(am, labels = c("Automatic", "Manual"))) %>%
group_by(am) %>%
desctable(tests = list(.default = ~wilcox.test,
mpg = ~t.test)) %>%
datatable()
## -----------------------------------------------------------------------------
iris %>%
group_by(Petal.Length > 5) %>%
desctable(tests = list(.auto = tests_auto,
Petal.Width = ~oneway.test(., var.equal = T)))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.