This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
title: "" | |
output: html_document | |
--- | |
```{r setup, include=FALSE} | |
knitr::opts_chunk$set(echo = TRUE) | |
``` | |
### CV |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#library(tidyverse) | |
#library(kable) | |
#library(kableExtra) | |
## read in table entitled table here | |
#table <- read_csv(./data/table) # etc. | |
knitr::kable(table, "latex", booktabs = TRUE, longtable = TRUE) %>% | |
column_spec(2, width = "8cm") %>% | |
column_spec(3, width = "4cm") %>% |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
title: "" | |
author: you | |
header-includes: | |
\renewcommand{\contentsname}{} | |
output: | |
pdf_document: | |
fig_caption: no | |
toc: TRUE | |
toc_depth: 3 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
grades <- grades %>% | |
mutate(ID = str_sub(student.ID, start = -5)) %>% | |
select(ID, everything()) %>% | |
na.exclude(.) #dplyr dependency |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
marks <- marks %>% | |
mutate(grade = | |
ifelse(percent < 45, "F", | |
ifelse(percent < 50, "E", | |
ifelse(percent < 55, "D", | |
ifelse(percent < 60, "D+", | |
ifelse(percent < 65, "C", | |
ifelse(percent < 70, "C+", | |
ifelse(percent < 75, "B", | |
ifelse(percent < 80, "B+", |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
# make example data | |
# summary stats from Feltz and Miller 1996 | |
# http://onlinelibrary.wiley.com.sci-hub.cc/doi/10.1002/(SICI)1097-0258(19960330)15:6%3C647::AID-SIM184%3E3.0.CO;2-P/epdf | |
# (originally http://www.tandfonline.com.sci-hub.cc/doi/abs/10.1080/15321819308019845?journalCode=ljii19 | |
miller <- data_frame(test = c('ELISA', 'WEHI', '`Viral inhibition`'), | |
Mean = c(6.8, 8.5, 6.0), |