R script generating intraday data:bid and ask prices