@@ -34,6 +34,7 @@ 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

+# Check the commits

 dat <- scmeth::readmetrics(bs)

 SummaryTable <- dat