Nothing
## ---- warning = FALSE, message = FALSE----------------------------------------
library(perccalc)
library(dplyr)
library(ggplot2)
## ---- message = FALSE, warning = FALSE----------------------------------------
smoking_data <-
MASS::survey %>% # you will need to install the MASS package
as_tibble() %>%
select(Sex, Smoke, Pulse) %>%
rename(
gender = Sex,
smoke = Smoke,
pulse_rate = Pulse
)
## ---- echo = FALSE------------------------------------------------------------
smoking_data %>%
arrange(pulse_rate)
## -----------------------------------------------------------------------------
smoking_data <-
smoking_data %>%
mutate(smoke = factor(smoke,
levels = c("Never", "Occas", "Regul", "Heavy"),
ordered = TRUE))
perc_diff(smoking_data, smoke, pulse_rate)
## -----------------------------------------------------------------------------
perc_dist(smoking_data, smoke, pulse_rate) %>%
head()
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.