Assignment2_Costello

Question 3: Package Install and Activation

library(quantmod)

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

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

Question 6, 7: Stock Prices

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

## [1] "MSFT"

dim(MSFT)

## [1] 83  6

Question 8: Microsoft’s Open prices reach the highest

plot(MSFT$MSFT.Open)

# Question 9: Wikipedia views data for Microsoft in English

library(pageviews)
wiki_views <- article_pageviews(
  article = "Microsoft",
  start = "2024100100",
  end = "2025013100" 
  )

Question 10: Wikipedia Views

high_views <- wiki_views[wiki_views$views > 30000, ]
nrow(high_views)

## [1] 1