# Mixed Model framework
file <- system.file("extdata", "test1.csv", package="PhenStat")
test <- PhenList(dataset=read.csv(file),
testGenotype="Sparc/Sparc")
result <- testDataset(test,
depVariable="Lean.Mass")
# print out formula that has been created
analysisResults(result)$model.formula.genotype
summaryOutput(result)
# Mixed Model framework with user defined effects
user_defined_effects <- c(keep_batch=TRUE,
keep_equalvar=TRUE,
keep_weight=TRUE,
keep_sex=TRUE,
keep_interaction=TRUE)
result3 <- testDataset(test,
depVariable="Lean.Mass",
keepList=user_defined_effects)
# print out formula that has been created
analysisResults(result3)$model.formula.genotype
summaryOutput(result3)
# Fisher Exact Test framework
file <- system.file("extdata", "test_categorical.csv", package="PhenStat")
test2 <- PhenList(dataset=read.csv(file),
testGenotype="Aff3/Aff3")
result2 <- testDataset(test2,
depVariable="Thoracic.Processes",
method="FE")
summaryOutput(result2)
Run the code above in your browser using DataLab