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)

Project Summary

Introduction

Introduction text

Methods

Methods text

Results

Descriptive Statistics

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)

Main Analysis

Conclusions

Interpretations, discussion

References

Appendix


knitr::include_graphics(logo)


CIDA-CSPH/CIDAtools documentation built on Sept. 18, 2023, 10:55 a.m.