Assignment 2

library("wbstats")
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

meta <- wb_cache()

names(meta)

## [1] "countries"     "indicators"    "sources"       "topics"       
## [5] "regions"       "income_levels" "lending_types" "languages"

meta$topics

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

wb_data("6.0.GDP_current")

pop_gdp <- wb_data(indicator = c("SP.POP.TOTL", "NY.GDP.MKTP.CD"), 
                   country = c("US", "NO"),
                   start_date = 2020, end_date = 2024)
pop_gdp

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

## [1] "MSFT"

library(pageviews)
start_date <- as.POSIXct("2024-10-01", format = "%Y-%m-%d")
end_date <- as.POSIXct("2025-01-31", format = "%Y-%m-%d")
Q9<-(article_pageviews(
  project = "en.wikipedia",
  article = "Microsoft",        
  start = start_date,
  end = end_date,  
  granularity = "daily"))

str(Q9)

## 'data.frame':    123 obs. of  8 variables:
##  $ project    : chr  "wikipedia" "wikipedia" "wikipedia" "wikipedia" ...
##  $ language   : chr  "en" "en" "en" "en" ...
##  $ article    : chr  "Microsoft" "Microsoft" "Microsoft" "Microsoft" ...
##  $ access     : chr  "all-access" "all-access" "all-access" "all-access" ...
##  $ agent      : chr  "all-agents" "all-agents" "all-agents" "all-agents" ...
##  $ granularity: chr  "daily" "daily" "daily" "daily" ...
##  $ date       : POSIXct, format: "2024-10-01" "2024-10-02" ...
##  $ views      : num  8729 11914 8328 8717 10179 ...

Q9_filtered<-subset(Q9, views >=30000)