---
# System prepended metadata

title: A Truly Great Title

---

---
title: "A Truly Great Title"
author: "We Worked Hard on This"
header-includes:
    - \usepackage{setspace}\doublespacing
output:
  pdf_document: default
  word_document: default
---

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

```{r}
library(mosaic)
library(Sleuth3)
library(beanplot)
library(MASS)

brain <- ex0333
favstats(BrainSize~LitterSize, data = brain)
hist(brain$BrainSize[brain$LitterSize=='Large'])
hist(brain$BrainSize[brain$LitterSize=='Small'])
beanplot(BrainSize~LitterSize, log='', data = brain, ylab='Relative Brain Size', xlab ='Mammal Litter Size', main='Plot 1: Distribution of brain size in mammals based on litter size')

#Transform:
lm1<-lm(brain$BrainSize~1)
boxcox(lm1, title ='Boxcox plot to estimate transformation parameter')

brain$BrainSize <- log(brain$BrainSize)
favstats(BrainSize~LitterSize, data = brain)
hist(brain$BrainSize[brain$LitterSize=='Large'])
hist(brain$BrainSize[brain$LitterSize=='Small'])
beanplot(BrainSize~LitterSize, log='', data = brain, ylab='Log-transformed Relative Brain Size', xlab ='Mammal Litter Size', main = 'Plot 3: Log-Transformed distribution of
         brain size in mammals based on litter size')
```
```{r}
t.test(BrainSize~LitterSize, data = brain, var.equal= TRUE)
```



## Introduction

## Statistical Procedures Used

## Summary of Statistical Findings

## Scope of Inference

## Appendix

```{r}

```
