---
title: "STAT588/BIOL588 Final Project Template"
date: "`r Sys.Date()`"
author: John Doe
output: pdf_document
---
```{r setup, include=FALSE, echo=FALSE}
knitr::opts_chunk$set( warning = FALSE, message=FALSE,
                       fig.height = 8, fig.width = 8)
```
\section{Abstract-brief}


\section{Hypothesis or purpose of project [besides earning points]}

\section{Introduction/Background-brief}

\section{Method}
\subsection{Data}
Include databases; GEO accession number (GSEXXXX); websites & URLs.
\subsection{Statistical Model}
Write down the statistical models/methods you used for the analysis.
\section{Analysis Results}
The results from implementing the model is shown in Table 1 below. In additioan, Figure 1 below shows someting important too.

```{r Table, echo=FALSE}
library(knitr)
mat<-matrix(1:6, nrow=3)
rownames(mat)<-c("A", "B", "C")
colnames(mat)<-c("n=10", "n=20")
kable(mat, caption="A table")
```

```{r, fig.height=6, fig.width=6, echo=F, fig.align="center"}
library(viridis)
image(volcano, col=viridis(200))
```

\section{Discussion/Conclusion}
Discussion- make clear the significance of this proposal. Mention limitations, or further considerations. 

\section{Appendix}
R code can be found with the *.R file enclosed together with this report. 

\section{Reference}
References- literature, web sites- including support sites you used or will need for the project




#### Getting R code from .Rmd file 
Extract R code using purl function
```{r Extract R code, eval=FALSE}
library(knitr)
purl("Stat704_HWtemplate.Rmd")
```