Mercurial > repos > ecology > ecoregion_clara_cluster
diff cluster_ceamarc.R @ 1:edb8d19735a6 draft
planemo upload for repository https://github.com/galaxyecology/tools-ecology/tree/master/tools/Ecoregionalization_workflow commit 459ba1277acd7d8d4a02f90dbd7ff444bf8eac92
author | ecology |
---|---|
date | Wed, 24 Jan 2024 15:53:07 +0000 |
parents | 32849c52aa54 |
children | 74e966baa5fd |
line wrap: on
line diff
--- a/cluster_ceamarc.R Wed Oct 18 09:59:19 2023 +0000 +++ b/cluster_ceamarc.R Wed Jan 24 15:53:07 2024 +0000 @@ -22,7 +22,7 @@ } #load data -env.data <- read.table(enviro, header=TRUE, sep=" ",dec = ".", na.strings = "-9999.00") +env.data <- read.table(enviro, header=TRUE, sep="\t",dec = ".", na.strings = "-9999") data.bio <- read.table(data.bio, header=TRUE, sep="\t") test3 <- read.table(data, header = TRUE, sep="\t") @@ -43,8 +43,8 @@ names(clus) <- c("lat", "long", "cluster") clus <- cbind(clus,test3,env.data[,3:19]) -write.table(clus[1:3], file = "points_clus.txt",quote = FALSE, row.names = FALSE) -write.table(clus, file = "clus.txt",quote = FALSE, row.names = FALSE) +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)