Update FROGS_collapse_TSV_abundance

FROGS_collapse_TSV_abundance

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