From 5b2e1347cc6838fa9d41907c2fdac2bb75e61f3c Mon Sep 17 00:00:00 2001 From: Vasco Elbrecht Date: Wed, 23 Aug 2017 15:30:30 +0200 Subject: [PATCH] file name change final file includes alpha value as well --- JAMP/R/Denoise.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/JAMP/R/Denoise.R b/JAMP/R/Denoise.R index de84043..c741b35 100755 --- a/JAMP/R/Denoise.R +++ b/JAMP/R/Denoise.R @@ -239,8 +239,8 @@ data <- data[rowSums(data[5:ncol(data)-1])!=0,] data[nrow(data), 3] <- paste("denoised+below", minhaplosize, sep="") -write.csv(file=paste("_data/4_denoised/haplotable_", minhaplosize, ".csv", sep=""), data, row.names=F) -write.csv(file=paste("haplotable_", minhaplosize, ".csv", sep=""), data, row.names=F) +write.csv(file=paste("_data/4_denoised/haplotable_alpha_", unoise_alpha, "_haplosize_", minhaplosize, ".csv", sep=""), data, row.names=F) +write.csv(file=paste("haplotable_alpha_", unoise_alpha, "_haplosize_", minhaplosize, ".csv", sep=""), data, row.names=F) write.fasta(as.list(data$sequences[-nrow(data)]), paste(data$OTU[-nrow(data)], data$haplotype[-nrow(data)], sep="__"), paste("_data/4_denoised/haplo_sequ_byOTU", minhaplosize, ".txt", sep="")) write.fasta(as.list(data$sequences[-nrow(data)]), data$haplotype[-nrow(data)], paste("_data/4_denoised/haplo_sequ_", minhaplosize, ".txt", sep=""))