Commit 8bbabb2b authored by mmassaviol's avatar mmassaviol
Browse files

Debug dada2 error (rownames filter_and_trim_out)

parent e5d15211
...@@ -52,6 +52,7 @@ filter_and_trim <- function(){ ...@@ -52,6 +52,7 @@ filter_and_trim <- function(){
stats = read.table(cutadapt_stats,header=T,sep="\t",row.names=1,stringsAsFactors=FALSE) stats = read.table(cutadapt_stats,header=T,sep="\t",row.names=1,stringsAsFactors=FALSE)
out = cbind(stats$raw,out) out = cbind(stats$raw,out)
colnames(out) = c("raw_reads","trimmed_reads","dada2_filtered_reads") colnames(out) = c("raw_reads","trimmed_reads","dada2_filtered_reads")
rownames(out) = rownames(stats)
} }
} }
saveRDS(out,filter_and_trim_out) saveRDS(out,filter_and_trim_out)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment