data(GiaeverPheno)
data(GiaeverExpCdt)
##Select all the genes, in the different experimental conditions, that present a fitness score above 20, 100 and 100 at 5, 15 and 20 generations, respectively
fitnessGen <- getFDgene(GiaeverPheno,condition=GiaeverExpCdt,cutoff=c(20,100,100),mode="generation",subset=c(5,15,20))
##Select all the genes, that present a fitness score above 15 and 100
##in the condition set A and B respectively, independently of the generation time
fitnessCondt <- getFDgene(GiaeverPheno,condition=GiaeverExpCdt,cutoff=c(100,15),mode="condition",subset=list(a=c(1:23,27,30,31),b=c(24:26,28,29)))
Run the code above in your browser using DataLab