---
title: "STAT540 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{Hypothesis or analysis goals of the project}

\section{Introduction/Background-brief}

\section{Data Description}
Include databases;websites & URLs. Data Preparation steps (such as selection of relevant columns and filtering)

\section{Analysis Results}
\subsection{Descriptive/Exploratory Data Analysis}

\subsection{Occupancy Analysis}
The results from the first analysis is shown in Table 1 below. In addition, Figure 1 below shows something important too.

\subsection{Reveiw Analysis}

\subsection{Comparison Analysis}

```{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 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")
```