##Question 5-7

# install.packages("quantmod")
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 = "2023-10-01", to = "2024-01-31")
## [1] "MSFT"
plot(MSFT$MSFT.Open)

##Question 10

# install.packages("pageviews")
library("pageviews")
wiki_data <- article_pageviews(project = "en.wikipedia",
                               article = "Microsoft",
                               start = "2023100100",
                               end = "2024013100")
str(wiki_data)
## 'data.frame':    123 obs. of  8 variables:
##  $ project    : chr  "wikipedia" "wikipedia" "wikipedia" "wikipedia" ...
##  $ language   : chr  "en" "en" "en" "en" ...
##  $ article    : chr  "Microsoft" "Microsoft" "Microsoft" "Microsoft" ...
##  $ access     : chr  "all-access" "all-access" "all-access" "all-access" ...
##  $ agent      : chr  "all-agents" "all-agents" "all-agents" "all-agents" ...
##  $ granularity: chr  "daily" "daily" "daily" "daily" ...
##  $ date       : POSIXct, format: "2023-10-01" "2023-10-02" ...
##  $ views      : num  8927 9271 14240 9662 9856 ...
high_view_days <- subset(wiki_data, views > 30000)
nrow(high_view_days)
## [1] 1