Update FROGS_collapse_TSV_abundance

modification du tableau récupéré

FROGS_collapse_TSV_abundance

@@ -7,7 +7,7 @@ FROGS_collapse <- function(a,name)
   for(j in 1:dim(c)[2])
   {
     print(j)
-    temp <- (a[,11:dim(a)[2]])
+    temp <- (a[,7:dim(a)[2]])
     temp2 <- matrix(ncol=dim(temp)[2],nrow=length(unique(c[,j])))
     rownames(temp2) <- sort(unique(c[,j]))
     colnames(temp2) <- colnames(temp)