## Not run:
# stock <- quoteStockTsData('4689.t')
# head(stock)
# stock <- quoteStockTsData('4689.t', since='2013-01-01')
# head(stock)
# stock <- quoteStockTsData('4689.t', since='2013-01-01',time.interval='monthly')
# head(stock)
# plot(stock$date, stock$close, type="l", col="blue")
# ## End(Not run)
Run the code above in your browser using DataLab