@@ -34,8 +34,6 @@ nSamples <- length(Biobase::sampleNames(bs))

 ## Read information

 ```{r read_metrics,echo=FALSE,warning=FALSE,message=FALSE,fig.width=8, fig.height=7,fig.align='center'}

 # Methylation distribution for all the cells

-

-

 dat <- scmeth::readmetrics(bs)

 SummaryTable <- dat

@@ -63,7 +61,6 @@ g <- g+ggplot2::theme(panel.background =

                         axis.text.y=ggplot2::element_blank(),

                         axis.ticks=ggplot2::element_blank())

 g

-

 ```

@@ -127,8 +124,6 @@ g

 ## Bisulfite conversion rate

 ```{r bs_conversion,echo=FALSE,warning=FALSE,message=FALSE,fig.height=5,fig.width=5,fig.align='center'}

-

-

 bscDf <- scmeth::bsConversionPlot(bs)

@@ -142,7 +137,6 @@ g <- g+ggplot2::geom_jitter()

 g <- g+ggplot2::xlab('')+ggplot2::ylab('bisulfite conversion rate')

 g <- g+ggplot2::ggtitle('Bisulfite conversion rate across samples')

 g

-

 ```