EVOLUTION-MANAGER

Edit File: runit.matrix.R

data(sample_matrix)
sample.matrix <- sample_matrix
sample.xts <- as.xts(sample.matrix)

test.convert_matrix_to_xts <- function() {
  checkIdentical(sample.xts,as.xts(sample.matrix))
}
test.convert_matrix_to_xts_j1 <- function() {
  checkIdentical(sample.xts[,1],as.xts(sample.matrix)[,1])
}
test.convert_matrix_to_xts_i1 <- function() {
  checkIdentical(sample.xts[1,],as.xts(sample.matrix)[1,])
}
test.convert_matrix_to_xts_i1j1 <- function() {
  checkIdentical(sample.xts[1,1],as.xts(sample.matrix)[1,1])
}
test.matrix_reclass <- function() {
  checkIdentical(sample.matrix,reclass(try.xts(sample.matrix)))
}
test.matrix_reclass_subset_reclass_j1 <- function() {
  checkIdentical(sample.matrix[,1],reclass(try.xts(sample.matrix))[,1])
}
test.matrix_reclass_subset_as.xts_j1 <- function() {
  checkIdentical(sample.matrix[,1,drop=FALSE],reclass(try.xts(sample.matrix)[,1]))
  checkIdentical(sample.matrix[,1],reclass(try.xts(sample.matrix))[,1])
}
test.matrix_reclass_subset_matrix_j1 <- function() {
  checkIdentical(sample.matrix[,1,drop=FALSE],reclass(try.xts(sample.matrix[,1,drop=FALSE])))
}

# zero-width to matrix
test.zero_width_xts_to_matrix <- function() {
  x <- .xts(,1)
  xm <- as.matrix(x)
  zm <- as.matrix(as.zoo(x))
  checkIdentical(xm, zm)
}

# dim-less xts to matrix
test.dimless_xts_to_matrix <- function() {
  ix <- structure(1:3, tclass = c("POSIXct", "POSIXt"), tzone = "")
  x <- structure(1:3, index = ix, class = c("xts", "zoo"))
  m <- matrix(1:3, 3, 1, dimnames = list(format(.POSIXct(1:3)), "x"))
  checkIdentical(as.matrix(x), m)
}