foldChange<-function(inData,classLabel)
{
#Calculating all probes’ FC value
sampleIdsCase<-which(classLabel0);#0 tumer
sampleIdsControl<-which(classLabel1);#1 normal
probeFC<-rep(0,nrow(inData))
for(i in 1:nrow(inData))
{
probeFC[i]<-mean(as.numeric(as.vector(inData[i,sampleIdsCase])))/mean(as.numeric(as.vector(inData[i,sampleIdsControl])));
}
probeFC<-log(probeFC,base=2);
result<-probeFC;
return(result)
}
Foldchange
最新推荐文章于 2022-12-04 23:57:42 发布