file name change

final file includes alpha value as well
VascoElbrecht · Aug 23, 2017 · 5b2e134 · 5b2e134
1 parent 1ab8331
commit 5b2e134
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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=""))