# HG changeset patch # User ecology # Date 1589231740 0 # Node ID 95cfd4b2451cfd5b228d8f92d1b7b6c3232ce788 # Parent fb31d710b3ad114b5a856c3c5996163e01ae6023 "planemo upload for repository https://github.com/Alanamosse/Galaxy-E/tree/stoctool/tools/stoc commit d49a4da1ffac1f33a15fdb7ae98827d0034a7879" diff -r fb31d710b3ad -r 95cfd4b2451c FunctTrendSTOCGalaxy.r --- a/FunctTrendSTOCGalaxy.r Thu Apr 02 07:31:59 2020 +0000 +++ b/FunctTrendSTOCGalaxy.r Mon May 11 21:15:40 2020 +0000 @@ -62,7 +62,7 @@ if(length(colNull)>0){ cat("\n",length(colNull)," Species removed from the analysis, abundance is always 0.\n\n",sep="") #Espèces enlevées de l'analyse car abondance toujours égale a 0\n\n",sep="") #tabNull <- data.frame(Code_espece = colNull, nom_espece = tabsp[colNull,"nom"]) - #cat("\n\n",sep="") + cat("Removed absent species : \n-",paste(colNull,collapse="\n-"),sep="") tab <- tab[,c("carre","annee",colConserve)] } ################################################################################ FIN DE LA PARTIE ISOLABLE @@ -119,7 +119,7 @@ cat("\n",length(colSupr)," Rare species removed from the analysis.\n\n",sep="") #tabSupr <- subset(tabsp,espece %in% colSupr ,select=c("espece","nom")) #tabSupr <- tabSupr[order(tabSupr$espece),] - #cat("\n\n",sep="") + cat("Removed rare species : \n-",paste(colSupr,collapse="\n-"),sep="") } if(length(colConserve)==0) { diff -r fb31d710b3ad -r 95cfd4b2451c stoceps_macros.xml --- a/stoceps_macros.xml Thu Apr 02 07:31:59 2020 +0000 +++ b/stoceps_macros.xml Mon May 11 21:15:40 2020 +0000 @@ -1,5 +1,5 @@ - 0.0.1 + 0.0.2 r-reshape @@ -53,11 +53,10 @@ - settings['advanced'] == 'advanced' - settings['method'] == 'glmmtmb' + method['model'] == 'glmmtmb' - settings['method'] == 'gam' + method['model'] == 'gam'