# HG changeset patch # User ecology # Date 1729079096 0 # Node ID 44dcc1ae3489c6bba5847fc92c2352e997db4b63 # Parent 300aebed3d7fee71a2e0d279eede2ebba9ab8b3a planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/Ecoregionalization_workflow commit c41939f1cdc03331ec021d47495576a6b0c5fd14 diff -r 300aebed3d7f -r 44dcc1ae3489 cluster_ceamarc.R --- a/cluster_ceamarc.R Thu Sep 12 13:47:42 2024 +0000 +++ b/cluster_ceamarc.R Wed Oct 16 11:44:56 2024 +0000 @@ -41,7 +41,7 @@ clus <- cbind(data.bio[1:nrow(test3), 1:2],test5$clustering) names(clus) <- c("lat", "long", "cluster") -clus <- cbind(clus,test3,env.data[,3:19]) +clus <- cbind(clus,test3,env.data[,3:ncol(env.data)]) write.table(clus[1:3], file = "points_clus.tsv", quote = FALSE, sep="\t", row.names = FALSE) write.table(clus, file = "clus.tsv", quote = FALSE, sep="\t", row.names = FALSE)