Update FROGS_collapse_TSV_abundance

FROGS_collapse_TSV_abundance

 #attention, vérifier la structure du fichier tsv pour modification de la ligne 11
-FROGS_collapse <- function(a,name)
+FROGS_collapse <- function(a,name,column)
 {
   a[which(a[,2]=="no data"),2]<-paste("no data","no data","no data","no data","no data","no data","no data",sep=";")
   b <- unlist(strsplit(a[,2],";"))
@@ -8,7 +8,7 @@ FROGS_collapse <- function(a,name)
   for(j in 1:dim(c)[2])
   {
     print(j)
-    temp <- a[,11:dim(a)[2]]
+    temp <- a[,column:dim(a)[2]]
     temp2 <- matrix(ncol=dim(temp)[2],nrow=length(unique(c[,j])))
     rownames(temp2) <- sort(unique(c[,j]))
     colnames(temp2) <- colnames(temp)