R code to retrieve the trading range for a stock on a historical date using quantmod library

StockTradingRange.R

library('quantmod')
 
#loadSymbols of the stock codes you are interested in 
loadSymbols(c('K17.SI','BN4.SI'))
 
#retrieves the values for a single date
BN4.SI['2013-01-25']
#K17.SI['2013-03-04']
 
#Convert the matrix retrieved as a data.frame for easier data usage
=kep=as.data.frame(BN4.SI['2013-01-25'])
 
#Calculates the Trading Range for the specified date
TradingRange=kep['BN4.SI.High']-kep['BN4.SI.Low']
TradingRange