Installing Needed Libraries

library(stocks)
library(BatchGetSymbols)
library(quantmod)

Pulling in Forunte 100 Stocks

stocks <- c('ADBE',
            'AMD',
            'ALXN',
            'ALGN',
            'GOOG',
            'GOOGL',
            'AMZN',
            'AAL',
            'AMGN',
            'ADI',
            'ANSS',
            'AAPL',
            'AMAT',
            'ASML',
            'ADSK',
            'ADP',
            'BIDU',
            'BIIB',
            'BMRN',
            'BKNG',
            'AVGO',
            'CDNS',
            'CDW',
            'CERN',
            'CHTR',
            'CHKP',
            'CTAS',
            'CSCO',
            'CTXS',
            'CTSH',
            'CMCSA',
            'CPRT',
            'CSGP',
            'COST',
            'CSX',
            'DLTR',
            'EBAY',
            'EA',
            'EXC',
            'EXPE',
            'FB',
            'FAST',
            'FISV',
            'FOX',
            'FOXA',
            'GILD',
            'IDXX',
            'ILMN',
            'INCY',
            'INTC',
            'INTU',
            'ISRG',
            'JD',
            'KLAC',
            'LRCX',
            'LBTYA',
            'LBTYK',
            'LULU',
            'MAR',
            'MXIM',
            'MELI',
            'MCHP',
            'MU',
            'MSFT',
            'MDLZ',
            'MNST',
            'NTAP',
            'NTES',
            'NFLX',
            'NVDA',
            'NXPI',
            'ORLY',
            'PCAR',
            'PAYX',
            'PYPL',
            'PEP',
            'QCOM',
            'REGN',
            'ROST',
            'SGEN',
            'SIRI',
            'SWKS',
            'SPLK',
            'SBUX',
            'SNPS',
            'TMUS',
            'TTWO',
            'TSLA',
            'TXN',
            'KHC',
            'TCOM',
            'ULTA',
            'UAL',
            'VRSN',
            'VRSK',
            'VRTX',
            'WBA',
            'WDC',
            'WLTW',
            'WDAY',
            'XEL',
            'XLNX')



```r
stockEnv <- new.env()
symbols <- getSymbols(stocks, src='yahoo', env=stockEnv)
for (stock in ls(stockEnv)){
  chartSeries(stockEnv[[stock]], theme="white", name=stock,
              TA="addVo();addBBands();addCCI();addSMA(20, col='blue');
        addSMA(5, col='red');addSMA(50, col='black')", subset='last 30 days')     
}