#clear
rm(list=ls())

##############################################################
#importing financial data
##############################################################

library("quantmod")

getSymbols("AAPL;A;AMZN;MSFT")
dim(A)

A_ret <- as.matrix(monthlyReturn(A[,6]))
AAPL_ret <- as.matrix(monthlyReturn(AAPL[,6]))

dim(A_ret)
dim(AAPL_ret)

hist(AAPL_ret)
hist(A_ret)

plot(AAPL_ret,A_ret)