#
library(tseries)
data(sample_matrix)
sample.irts <- irts(as.POSIXct(rownames(sample_matrix)),sample_matrix)
sample.irts.xts <- as.xts(sample.irts)
test.convert_irts_to_xts <- function() {
DEACTIVATED("irts forces rownames, xts disallows rownames. Unable to test")
checkIdentical(sample.irts.xts,as.xts(sample.irts))
}
test.convert_irts_to_xts_j1 <- function() {
DEACTIVATED("irts forces rownames, xts disallows rownames. Unable to test")
TRUE# checkIdentical(sample.irts.xts[,1],as.xts(sample.irts)[,1])
}
test.convert_irts_to_xts_i1 <- function() {
DEACTIVATED("irts forces rownames, xts disallows rownames. Unable to test")
TRUE# checkIdentical(sample.irts.xts[1,],as.xts(sample.irts)[1,])
}
test.convert_irts_to_xts_i1j1 <- function() {
DEACTIVATED("irts forces rownames, xts disallows rownames. Unable to test")
TRUE# checkIdentical(sample.irts.xts[1,1],as.xts(sample.irts)[1,1])
}
test.irts_reclass <- function() {
DEACTIVATED("irts forces rownames, xts disallows rownames. Unable to test")
checkIdentical(sample.irts,reclass(as.xts(sample.irts)))
}
test.irts_reclass_subset_reclass_j1 <- function() {
DEACTIVATED("irts forces rownames, xts disallows rownames. Unable to test")
checkIdentical(sample.irts[,1],reclass(as.xts(sample.irts))[,1])
}
test.irts_reclass_subset_as.xts_j1 <- function() {
DEACTIVATED("irts forces rownames, xts disallows rownames. Unable to test")
checkIdentical(sample.irts[,1],reclass(as.xts(sample.irts)[,1]))
}
test.irts_reclass_subset_irts_j1 <- function() {
DEACTIVATED("irts forces rownames, xts disallows rownames. Unable to test")
checkIdentical(sample.irts[,1],reclass(as.xts(sample.irts[,1])))
}
detach('package:tseries')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.