R Notebook

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

meta_data <- wb_cache()

topics <- meta_data$topics
write.csv(topics, "wb_topics.csv")

gdp_ind <- wb_search("gdp")
head(gdp_ind)

gdp_per_capita <- wb_data("SP.POP.TOTL")
head(gdp_per_capita)

# install.packages("pacman")
pacman::p_load(quantmod, rvest)

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

[1] "NVDA" "TSLA"

write.csv(NVDA, "NDVA.csv")

write.zoo(NVDA, "NVDA")

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

[1] "MSFT"

plot(MSFT)

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

article_pageviews(
project = "en.wikipedia",
article = "Microsoft",
platform = "all",
user_type = "all",
start = "2024100100",
end = "2025013100",
reformat = TRUE,
granularity = "daily",
)