# Load stocks list and plot closing prices for a ticker (if present)
data(stocks)
# stocks <- loadfulldata(stocks)
if ("VALE3" %in% names(stocks)) {
series <- stocks$VALE3$close
ts.plot(series, ylab = "Close", xlab = "Index", main = "VALE3 close price")
}
Run the code above in your browser using DataLab