Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#",
warning = FALSE,
message = FALSE
)
## -----------------------------------------------------------------------------
library(dplyr)
library(tidyr)
chd_smoke <-
tribble(~smoke, ~chd_died,~n,
TRUE, TRUE,69,
TRUE, FALSE, 10263,
FALSE, TRUE, 100,
FALSE, FALSE, 24008) %>%
uncount(n)
## -----------------------------------------------------------------------------
library(twoxtwo)
chd_smoke %>%
twoxtwo(., exposure = smoke, outcome = chd_died)
## -----------------------------------------------------------------------------
chd_smoke %>%
arp(exposure = smoke, outcome = chd_died)
## -----------------------------------------------------------------------------
chd_smoke %>%
arp(exposure = smoke, outcome = chd_died, percent = TRUE)
## -----------------------------------------------------------------------------
chd_smoke %>%
parp(exposure = smoke, outcome = chd_died)
## -----------------------------------------------------------------------------
chd_smoke %>%
parp(exposure = smoke, outcome = chd_died, percent = TRUE)
## -----------------------------------------------------------------------------
chd_smoke %>%
parp(exposure = smoke, outcome = chd_died, percent = TRUE, prevalence = 0.2)
## -----------------------------------------------------------------------------
chd_smoke %>%
ein(exposure = smoke, outcome = chd_died)
## -----------------------------------------------------------------------------
chd_smoke %>%
cin(exposure = smoke, outcome = chd_died)
## -----------------------------------------------------------------------------
chd_smoke %>%
ecin(exposure = smoke, outcome = chd_died)
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.