SampleFilteringandSCT_Batch1Lane1.Rmd

---
title: "SampleFilteringandSCT_Batch1Lane1"
author: "klrhodes"
date: "8/4/2020"
output: html_document
---

```{r, results='hide'}
library(knitr)
library(Seurat)
library(Matrix)
library(DropletUtils)
library(ggplot2)
library(dplyr)
library(here)
```

load rds
```{r, results='hide'}
samp.obj<- readRDS('/project2/gilad/katie/Pilot_HumanEBs/HumanEB_QCmetadata/Batch1_Lane1_seurat_NoNorm_QCMetaAdded.rds')
```

```{r}
qc<- knitr::knit_expand(file = here::here("analysis/child/SampleFilteringAndSCT.Rmd"))
```


`knitr::knit(text=unlist(qc))`