Nothing
## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
## ----eval=FALSE---------------------------------------------------------------
# install.packages("finalfit")
## ----warning=FALSE, message=FALSE---------------------------------------------
library(finalfit)
library(dplyr)
dependent = "differ.factor"
# Specify explanatory variables of interest
explanatory = c("age", "sex.factor",
"extent.factor", "obstruct.factor",
"nodes")
## ----warning=FALSE, message=FALSE---------------------------------------------
colon_s %>%
select(age, sex.factor, extent.factor, obstruct.factor, nodes) %>%
names() -> explanatory
## ----warning=FALSE, message=FALSE---------------------------------------------
colon_s %>%
ff_glimpse(dependent, explanatory)
## ----eval=FALSE---------------------------------------------------------------
# colon_s %>%
# summary_factorlist(dependent, explanatory,
# p=TRUE, na_include=TRUE)
## ----warning=FALSE, message=FALSE, echo=FALSE---------------------------------
colon_s %>%
summary_factorlist(dependent, explanatory,
p=TRUE, na_include=TRUE) %>%
knitr::kable(row.names=FALSE, align=c("l", "l", "r", "r", "r", "r"))
## ----eval=FALSE---------------------------------------------------------------
# explanatory = c("age", "sex.factor",
# "extent.factor", "nodes")
#
# colon_s %>%
# mutate(
# nodes = ff_label(nodes, "Lymph nodes involved")
# ) %>%
# summary_factorlist(dependent, explanatory,
# p=TRUE, na_include=TRUE,
# add_dependent_label=TRUE) -> table 1
# table1
## ----warning=FALSE, message=FALSE, echo=FALSE---------------------------------
explanatory = c("age", "sex.factor",
"extent.factor", "nodes")
colon_s %>%
mutate(
nodes = ff_label(nodes, "Lymph nodes involved")) %>%
summary_factorlist(dependent, explanatory,
p=TRUE, na_include=TRUE,
add_dependent_label=TRUE) %>%
knitr::kable(row.names=FALSE, align=c("l", "l", "r", "r", "r", "r"))
## ----eval=FALSE---------------------------------------------------------------
# explanatory = c("age", "sex.factor",
# "extent.factor", "nodes", "differ.factor")
# dependent = "mort_5yr"
# colon_s %>%
# finalfit(dependent, explanatory,
# dependent_label_prefix = "") -> table2
# table2
## ----warning=FALSE, message=FALSE, echo=FALSE---------------------------------
explanatory = c("age", "sex.factor",
"extent.factor", "nodes", "differ.factor")
dependent = "mort_5yr"
colon_s %>%
finalfit(dependent, explanatory,
dependent_label_prefix = "") %>%
knitr::kable(row.names=FALSE, align=c("l", "l", "r", "r", "r", "r"))
## ----warning=FALSE, message=FALSE, eval=FALSE---------------------------------
# colon_s %>%
# or_plot(dependent, explanatory,
# breaks = c(0.5, 1, 5, 10, 20, 30))
## ----eval=FALSE---------------------------------------------------------------
# # Save objects for knitr/markdown
# save(table1, table2, dependent, explanatory, file = "out.rda")
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.