R/enrichment.R
fisherCategoricalVariable.Rd
The function run Fisher test in the sensitive and resistant groups using a categorical value. TODO
fisherCategoricalVariable(drugQuantile, category)
an object of class "DrugAUCQuantile
" which
contains the sensitive and resistant organoids for a specific drug.
a single character
string representing the column
from the "DrugAUCQuantile
" extreme dataset that should be used as the
categorical variable.
a list
containing 2 components:
Fisher TODO
tablea data.frame
TODO
## Load drug screen dataset and patient information for methotrexate
data(drugScreeningMethoSet)
data(patientInfoMethoSet)
## Retain unreplicated samples
cleanData <- selectNoReplicateOrganoids(drugScreening=drugScreeningMethoSet,
patientInfo=patientInfoMethoSet)
## Calculate the extreme organoids for the methotrexate drug screening
## using a quantile of 1/3
results <- getClassOneDrug(drugScreening=cleanData,
drugName="Methotrexate", study="MEGA-TEST", screenType="TEST-01",
doseType="Averaged", quantile=1/3)
## Fisher test on ancestry
fisherT <- fisherCategoricalVariable(drugQuantile=results,
category="ancestry")