idx <- !is.na(CL090300$Low) & !is.na(CL090300$High)
idx[1:6] <- F
low <- CL090300[idx,"Low"]
high <- CL090300[idx,"High"]
tm <- CL090300[idx,"Time"]

## create timeSeries of CLfutures data
CLts.time <- timeDate(paste(CL090300$Date,CL090300$Time),format="%m/%d/%Y %02H:%02M")
CLts.hl <- CL090300[,c("Low","High")]
names(CLts.hl) <- c("low","high")
CLts <- timeSeries(CLts.hl,pos=CLts.time)
plot(CLts,plot.type="hloc",x.axis.args=list(time.of.day.style="24"))
title("Crude light oil futures")
java.set.page.title("HighLow")
java.identify(x1=0.141, labels="News from Fictious wire at 10:30AM",
              actions=java.action.link("news2.html"))
java.identify(x1=0.925, labels="News from Fictious wire at 2:45PM",
              actions=java.action.link("news1.html"))

pointandfigure(high,low,tm,ylab="")
title("Crude light oil futures")
java.set.page.title("Point&Figure")