DV <- function(HLC, n=2, bounded=FALSE) { # "HLC" is an _xts_ object with "High", "Low", and "Close" # columns, in that order. # This is David Varadi's alternative to the RSI(2). Calculations # taken from the marketsci blog -- http://marketsci.wordpress.com # Author of this implementation: Joshua Ulrich