PlotScoresMatrix: Plotting a Scores Matrix

In FranceschiniS/LMWiRe: R Routines for Linear Model with Wide Response

Description

Plot a matrix of scores graphs

Usage

PlotScoresMatrix(ResPCALMEffects, ModelAbbrev = FALSE, design,
  EffectNames = NULL, alleffect, PCdim = NULL,
  varname.colorup = NULL, varname.colordown = NULL,
  varname.pchup = NULL, varname.pchdown = NULL, vec.colorup = NULL,
  vec.colordown = NULL, vec.pchup = NULL, vec.pchdown = NULL)

Arguments

ResPCALMEffects	A list of p+3 elements depending of the model terms from PCALMEffects
ModelAbbrev	A logical whether to abbreviate the interaction terms
design	The nxk "free encoded" experimental design data frame
EffectNames	A character vector with the name of the effects to plot
alleffect	A logical whether to plot every effect
PCdim	A numeric vector with the same length than EffectNames and indicating the number of component to plot
varname.colorup	A character with the name of variable used to color the upper triangle
varname.colordown	A character with the name of variable used to color the upper triangle
varname.pchup	A character with the name of variable used to mark points from the upper triangle
varname.pchdown	A character with the name of variable used to mark points from the lower triangle
vec.colorup	A color vector with a length equivalent to the number of levels from varname.colorup
vec.colordown	A color vector with a length equivalent to the number of levels from varname.colordown
vec.pchup	A pch vector with a length equivalent to the number of levels from varname.pchup
vec.pchdown	A pch vector with a length equivalent to the number of levels from varname.pchdown

Value

A matrix of graphs

Examples

 data('UCH')
 ResLMModelMatrix = LMModelMatrix(formula=as.formula(UCH$formula),design=UCH$design)
 ResLMEffectMatrices = LMEffectMatrices(ResLMModelMatrix,outcomes=UCH$outcomes)
 ResPCALMEffects = PCALMEffects(ResLMEffectMatrices,method="ASCA-E")
 PlotScoresMatrix(ResPCALMEffects,
                 ModelAbbrev=FALSE,
                 design=UCH$design,
                 EffectNames = c("Citrate","Hippurate","Hippurate:Citrate"),
                 alleffect = FALSE,
                 PCdim=c(2,2,2),
                 varname.colorup = "Citrate",
                 vec.colorup = c("red","blue","green"),
                 varname.pchup="Hippurate",
                 vec.pchup=c(1,2,3),
                 varname.pchdown = "Day",
                 vec.pchdown = c(4,5),
                 varname.colordown="Time",
                 vec.colordown = c("brown","grey"))

FranceschiniS/LMWiRe documentation built on Oct. 30, 2019, 6:20 p.m.