my_normalize.R

my_normalize<-function(fs,graphics=TRUE)
{

  normalized<<-warpSet(fs, colnames(fs), grouping = NULL, monwrd = TRUE, subsample=NULL,peakNr=NULL, clipRange=0.01, nbreaks=11, bwFac=2,warpFuns=FALSE,target=NULL)
  cat("normalize...Done\n")
  if(graphics==TRUE)
  {
    cat("Let's have some pretty plots\n")
    cat("DensityPlot of all normalized data\n")
    d2 <- densityplot(~ ., normalized, main="normalized")
    png(file="normalized.png")
    plot(d2)
    dev.off()
  }
  
}