Justin Kaplan
Workshop Number 2
Load all of the packages
library(wbstats)
library(httr)
library(pageviews)
library(jsonlite)
library(quantmod)
Question 6
D
getSymbols("MSFT", source ="yahoo",from = "2024-10-01", to = "2025-02-01")
## [1] "MSFT"
print(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
## 2024-10-09 415.86 420.38 414.30 417.46 14974300 416.6260
## 2024-10-10 415.23 417.35 413.15 415.84 13848400 415.0093
## 2024-10-11 416.14 417.13 413.25 416.32 14144900 415.4883
## 2024-10-14 417.77 424.04 417.52 419.14 16653100 418.3027
## 2024-10-15 422.18 422.48 415.26 418.74 18900200 417.9035
## 2024-10-16 415.17 416.36 410.48 416.12 15508900 415.2887
## 2024-10-17 422.36 422.50 415.59 416.72 14820000 415.8875
## 2024-10-18 417.14 419.65 416.26 418.16 17145300 417.3247
## 2024-10-21 416.12 418.96 413.75 418.78 14206100 417.9434
## 2024-10-22 418.49 430.58 418.04 427.51 25482200 426.6560
## 2024-10-23 430.86 431.08 422.53 424.60 19654400 423.7518
## 2024-10-24 425.33 425.98 422.40 424.73 13581600 423.8816
## 2024-10-25 426.76 432.52 426.57 428.15 16899100 427.2947
## 2024-10-28 431.66 431.94 426.30 426.59 14882400 425.7378
## 2024-10-29 428.00 433.17 425.80 431.95 17644100 431.0871
## 2024-10-30 437.44 438.50 432.10 432.53 29749100 431.6660
## 2024-10-31 415.36 416.16 406.30 406.35 53971000 405.5383
## 2024-11-01 409.01 415.50 407.50 410.37 24230400 409.5502
## 2024-11-04 409.80 410.42 405.57 408.46 19672300 407.6440
## 2024-11-05 408.37 414.90 408.08 411.46 17626000 410.6380
## 2024-11-06 412.42 420.45 410.52 420.18 26681800 419.3406
## 2024-11-07 421.28 426.85 419.88 425.43 19901800 424.5801
## 2024-11-08 425.32 426.50 421.78 422.54 16891400 421.6959
## 2024-11-11 422.52 424.81 416.00 418.01 24503300 417.1750
## 2024-11-12 418.25 424.44 417.20 423.03 19401200 422.1849
## 2024-11-13 421.64 429.33 418.21 425.20 21502200 424.3506
## 2024-11-14 425.00 428.17 420.00 426.89 30246900 426.0372
## 2024-11-15 419.82 422.80 413.64 415.00 28247600 414.1710
## 2024-11-18 414.87 418.40 412.10 415.76 24742000 414.9295
## 2024-11-19 413.11 417.94 411.55 417.79 18133500 416.9554
## 2024-11-20 416.87 417.29 410.58 415.49 19191700 414.6600
## 2024-11-21 419.50 419.78 410.29 412.87 20780200 412.8700
## 2024-11-22 411.37 417.40 411.06 417.00 24814600 417.0000
## 2024-11-25 418.38 421.08 414.85 418.79 27691100 418.7900
## 2024-11-26 419.59 429.04 418.85 427.99 23458900 427.9900
## 2024-11-27 425.11 427.23 422.02 422.99 18332400 422.9900
## 2024-11-29 420.09 424.88 417.80 423.46 16271900 423.4600
## 2024-12-02 421.57 433.00 421.31 430.98 20207200 430.9800
## 2024-12-03 429.84 432.47 427.74 431.20 18302000 431.2000
## 2024-12-04 433.03 439.67 432.63 437.42 26009400 437.4200
## 2024-12-05 437.92 444.66 436.17 442.62 21697800 442.6200
## 2024-12-06 442.30 446.10 441.77 443.57 18821000 443.5700
## 2024-12-09 442.60 448.33 440.50 446.02 19144400 446.0200
## 2024-12-10 444.39 449.62 441.60 443.33 18469500 443.3300
## 2024-12-11 444.05 450.35 444.05 448.99 19200200 448.9900
## 2024-12-12 449.11 456.16 449.11 449.56 20834800 449.5600
## 2024-12-13 448.44 451.43 445.58 447.27 20177800 447.2700
## 2024-12-16 447.27 452.18 445.28 451.59 23598800 451.5900
## 2024-12-17 451.01 455.29 449.57 454.46 22733500 454.4600
## 2024-12-18 451.32 452.65 437.02 437.39 24444500 437.3900
## 2024-12-19 441.62 443.18 436.32 437.03 22963700 437.0300
## 2024-12-20 433.11 443.74 428.63 436.60 64263700 436.6000
## 2024-12-23 436.74 437.65 432.83 435.25 19152500 435.2500
## 2024-12-24 434.65 439.60 434.19 439.33 7164500 439.3300
## 2024-12-26 439.08 440.94 436.63 438.11 8194200 438.1100
## 2024-12-27 434.60 435.22 426.35 430.53 18117700 430.5300
## 2024-12-30 426.06 427.55 421.90 424.83 13158700 424.8300
## 2024-12-31 426.10 426.73 420.66 421.50 13246500 421.5000
## 2025-01-02 425.53 426.07 414.85 418.58 16896500 418.5800
## 2025-01-03 421.08 424.03 419.54 423.35 16662900 423.3500
## 2025-01-06 428.00 434.32 425.48 427.85 20573600 427.8500
## 2025-01-07 429.00 430.65 420.80 422.37 18139100 422.3700
## 2025-01-08 423.46 426.97 421.54 424.56 15054600 424.5600
## 2025-01-10 424.63 424.71 415.02 418.95 20201100 418.9500
## 2025-01-13 415.24 418.50 412.29 417.19 17604800 417.1900
## 2025-01-14 417.81 419.74 410.72 415.67 16935900 415.6700
## 2025-01-15 419.13 428.15 418.27 426.31 19637800 426.3100
## 2025-01-16 428.70 429.49 424.39 424.58 15300000 424.5800
## 2025-01-17 434.09 434.48 428.17 429.03 26197500 429.0300
## 2025-01-21 430.20 430.90 425.60 428.50 26085700 428.5000
## 2025-01-22 437.56 447.27 436.00 446.20 27803800 446.2000
## 2025-01-23 442.00 446.75 441.50 446.71 18389300 446.7100
## 2025-01-24 445.16 446.65 441.40 444.06 15549500 444.0600
## 2025-01-27 424.01 435.20 423.50 434.56 35647800 434.5600
## 2025-01-28 434.60 448.38 431.38 447.20 23491700 447.2000
## 2025-01-29 446.69 446.88 440.40 442.33 23581400 442.3300
## 2025-01-30 418.77 422.86 413.16 414.99 54586300 414.9900
## 2025-01-31 418.98 420.69 414.91 415.06 34223400 415.0600
Question 8
plot(MSFT$MSFT.Open)
Question 9
Question <- article_pageviews(
project = "en.wikipedia",
article = "Microsoft",
platform = "all",
user_type = "all",
start = "2024100100",
end = "2025013100",
reformat = TRUE,
granularity = "daily",
)