Draws table from comp_tsout_ens or mv_tsout_ens output.

Draws table from comp_tsout_ens or mv_tsout_ens output.

draw_table(obj, uniq_dates = NULL)

Arguments

obj

The output from comp_tsout_ens or mv_tsout_ens functions.

uniq_dates

An optional parameter to pass in the dates for the dataset.

Value

Draws a table using R packages grid and gridExtra.

Examples

if (FALSE) {
set.seed(100)
n <- 600
x <- sample(1:100, n, replace=TRUE)
x[25] <- 200
x[320] <- 300
x2 <- sample(1:100, n, replace=TRUE)
x3 <- sample(1:100, n, replace=TRUE)
x4 <- sample(1:100, n, replace=TRUE)
X <- cbind.data.frame(x, x2, x3, x4)
out <- mv_tsout_ens(X, compr=2, fast=FALSE)
draw_table(out)
}