file <- system.file("extdata", "test_categorical.csv", package="PhenStat")
test <- PhenList(dataset=read.csv(file),
testGenotype="Aff3/Aff3")
# "FisherExactTest" function is called from "testDataset" function.
result <- testDataset(test,depVariable="Thoracic.Processes",method="FE")
# Fisher Exact Test results can be printed out using function "summaryOutput"
val <- analysisResults(result)[[1]]
print(val)
class(val)
Run the code above in your browser using DataLab