# 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")
vectorOutput(result)
# Fishe 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")
vectorOutput(result2)
Run the code above in your browser using DataLab