logo <- system.file("figures", "sph_cida_wm_blk.png", package="CIDAtools") knitr::include_graphics(logo)
knitr::opts_chunk$set(echo = FALSE) library(tidyverse) library(knitr) library(kableExtra) library(table1)
Introduction text
Methods text
Tables/Figures/Results section
Figure 1
data("cars") plot(cars$speed, cars$dist, pch = 20)
Table 1
# See https://cran.r-project.org/web/packages/table1/vignettes/table1-examples.html cars$group <- paste0("Group " , rep(1:2,25)) label(cars$speed) <- "Speed" label(cars$dist) <- "Stopping distance" units(cars$speed) <- "mph" units(cars$dist) <- "ft" table1(~speed + dist | group, data = cars)
Interpretations, discussion
knitr::include_graphics(logo)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.