Lab1

library(quantmod)

## Warning: package 'quantmod' was built under R version 3.6.3

## Loading required package: xts

## Warning: package 'xts' was built under R version 3.6.3

## Loading required package: zoo

## Warning: package 'zoo' was built under R version 3.6.3

## 
## Attaching package: 'zoo'

## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric

## Loading required package: TTR

## Warning: package 'TTR' was built under R version 3.6.3

## Registered S3 method overwritten by 'quantmod':
##   method            from
##   as.zoo.data.frame zoo

## Version 0.4-0 included new data defaults. See ?getSymbols.

library(plyr)

## Warning: package 'plyr' was built under R version 3.6.3

library(DT)

## Warning: package 'DT' was built under R version 3.6.3

what_metrics <- yahooQF(c("Price/Sales", 
                          "Open",
                          "P/E Ratio",
                          "Price/EPS Estimate Next Year",
                          "PEG Ratio",
                          "Dividend Yield", 
                          "Market Capitalization"))

tickers <- c("TGT", "KO", "AMZN", "SBUX")
metrics <- getQuote(paste(tickers, sep="", collapse=";"), what=what_metrics)

metrics <- data.frame(Symbol=tickers, metrics[,2:length(metrics)]) 

colnames(metrics) <- c("Symbol", "Open","P-E Ratio", "Price EPS Estimate Next Year", "Div Yield", "Market Cap")

DT::datatable(metrics)