R/tobe.R

In ksublee/mhawkes: Simulate and estimate marked Hawkes process

# m1 <- m2 <- m3 <- m4 <- matrix(1:9, nrow=3, dimnames=list(c("a", "b", "c"), c("d", "e", "f")))
# fn <- function(x) setNames(data.frame(.=paste("", rownames(x)), x, check.names=F, row.names=NULL),c(" ", colnames(x)))
# matrix.names <- Filter( function(x) 'matrix' %in% class( get(x) ), ls(pattern = "m") )
# matrix.list <- lapply(matrix.names, get)
# matrix.chain <- do.call(cbind, lapply(matrix.list, fn))
# cat(" ", paste0(matrix.names, collapse = "     "), "\n");
# print(matrix.chain, row.names = FALSE)


# RCPP