Mercurial > repos > ecology > ecoregion_brt_analysis

diff cluster_ceamarc.R @ 5:3cc4b8bbce00 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/Ecoregionalization_workflow commit c41939f1cdc03331ec021d47495576a6b0c5fd14
author ecology
date Wed, 16 Oct 2024 11:46:05 +0000
parents fc621f3f8226
children
line wrap: on
line diff
--- a/cluster_ceamarc.R	Thu Sep 12 13:48:36 2024 +0000
+++ b/cluster_ceamarc.R	Wed Oct 16 11:46:05 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)