assignment #2

question #3 Package Install and Activation

``` r
#install.packages("quantmod")
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 6,7 Stock Prices

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

## [1] "MSFT"

dim(MSFT)

## [1] 84  6

Question #8 Microsoft’s Open Prices reach the highest

plot(MSFT$MSFT.Open)

Question #9 Wikipedia views data for Microsoft in English

#install.packages("pageviews")
library(pageviews)
wiki_views <- article_pageviews(
  article = "Microsoft",
  start = "2024100100",
  end = "2025013100" 
  )

Question #10 Wikipedia Views

high_views <- wiki_views[wiki_views$views > 30000, ]
nrow(high_views)

## [1] 1

```