Cambio en la definición del máximo.

functionsCyto.R

@@ -71,7 +71,7 @@ transform_gs<-function(gs, saveparams=NULL, trans_params_obj=NULL, index=1){
   
   if (is.null(trans_params_obj)){
     log_mark<-colnames(gs)[!grepl("FS|SS|Time", colnames(gs))]
-    trans_params<-lapply(log_mark, function(x) list(channel=x, scale="biexp",maxvalue=250000,pos=4, widthBasis=-400, max=5, min=0))
+    trans_params<-lapply(log_mark, function(x) list(channel=x, scale="biexp",maxvalue=250000,pos=4, widthBasis=-400, max=10^3.7, min=0))
     names(trans_params)<-log_mark
     log_mark_lin<-colnames(gs)[grepl("FS|SS|Time", colnames(gs))]
     trans_params_lin<-lapply(log_mark_lin, function(x) list(channel=x, scale="lin",