marcelcosta/CytoR
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Compare commits

base: marcelcosta/CytoR:b1afba8d91caa5422719d2b3ffd48bdb09de5088
Branches Tags
marcelcosta/CytoR:main
..
compare: marcelcosta/CytoR:e189ccebd0cd2ffac337c05cf8a3b58caa2f1785
Branches Tags
marcelcosta/CytoR:main

2 Commits
b1afba8d91 .. e189ccebd0

Author SHA1 Message Date
Marcel Costa e189ccebd0 Merge branch 'main' of https://git.ratg.cat/marcelcosta/CytoR 2024-04-17 07:57:04 +00:00
Marcel Costa b6ce06d092 Cambio en la definición del máximo. 2024-04-17 07:55:48 +00:00
1 changed files with 1 additions and 1 deletions
Expand all files Collapse all files
functionsCyto.R
+1 -1
View File
@@ -71,7 +71,7 @@ transform_gs<-function(gs, saveparams=NULL, trans_params_obj=NULL, index=1){
if (is.null(trans_params_obj)){ if (is.null(trans_params_obj)){
log_mark<-colnames(gs)[!grepl("FS|SS|Time", colnames(gs))] 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 names(trans_params)<-log_mark
log_mark_lin<-colnames(gs)[grepl("FS|SS|Time", colnames(gs))] 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", trans_params_lin<-lapply(log_mark_lin, function(x) list(channel=x, scale="lin",