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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.