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

## Logistics

- Create the YAML part of the document. 
- We will be using `titanic_train` data frame from the `titanic` package. Load the package.
- Load the data frame by using the `data()` function (e.g. `data(data_frame_name)`)
- Load any other packages you will use in the data analysis here.

## Activity

### Question 1 - Subsetting Data

What are the names of passengers who have survived, were male, older than 18 years, embarked Titanic in Cherbourg and were traveling in the first class?

### Question 2 - Side-by-Side Box Plot

Compare the fare paid by survivors and non-survivor with a box-plot.
You should have 2 box-plots next to each other. 
You might run into an issue achieving this. 
Discuss in your groups what the problem might be and how you can possibly fix it. 
If similar problems occur in the rest of the document always fix the problem first even if there are no such prompts.
Once you achieve your side-by-side box plot make sure to label axes properly and use, themes and/or colors of your choice.


### Question 3 - Creating a New Variable

Create a new variable called `child`. If a person is less than 18 years the variable `child` should have a value of `TRUE`, if a person is 18 years old or older than the variable `child` should have a value of `FALSE`. Make sure not to use quotations around TRUE or FALSE. These are values known to R. If you use quotes R would make child be a character variable. If you do not use quotes then it would be a logical variable as it should be.


### Question 4 - Aggregating Data

What is the mean and median `fare` paid? 
What is the mean and median `fare` paid for each passenger class?  

Optional:Answer all these questions with a sentence using inline code. 
You can also use R chunks as needed.

## Question 5 - Your Own Question

Write a question that you are interested in answering with this data and answer it.

