Assignment 2

Q5

library(quantmod)

getSymbols.yahoo("MSFT", .GlobalEnv, from = "2023-10-01", to = "2024-01-31", periodicity = "weekly")


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


getSymbols("Microsoft", src="yahoo",from = "2023-10-01", to = "2024-01-31")


getSymbols("Microsoft", src="yahoo",from = "2023-10-01", to = Sys.Date())


getSymbols(c("GOOG","AMZN"), src="yahoo")

Q6

nrow(MSFT)

[1] 83

Q8

library(readr)
multiTimeline <- read_csv("multiTimeline.csv")
View(multiTimeline)

plot(multiTimeline)

Q10

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

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

summary(views_data)
print(views_data)

Q11

(subset(views_data, views>30000))