# Only set if the Rmd file is not in the parent directory (ie. 'projectname/') knitr::opts_knit$set(root.dir = '../') knitr::opts_chunk$set(collapse = TRUE, echo = FALSE, message = FALSE, warning = FALSE) library(tidyverse) devtools::load_all() load_data(update = TRUE) set_options() # extrafont::loadfonts(device="win")
dsMed <- read.csv("../promise/data-raw/all-db-form121med.csv")
Number of subjects n = 746
dsMed %>% dplyr::group_by(SID) %>% dplyr::summarise(n = n())
Use of statins
statins <- c("Pravastatin", "Pravachol", "Selektine", "Rosuvastatin", "Crestor", "Rosulip", "Zuvamor", "Atorvastatin", "Lipitor", "Atorva") dsMed %>% dplyr::group_by(MedName) %>% dplyr::filter(MedName %in% statins) %>% dplyr::summarise(n = n())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.