#compute log10 transform of mrna experiment data replacing (clipping)
#the output values with log10(0.5)for input values < 0.5
fltExperimentSet<-DataFilter$do.apply(examples$mrnaExperimentSet,
byRows=TRUE,filterFun=DataFilter$logTen,filtParams=c(0.5,log10(0.5)),verbose=TRUE);
#print the number of elements clipped
sum(fltExperimentSet[,-1]==log10(0.5))-sum(examples$mrnaExperimentSet[,-1]<=0.5);
Run the code above in your browser using DataLab