Commit 01c2fe74 authored by Cedric Midoux's avatar Cedric Midoux
Browse files

Sequencing sample code

parent b852f88e
......@@ -16,6 +16,6 @@ nb_asv <- rowSums(seqtab.nochim > 0) %>% as.data.frame() %>% rownames_to_column(
metrics <- dplyr::full_join(x = reads_input, y = reads_output, by = "Sample") %>%
dplyr::full_join(y = nb_asv, by = "Sample")
colnames(metrics) <- c('Sample', 'Input reads', 'Post-process reads', 'Nb ASV')
colnames(metrics) <- c('Sequencing sample code', 'Input reads', 'Post-process reads', 'Nb ASV')
write.table(metrics, snakemake@output$tsv, sep = "\t", quote = FALSE, row.names = FALSE)
Markdown is supported
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