---
title: "Midterm"
author: "Your Name"
date: "10/24/2021"
output: pdf_document
---

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

Please complete this midterm using RMarkdown. You may use your notes, the textbook, homework solutions, etc. when working on the problems--the only thing you may not do is discuss the midterm with your classmates or others. If you have any questions, please email me.

# Hotel Prices (7 pts)

```{r, echo = FALSE, fig.height = 3}
lodging_prices <- data.frame(Nightly_Rate = c(131, 180, 169, 181, 158, 734, 84, 129, 91, 138, 93, 90, 189, 124, 120, 265, 140, 174, 245, 441, 650, 189, 182, 148, 341, 295, 225, 275, 201, 125, 225),
                           Miles_Away = c(2.4, 1.0, 2.5, 2.9, 0.6, 1.6, 2.3, 0.7, 1.8, 0.5, 2.4, 0.8, 0.6, 0.5, 1.6, 0.5, 0.6, 1.0, 1.3, 0.5, 1.9, 0.3, 3.2, 2.3, 0.5, 2.8, 1.6, 1.2, 1.0, 0.4, 0.8), 
                           Avg_Rating = c(8.4, 9.4, 8.0, 7.4, 9.8, 9.8, 7.2, 7.8, 9.2, 9.0, 7.4, 9.2, 9.2, 9.6, 8.4, 8.8, 10.0, 9.2, 10, NA, 9.6, 9.0, 9.6, 8.6, 8.0, 10.0, 8.8, 9.6, NA, 9.8, 10.0), 
                           Type = c("Hotel", "Hotel", "Hotel", "Hotel", "Condo", "Home", "Hotel", "Hotel", "Hotel", "Hotel", "Hotel", "Hotel", "Hotel", "Condo", "Hotel", "Condo", "Condo", "Condo", "Home", "Condo", "Home", "Home", "Condo", "Condo", "Home", "Condo", "Condo", "Home", "Home", "Home", "Condo"),
                           Free_Parking = c(1, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 1, 1, 0, 1, 0, 1, 1, 1, 0, 1, 1, 0, 1, 0, 1, 1), 
                           Internet = c(1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0), 
                           Number_Reviews = c(213, 361, 188, 221, 14, 36, 898, 166, 93, 13, 698, 87, 662, 13, 297, 8, 9, 18, 33, 0, 4, 6, 6, 3, 1, 4, 5, 6, 0, 71, 1))

rownames(lodging_prices) <- c("The Village of Loon Mountain", "InnSeason Resorts Pollard Brook", "Franconia Notch Motel", "Indian Head Resort", "Lincoln Condo", "Luxury Loon Mountain Home", "Woodwards White Mountain Resort", "Kancamagus Lodge", "Profile Motel and Cottages", "Lincoln Resort Condo", "Days Inn", "Riverbank Motel and Cabins", "Holiday Inn", "Cozy Condo with Mountain View", "Quality Inn and Suites", "Nordic Inn Condo", "White Mountain Base Camp", "Riverfront Lincoln Condo", "New Log Cabin", "Forest Ridge Condo", "Five Bedroom Townhome", "Clean and Cozy House", "Ski Mountain Condo", "Village of Loon Mountain Condo", "Charming Home", "Kanc Kabin", "Ski Resort at Loon Mountain", "Lady's Bath Home", "Loft Unit at Inns of Waterville Valley", "Home near White Mountains", "Lincoln Station Retreat")

lodging_prices <- lodging_prices %>%
  filter(is.na(Avg_Rating) == FALSE)
```

# Moose Tours (18 points)

# Fall Foliage Activities (15 points)

# Pancakes for Breakfast (15 points)

# More Pancakes (15 points)

# T-Shirt Sales (8 points)

# Mount Washington (14 points)