getTrtCoef: Get the Treatment Coefficients
In kcha193/infoDecompuTE: Information Decomposition of Two-Phase Experiments

Description Usage Arguments Value Author(s) Examples

Compute the overall coefficients every treatment term including the interaction.

1	getTrtCoef(design.df, trtTerm)

`design.df`	a data frame containing the experimental design. Requires every column be a `factor`.
`trtTerm`	a vector of character containing the labels of the treatment terms in the model generated by `terms`.

The numeric vector.

Kevin Chang

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 )
})

trt.str = "Trt"
  
fT = terms(as.formula(paste("~", trt.str, sep = "")), keep.order = TRUE)  #fixed terms

trtTerm = attr(fT,"term.labels")
effectsMatrix = attr(fT,"factor") 
		
trt.Coef = getTrtCoef(design1, trtTerm)