Assignment-2.R

# install.packages("quantmod")
library(quantmod)

## Loading required package: xts

## Warning: package 'xts' was built under R version 4.3.3

## 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

#Question 5
getSymbols("MSFT", src="yahoo",from = "2023-10-01", to = "2024-01-31")

## [1] "MSFT"

#Question 6
nrow(MSFT)

## [1] 83

#Question 7
plot(MSFT$MSFT.Open)

#Question 8
# library(gtrendsR)
# MSFT <- gtrends(c("Microsoft"), time= "2022-10-01 2023-01-31")
# plot(MSFT)

#Question 10
# install.packages("pageviews")
library(pageviews)
data <- article_pageviews(project = "en.wikipedia", article = "Microsoft", start = "2023100100", end = "2024013100")
dim(data)

## [1] 123   8

#Question 11
over_30k <- subset(data, views > 30000)
nrow(over_30k)

## [1] 1