HomeworkWeekTwo.Rmd

---
title: "HomeworkWeekTwo"
output: html_document
date: "2026-01-29"
---

```{r eval=FALSE}
even_numbers = seq(2, 100, by = 2)
squares = even_numbers^2
roots = sqrt(even_numbers)

data.frame(even_numbers, squares, roots)
```

```{r eval=FALSE}
one_to_ten <- 1:10
one_to_ten + 1000
one_to_ten + c(1000, 2000)
one_to_ten + c(1000,2000,3000)
one_to_ten + c(1000,2000,3000,4000,5000)
```
Notes:
adding a number such as 1000 to a vector adds it to every element 
adding a vector to a vector of different sizes will add the elements in the first vector to the second in the order repeatedly 

```{r eval=FALSE}
brexit <- read.csv("brexit.csv")

mean_percentage_leave_london <- mean(brexit$percent_leave[brexit$region == "London"])

```
Mean Percentage of Leave Vote in London = 39.046%
```{r eval=FALSE}
mean_remain_perdominanty_rural <- mean(brexit$remain_votes[brexit$area_type == "Predominantly Rural"], na.rm = TRUE)

mean_remain_perdominanty_rural
```
Average Remain vote in predominantly rural = 32646
```{r eval=FALSE}
total_leave <- sum(brexit$leave_votes)
total_remain <- sum(brexit$remain_votes)
```
Total Leave = 17060477
Total Remain = 15681212
```{r eval=FALSE}
highest_median_age <- max(brexit$median_age)
brexit$area[brexit$median_age == highest_median_age]
```
Highest Median Age = 54.6
Area = "West Somerset"

## Other Operators 

These are OR operators:
```{r eval=FALSE}
brexit$area[brexit$region == "North East" | brexit$region == "North West"]

brexit$percent_leave[brexit$region == "North East" | brexit$region == "North West"]

brexit$percent_leave[brexit$region %in% c("North East", "North West")]
```

These are AND operators 
```{R eval=FALSE}
brexit$percent_leave[brexit$median_age > 35 & brexit$median_age < 45]

brexit$percent_leave[brexit$region == "South East" & brexit$area_type == "Predominantly Urban"]

```

NA is a spcial value:
``` {R eval=FALSE}
brexit$area[is.na(brexit$percent_UK_born)]
```
```{R eval=FALSE}
brexit$result <- NA

brexit$result[brexit$percent_leave >= 60] <- "Strong Leave"
brexit$result[brexit$percent_leave >= 50 & brexit$percent_leave < 60] <- "Weak Leave"
brexit$result[brexit$percent_leave >= 40 & brexit$percent_leave < 50] <- "Weak Remain"
brexit$result[brexit$percent_leave < 40] <- "Strong Remain"

table(brexit$result)

mean(brexit$percent_white[brexit$result == "Strong Leave"])
mean(brexit$percent_white[brexit$result == "Weak Leave"])
mean(brexit$percent_white[brexit$result == "Weak Remain"])
mean(brexit$percent_white[brexit$result == "Strong Remain"])
```