## Not run:
# stock <- quoteStockTsData('4689.t')
# head(stock)
# stock <- quoteStockTsData('4689.t', since='2009-01-01',date.end='2009-12-31')
# head(stock)
# stock <- quoteStockTsData('4689.t', since='2009-01-01',
# date.end='2009-12-31',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