R Notebook

install.packages("wbstats")

trying URL 'https://cran.rstudio.com/bin/macosx/big-sur-x86_64/contrib/4.4/wbstats_1.0.4.tgz'
Content type 'application/x-gzip' length 1388432 bytes (1.3 MB)
==================================================
downloaded 1.3 MB

The downloaded binary packages are in
    /var/folders/6c/cwjpdkmx117gp567m0cxmsww0000gn/T//RtmptREv2O/downloaded_packages

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

trying URL 'https://cran.rstudio.com/bin/macosx/big-sur-x86_64/contrib/4.4/quantmod_0.4.26.tgz'
Content type 'application/x-gzip' length 1060186 bytes (1.0 MB)
==================================================
downloaded 1.0 MB

The downloaded binary packages are in
    /var/folders/6c/cwjpdkmx117gp567m0cxmsww0000gn/T//RtmptREv2O/downloaded_packages

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 

Question 1

True

Question 2

False

Question 3

True

Question 4

All of the above

Question 5

True

Question 6

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

[1] "MSFT"

getSymbols(“MSFT”, src=“yahoo”, from = “2024-10-01”, to = 2025-02-01”

Question 7

84

Question 8

plot(MSFT$MSFT.High)

Dec9-Dec18

Question 9

install.packages("pageviews")

trying URL 'https://cran.rstudio.com/bin/macosx/big-sur-x86_64/contrib/4.4/pageviews_0.6.0.tgz'
Content type 'application/x-gzip' length 34914 bytes (34 KB)
==================================================
downloaded 34 KB

The downloaded binary packages are in
    /var/folders/6c/cwjpdkmx117gp567m0cxmsww0000gn/T//RtmptREv2O/downloaded_packages

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" "2024-10-03" ...
 $ views      : num  8729 11914 8328 8717 10179 ...

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

123,8

Question 10

1

Question 11

False

Question 12

True

Question 13

False