data(anorexiaFT)
anorexiaFT.data <- prepareCGPairedDifferenceData(anorexiaFT, format="groupcolumns",
analysisname="Anorexia FT",
endptname="Weight",
endptunits="lbs",
expunitname="Patient",
digits=1,
logscale=TRUE)
anorexiaFT.fit <- fit(anorexiaFT.data)
## Next two calls are equivalent
varianceTable(anorexiaFT.fit, display="show")
show(varianceTable(anorexiaFT.fit, display="none"))
Run the code above in your browser using DataLab