diff --git a/FROGS_collapse_TSV_abundance b/FROGS_collapse_TSV_abundance index 1fa819289a29d8dd9fd364279f6c7bc68908457d..98350d944f5ef6ef81b1c79d14d548408daf290f 100644 --- a/FROGS_collapse_TSV_abundance +++ b/FROGS_collapse_TSV_abundance @@ -8,7 +8,7 @@ FROGS_collapse <- function(a,name) for(j in 1:dim(c)[2]) { print(j) - temp <- (a[,7:dim(a)[2]]) + temp <- (a[,11:dim(a)[2]]) temp2 <- matrix(ncol=dim(temp)[2],nrow=length(unique(c[,j]))) rownames(temp2) <- sort(unique(c[,j])) colnames(temp2) <- colnames(temp)