data(GiaeverPheno)
data(GiaeverExpCdt)
data(GiaeverGene)
fitnessData <- getFDgene(GiaeverPheno,condition=GiaeverExpCdt,cutoff=c(20,100,100),mode="generation",subset=c(5,15,20))
GiaeverPhenoM <- buildFDMat(data=fitnessData,genenames=GiaeverGene,condition=GiaeverExpCdt[,3])
Run the code above in your browser using DataLab