# toLatexTable: Convert the R output to Latex Table In infoDecompuTE: Information Decomposition of Two-Phase Experiments

## Description

Print the Latex scripts on the screen for the user to output the table from the Latex output.

## Usage

 1 toLatexTable(ANOVA, EF, fixed.names) 

## Arguments

 ANOVA a matrix containing the coefficients of the variance components in EMS of ANOVA table generated by getCoefVC.onePhase or getCoefVC.twoPhase. EF a matrix containing the coefficient of the fixed effects components and the treatment average efficiency factors generated by getFixedEF.onePhase or getFixedEF.onePhase function. fixed.names a vector of character allows the users to modify symbols for the fixed effects.

## Details

Once the Latex script is generated, it requires the user to install and load two Latex packages: booktabs and bm to compile the Latex script.

Kevin Chang

## Examples

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 design1 <- local({ Ani = as.factor(LETTERS[c(1,2,3,4, 5,6,7,8)]) Trt = as.factor(letters[c(1,1,1,1, 2,2,2,2)]) data.frame(Ani, Trt, stringsAsFactors = TRUE ) }) blk.str <- "Ani" rT <- terms(as.formula(paste("~", blk.str, sep = "")), keep.order = TRUE) blkTerm <- attr(rT,"term.labels") Z <- makeBlkDesMat(design1, blkTerm) trt.str = "Trt" fT <- terms(as.formula(paste("~", trt.str, sep = "")), keep.order = TRUE) trtTerm <- attr(fT, "term.labels") effectsMatrix <- attr(fT, "factor") T <- makeContrMat(design1, trtTerm, effectsMatrix, contr.vec = NA) N <- makeOverDesMat(design1, trtTerm) Replist = getTrtRep(design1, trtTerm) Rep <- Replist$Rep trt.Sca <- Replist$Sca effFactors = lapply(makeOrthProjectors(Z), function(z) getEffFactor(z, T, N, Rep, trt.Sca)) effFactors <- effFactors[sort(1:length(effFactors), decreasing=TRUE)] v.mat <- getVMat.onePhase(Z.Phase1 = Z, design.df = design.df, var.comp = NA) ANOVA <- getCoefVC.onePhase(Pb = effFactors, design.df = design1, v.mat = v.mat, response = NA, table.legend = FALSE, decimal = FALSE, digits = 2) EF <- getFixedEF.onePhase(effFactors = effFactors, trt.Sca = trt.Sca, T = T, Rep = Rep, table.legend = FALSE, decimal = FALSE, digits = 2, list.sep = FALSE) toLatexTable(ANOVA = ANOVA, EF = EF, fixed.names = c("\\tau")) 

infoDecompuTE documentation built on April 14, 2020, 7:08 p.m.