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

knitr::opts_chunk$set(echo = TRUE,
                      warning = FALSE,
                      message = FALSE,
                      include = TRUE,
                      eval= TRUE
                      )

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')

t.test(BrainSize~LitterSize, data = brain, var.equal= TRUE)

## Introduction

## Statistical Procedures Used

## Summary of Statistical Findings

## Scope of Inference

## Appendix