---
title: "Lab 1"
author:  "ADD YOUR NAME HERE"
date: now
date-format: "DD/MM/YYYY HH:MM"
format:
    pdf
  #  html:
   #   theme: a11y
   #   highlight-style: a11y
  #    self-contained: true
---

<!---Exercises to be completed for Lab 1 can be accessed at this link:

https://biometrylabs.netlify.app/lab1/lab1_instructions
--->

<!-- Instructions for using this template: This is the template you will use to type up your responses to the exercises and the on your own questions. To do to complete the lab is to type up your BRIEF answers and the R code (when necessary) in the spaces provided below. Then, to produce a document that you can turn in, click on Render button above. -->


#### Load R libraries

```{r}
#| warning: false
#| message: false
library(mosaic)
library(knitr)
library(dplyr)
```


## Load the Isle Royale data

```{r}
isleRoyale<-read.csv("isleRoyale.csv")
```

 
  

#### Exercise 1: 

Below, enter code to extract just the counts of moose in each year
```{r}
select(isleRoyale, Moose)
minwolf

```

 
#### Exercise 2:

Enter code, below, to create a plot of the number of moose over time. 

```{r}

```

Question:  Describe how the moose population has varied over time.

Answer (refer to the plot above):



#### Exercise 3:

What is the maximum and minimum number of wolves that have been counted on Isle Royale?  {Hint:  commands min and max may come in handy} Type your R code, below, to get the answer:

```{r}

```


#### Exercise 4:

Determine the year with the largest wolf count. Hint 1: think 'max' rather than 'mean';  Hint2:  use double equals (==) to ask for values "equal to".

```{r}


```

 
#### Excercise 5:

Calculate the minimum number of wolves separately for the years before 1996 and the years after 1996.	

 
```{r}


```