# NOT RUN {
x <- c("A", "B", "C", "A", "B", "B", "D", "E", "B", "D", "A")
report(x)
model_table(x)
model_text(x)
summary(model_table(x))
summary(model_text(x))
library(report)
r <- report(iris, centrality = "median", dispersion = FALSE,
distribution = TRUE, missing_percentage = TRUE)
r
summary(r)
as.data.frame(r)
summary(as.data.frame(r))
if (require("dplyr")) {
r <- iris %>%
dplyr::group_by(Species) %>%
report()
r
summary(r)
as.data.frame(r)
summary(as.data.frame(r))
}
x <- factor(rep(c("A", "B", "C"), 10))
report(x)
model_table(x)
model_text(x)
summary(model_table(x))
summary(model_text(x))
x <- rnorm(1000)
report(x)
report(x, centrality = "median", missing_percentage = TRUE, distribution = TRUE)
model_table(x)
model_text(x)
summary(model_table(x))
summary(model_text(x))
# }
Run the code above in your browser using DataLab