Assignment 2

library(wbstats)

Question 5

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(c("NVDA", "TSLA"), source = "yahoo")

## [1] "NVDA" "TSLA"

getSymbols(c("NVDA", "TSLA"), source = "FRED")

## [1] "NVDA" "TSLA"

getSymbols(c("NVDA", "TSLA"), source = "OANDA")

## [1] "NVDA" "TSLA"

getSymbols(c("NVDA", "TSLA"), source = "google")

## [1] "NVDA" "TSLA"

getSymbols(c("NVDA", "TSLA"), source = "MySQL")

## [1] "NVDA" "TSLA"

getSymbols(c("NVDA", "TSLA"), source = "RData")

## [1] "NVDA" "TSLA"

getSymbols(c("NVDA", "TSLA"), source = "csv")

## [1] "NVDA" "TSLA"

getSymbols(c("NVDA", "TSLA"), source = "Alpha Vantage")

## [1] "NVDA" "TSLA"

getSymbols(c("NVDA", "TSLA"), source = "yahoo")

## [1] "NVDA" "TSLA"

tail(NVDA,10)

##            NVDA.Open NVDA.High NVDA.Low NVDA.Close NVDA.Volume NVDA.Adjusted
## 2025-01-24    148.37    148.97   141.88     142.62   234657600        142.62
## 2025-01-27    124.80    128.40   116.70     118.42   818830900        118.42
## 2025-01-28    121.81    129.00   116.25     128.99   579666400        128.99
## 2025-01-29    126.50    126.89   120.05     123.70   467120600        123.70
## 2025-01-30    123.10    125.00   118.10     124.65   392925500        124.65
## 2025-01-31    123.78    127.85   119.19     120.07   390372900        120.07
## 2025-02-03    114.75    118.57   113.01     116.66   371235700        116.66
## 2025-02-04    116.96    121.20   116.70     118.65   256550000        118.65
## 2025-02-05    121.76    125.00   120.76     124.83   262230800        124.83
## 2025-02-06    127.42    128.77   125.21     128.68   251483600        128.68

getSymbols(c("FPCPITOTLZGCHN","FPCPITOTLZGEGY","FPCPITOTLZGUSA"), src="FRED")

## [1] "FPCPITOTLZGCHN" "FPCPITOTLZGEGY" "FPCPITOTLZGUSA"

tail(FPCPITOTLZGUSA)

##            FPCPITOTLZGUSA
## 2018-01-01       2.442583
## 2019-01-01       1.812210
## 2020-01-01       1.233584
## 2021-01-01       4.697859
## 2022-01-01       8.002800
## 2023-01-01       4.116338

Question 6

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

## [1] "MSFT"

head(MSFT)

##            MSFT.Open MSFT.High MSFT.Low MSFT.Close MSFT.Volume MSFT.Adjusted
## 2024-10-01    428.45    428.48   418.81     420.69    19092900      419.8496
## 2024-10-02    422.58    422.82   416.71     417.13    16582300      416.2967
## 2024-10-03    417.63    419.55   414.29     416.54    13686400      415.7079
## 2024-10-04    418.24    419.75   414.97     416.06    19169700      415.2289
## 2024-10-07    416.00    417.11   409.00     409.54    20919800      408.7219
## 2024-10-08    410.90    415.66   408.17     414.71    19229300      413.8816

Question 7

nrow(MSFT)

## [1] 84

Question 9

library(pageviews)

microsoftviews <- article_pageviews(
  project = "en.wikipedia", 
  article = "Microsoft",  
  start = "2024100100",       
  end = "2025013123",          
  user_type = "all",       
  platform = "all"          
)
nrow(microsoftviews)

## [1] 123

ncol(microsoftviews)

## [1] 8

Question 10

views30000 <- subset(subset(microsoftviews, views > 30000))
head(views30000)

Question 11

nrow(MSFT) 

## [1] 84

nrow(microsoftviews) 

## [1] 123

library(pacman)

pacman::p_load(httr, jsonlite)