documentation.Rmd

---
title: "Oral Dosing"
author: "Sungpil Han"
date: '2017-07-08'
output:
  pdf_document:
    toc: yes
  html_document:
    df_print: tibble
    toc: yes
---

# IV Dosing Simulation

```{r include = FALSE}
library(knitr)
knitr::opts_chunk$set(results = 'asis', echo = FALSE)
load('result/output.Rdata')
```

## Setting variables

```{r}
kable(inputRaw)
```

## Concentration-time plot

```{r echo = FALSE, fig.width=3}
if (grepl('result', getwd())) {
  include_graphics('concTimePlot.jpg')
} else {
  include_graphics('result/concTimePlot.jpg')  
}
```

## Individual concentration-time plot

```{r echo = FALSE, fig.width=3}
if (grepl('result', getwd())) {
  include_graphics('concTimeFacet.jpg')
} else {
  include_graphics('result/concTimeFacet.jpg')  
}
```

# Appendix

## Source table

```{r}
kable(output$concTable)
```