0
|
1 ---
|
|
2 output: html_document
|
|
3 ---
|
|
4
|
|
5 ```{r setup, include=FALSE, warning=FALSE, message=FALSE}
|
|
6 knitr::opts_chunk$set(
|
|
7 echo = as.logical(opt$X_e),
|
|
8 error = TRUE,
|
|
9 eval = TRUE
|
|
10 )
|
|
11 ```
|
|
12
|
|
13 # Kmer Content {.tabset}
|
|
14
|
|
15 ## Before
|
|
16
|
|
17 ```{r 'Kmer Content (before)', fig.width=10}
|
|
18 kc_1 = extract_data_module(paste0(opt$X_d, '/read_1_fastqc/fastqc_data.txt'), 'Kmer Content')
|
|
19 knitr::kable(kc_1)
|
|
20 ```
|
|
21
|
|
22 ## After
|
|
23 ```{r 'Kmer Content (after)', fig.width=10}
|
|
24 kc_2 = extract_data_module(paste0(opt$X_d, '/read_2_fastqc/fastqc_data.txt'), 'Kmer Content')
|
|
25 knitr::kable(kc_2)
|
|
26 ```
|