inst/unitTests/runit.TTR.DVI.R

#
# RUnit tests TTR DVI
#

# Create input data
data(ttrc)
rownames(ttrc) <- ttrc$Date
ttrc$Date <- NULL

#################################################

test.correct_column_names <- function() {
  dat <- setNames(ttrc$Close, rownames(ttrc))
  dvi <- DVI(dat)

  checkEquals(colnames(dvi), c("dvi.mag", "dvi.str", "dvi"))
}
joshuaulrich/TTR documentation built on Feb. 17, 2024, 6:38 a.m.