From b6ce06d09237921b7c67e86cae23c7c40502563e Mon Sep 17 00:00:00 2001 From: Marcel Costa Date: Wed, 17 Apr 2024 07:55:48 +0000 Subject: [PATCH] =?UTF-8?q?Cambio=20en=20la=20definici=C3=B3n=20del=20m?= =?UTF-8?q?=C3=A1ximo.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- functionsCyto.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/functionsCyto.R b/functionsCyto.R index e6c169b..fa36677 100644 --- a/functionsCyto.R +++ b/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",