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)