tranform.R

transforming <-function(f,graphics=TRUE)
{
  mypath=getwd()
  biexpTrans <- flowJoTrans(channelRange=4096, maxValue=262144 , pos=4.5,neg=0, widthBasis=-10)
  tf <- transformList(colnames(f)[3:12], biexpTrans)
  f.trans<-transform(f,tf)
  trans<<-f.trans
  str<-f@description$GUID
  str<-gsub(".fcs","",str)
  str<-paste(mypath,str,"DensPlotTrans.png",sep="/")
  if(graphics==TRUE)
  {
    png(file = str)
    par( mfrow = c(4 ,3) ,mar = c(2, 2, 2, 1))
    for (i in 3:12){
      plotDens ( f.trans , c(i,2))
    }
    dev.off()
  }
 
}