1. library(quantmod) library(timeSeries) library(tseries) library(PerformanceAnalytics) setSymbolLookup(HUADONG = list(name=