file <- system.file("extdata", "test1.csv", package="PhenStat")
test <- PhenList(dataset=read.csv(file),
testGenotype="Sparc/Sparc")
# when "testDataset" function's argument "callAll" is set to FALSE
# only "startModel" function is called - the first step of MM framework
result <- testDataset(test,
depVariable="Lean.Mass",
callAll=FALSE)
# print out formula that has been created
analysisResults(result)$model.formula.genotype
# print out batch effect's significance
analysisResults(result)$model.effect.batch
# change the model
result <- testDataset(test,
depVariable="Lean.Mass",
equation="withWeight",
callAll=FALSE)
# print out new formula
analysisResults(result)$model.formula.genotype
Run the code above in your browser using DataLab