pkg/tests/test.matharray.R

   1 require(xtable)
   2 V <- matrix(c(1.140380e-03,  3.010497e-05,  7.334879e-05,
   3               3.010497e-05,  3.320683e-04, -5.284854e-05,
   4               7.334879e-05, -5.284854e-05,  3.520928e-04), nrow = 3)
   5 V
   6 class(V) <- c("xtableMatharray")
   7 class(V)
   8
   9 mth <- xtable(V)
  10 str(mth)
  11 mth
  12
  13 tbl <- xtable(V, display = rep("E", 4))
  14 str(tbl)
  15 tbl
  16
  17 V <- matrix(c(1.140380e-03,  3.010497e-05,  7.334879e-05,
  18               3.010497e-05,  3.320683e-04, -5.284854e-05,
  19               7.334879e-05, -5.284854e-05,  3.520928e-04), nrow = 3)
  20 V
  21 mth <- xtable(V, display = rep("E", 4))
  22 class(mth)
  23 mth
  24 class(mth) <- c("xtableMatharray")
  25 mth
  26 print(mth)
  27 print.xtableMatharray(xtable(V, display = rep("E", 4)))
  28 class(mth) <- c("xtableMatharray")
  29 mth
  30
  31 V <- matrix(c(1.140380e-03,  3.010497e-05,  7.334879e-05,
  32               3.010497e-05,  3.320683e-04, -5.284854e-05,
  33               7.334879e-05, -5.284854e-05,  3.520928e-04), nrow = 3)
  34 V
  35
  36 print.xtableMatharray(xtable(V),
  37                       format.args = list(display = rep("E", 4)))
  38 print.xtableMatharray(xtable(V),
  39                       format.args = list(digits = 6))
  40