Assignment_2

Question 1

No Code Required

Question 2

No Code Required

Question 3

No Code Required

Question 4

No Code Required

Question 5

No Code Required

Question 6

#Get Daily Microsoft prices
library(quantmod)

## Loading required package: xts

## Loading required package: zoo

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Loading required package: TTR

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

getSymbols("MSFT",
           src = "yahoo",
           from = "2025-10-01",
           to   = "2026-02-01")

## [1] "MSFT"

Question 7

#Number of rows in dataset
nrow(MSFT)

## [1] 84

Question 8

max_open <- max(MSFT$MSFT.Open, na.rm = TRUE)

dates_max_open <- index(MSFT)[MSFT$MSFT.Open == max_open]
dates_max_open

## [1] "2025-10-28"

Question 9

No Code Required

Question 10

#Install Packages
library(pacman)
pacman::p_load(robotstxt, rvest)

paths_allowed("https://www.premierleague.com/en/tables/premier-league/2024-25") 

##  www.premierleague.com

## [1] TRUE

prem_ref <- read_html("https://www.premierleague.com/en/tables/premier-league/2024-25")

# table creation
table_html <- html_elements(prem_ref, "table")