inst/tinytest/test-irts.R

In xts: eXtensible Time Series

have_tseries <- suppressPackageStartupMessages({
  # tseries imports quantmod. Silence this message when quantmod is loaded:
  #
  #    Registered S3 method overwritten by 'quantmod':
  #     method            from
  #     as.zoo.data.frame zoo
  #
  # So I don't get confused (again) about why xts' tests load quantmod
  requireNamespace("tseries", quietly = TRUE)
})

if (have_tseries) {

  library(xts)
  data(sample_matrix)
  
  sample.irts <- tseries::irts(as.POSIXct(rownames(sample_matrix)),sample_matrix)
  sample.irts.xts <- as.xts(sample.irts)
  
  info_msg <- "test.convert_irts_to_xts <- function()"
  expect_identical(sample.irts.xts,as.xts(sample.irts), info = info_msg)

  info_msg <- "test.convert_irts_to_xts_j1"
  expect_identical(sample.irts.xts[,1],as.xts(sample.irts)[,1], info = info_msg)
 
  info_msg <- "test.convert_irts_to_xts_i1"
  expect_identical(sample.irts.xts[1,],as.xts(sample.irts)[1,], info = info_msg)
 
  info_msg <- "test.convert_irts_to_xts_i1j1"
  expect_identical(sample.irts.xts[1,1],as.xts(sample.irts)[1,1], info = info_msg)
}  # requireNamespace