my_brilliant_paper.Rmd

---
title: "my_brilliant_paper"
author: "Saras Windecker"
date: "01/07/2019"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## R Markdown

Here is my decomposition data in its raw format. 

```{r}
decay_data <- read.csv('data/decay_data.csv')
```

```{r}
plot(decay_data$t, decay_data$mass_rem, 
     pch = 20, cex = 0.4, 
     xlab = 'Time (years)', ylab = 'Mass')
```

Here I plot the log-transformed data using ggplot2. This is mainly to illustrate adding a package to my code, so forgive my aesthetically un-pleasing plot. 

```{r}
library(ggplot2)
ggplot(decay_data, aes(x = t, y = mRem)) + geom_point()
```