Tarun Parmar
January 5, 2017
source("Yahoo Stock Data Pull.R")
MSFT <- GetYahooData("MSFT")
[1] "Data pull successful..."
INTC <- GetYahooData("INTC")
[1] "Data pull successful..."
IBM <- GetYahooData("IBM")
[1] "Data pull successful..."
AAPL <- GetYahooData("AAPL")
[1] "Data pull successful..."
mat <- data.frame(Date = MSFT$Date,
MSFT = round(MSFT$Adj.Close,2),
IBM = round(IBM$Adj.Close,2),
AAPL = round(AAPL$Adj.Close,2),
INTC = round(INTC$Adj.Close,2))
Date MSFT IBM AAPL
2010-02-01: 1 Min. :19.29 Min. :103.8 Min. : 24.99
2010-02-02: 1 1st Qu.:23.97 1st Qu.:142.1 1st Qu.: 51.03
2010-02-03: 1 Median :30.46 Median :157.9 Median : 73.74
2010-02-04: 1 Mean :34.48 Mean :154.0 Mean : 75.95
2010-02-05: 1 3rd Qu.:43.96 3rd Qu.:171.7 3rd Qu.:102.20
2010-02-08: 1 Max. :63.62 Max. :193.6 Max. :128.52
(Other) :1741
INTC
Min. :14.33
1st Qu.:18.63
Median :22.51
Mean :24.26
3rd Qu.:30.71
Max. :37.81