Assignment 2

Q. 5,6,7

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)

Q. 8,9

viewed the csv file and sorted the data, had issues installing the gtrends package

Q. 10,11

library(pageviews)

view_data <- article_pageviews(
  project = "en.wikipedia",
  page = "Microsoft",
  start = "2023100100",
  end = "2024013100",
  user_type = "all",
  granularity = "daily")

summary(view_data)

   project            language           article         
 Length:123         Length:123         Length:123        
 Class :character   Class :character   Class :character  
 Mode  :character   Mode  :character   Mode  :character  
                                                         
                                                         
                                                         
    access             agent           granularity       
 Length:123         Length:123         Length:123        
 Class :character   Class :character   Class :character  
 Mode  :character   Mode  :character   Mode  :character  
                                                         
                                                         
                                                         
      date                         views      
 Min.   :2023-10-01 00:00:00   Min.   : 3960  
 1st Qu.:2023-10-31 12:00:00   1st Qu.: 5518  
 Median :2023-12-01 00:00:00   Median : 6073  
 Mean   :2023-12-01 00:00:00   Mean   : 8171  
 3rd Qu.:2023-12-31 12:00:00   3rd Qu.: 7130  
 Max.   :2024-01-31 00:00:00   Max.   :32730  

subset(view_data, 
       views >= 30000, )