Skip to content

Commit eb9a1b8

Browse files
committed
update chapter hierarchy
1 parent 3883b49 commit eb9a1b8

File tree

1 file changed

+12
-12
lines changed

1 file changed

+12
-12
lines changed

16-remove-conf-reads.Rmd

+12-12
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22
output: html_document
33
---
44

5-
# Dealing with confounders (Reads)
5+
## Dealing with confounders (Reads)
66

77
```{r, echo=FALSE}
88
library(knitr)
@@ -30,9 +30,9 @@ reads.qc <- computeSumFactors(reads.qc, sizes = 15, clusters = qclust)
3030
reads.qc <- normalize(reads.qc)
3131
```
3232

33-
## Remove Unwanted Variation
33+
### Remove Unwanted Variation
3434

35-
### RUVg
35+
#### RUVg
3636

3737
```{r, message=FALSE, warning=FALSE}
3838
ruvg <- RUVg(counts(reads.qc), erccs, k = 1)
@@ -45,7 +45,7 @@ assay(reads.qc, "ruvg10") <- log2(
4545
)
4646
```
4747

48-
### RUVs
48+
#### RUVs
4949

5050
```{r}
5151
scIdx <- matrix(-1, ncol = max(table(reads.qc$individual)), nrow = 3)
@@ -66,7 +66,7 @@ assay(reads.qc, "ruvs10") <- log2(
6666
)
6767
```
6868

69-
### Combat
69+
#### Combat
7070

7171
```{r, eval = TRUE, message = FALSE}
7272
combat_data <- logcounts(reads.qc)
@@ -98,7 +98,7 @@ assay(reads.qc, "combat_tf") <- ComBat(
9898
)
9999
```
100100

101-
### mnnCorrect
101+
#### mnnCorrect
102102

103103
```{r}
104104
do_mnn <- function(data.qc) {
@@ -143,7 +143,7 @@ assay(reads.qc, "mnn") <- cbind(indi1, indi2, indi3);
143143
#)
144144
```
145145

146-
### GLM
146+
#### GLM
147147

148148
```{r}
149149
glm_fun <- function(g, batch, indi) {
@@ -188,7 +188,7 @@ indi3 <- do_glm(reads.qc[, reads.qc$individual == "NA19239"])
188188
assay(reads.qc, "glm_indi") <- cbind(indi1, indi2, indi3);
189189
```
190190

191-
### Effectiveness 1
191+
#### Effectiveness 1
192192

193193
```{r}
194194
for(n in assayNames(reads.qc)) {
@@ -205,7 +205,7 @@ for(n in assayNames(reads.qc)) {
205205
}
206206
```
207207

208-
### Effectiveness 2
208+
#### Effectiveness 2
209209

210210
```{r}
211211
res <- list()
@@ -216,7 +216,7 @@ par(mar=c(6,4,1,1))
216216
boxplot(res, las=2)
217217
```
218218

219-
### Effectiveness 3
219+
#### Effectiveness 3
220220

221221
```{r}
222222
for(n in assayNames(reads.qc)) {
@@ -239,7 +239,7 @@ for(n in assayNames(reads.qc)) {
239239
}
240240
```
241241

242-
### Effectiveness 4
242+
#### Effectiveness 4
243243

244244
```{r, message = FALSE}
245245
compare_kBET_results <- function(sce){
@@ -294,7 +294,7 @@ ggplot(dod, aes(Normalisation, Individual, fill=kBET)) +
294294
ggtitle("Effect of batch regression methods per individual")
295295
```
296296

297-
### sessionInfo()
297+
#### sessionInfo()
298298

299299
```{r echo=FALSE}
300300
sessionInfo()

0 commit comments

Comments
 (0)