Buck9195/Gladstone-Bioinformatics-Workshop
1
0
Fork 0
mirror of https://github.com/gladstone-institutes/Bioinformatics-Workshops.git synced 2025-11-30 09:45:43 -08:00
Code Issues Projects Releases Packages Wiki Activity Actions

updated date

Browse source
This commit is contained in:
reubenthomas 2021-03-30 15:50:56 -07:00
parent 85930644b9
commit ad2c8fe1fe
1 changed files with 7 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

11
single-cell-analysis/Session_3/Session3.Rmd
View file

@ -111,7 +111,7 @@ data <- subset(x=data, subset=nFeature_RNA > 200 & nCount_RNA > quantnCountRNA &
print(sprintf("After filtering outliers: %d cells and %d genes", ncol(data), nrow(data)))
```
##Normalization
## Normalization
Now, we will perform sctranform based normalization and visualize the results
```{r}
data <- SCTransform(data, method="qpoisson", vars.to.regress = NULL)
@ -199,9 +199,9 @@ sce <- as(sce, "SingleCellExperiment")
## Prep this object for subsequent aggregation analyses
(sce <- prepSCE(sce,
cluster_id = "seurat_clusters", # subpopulation assignments
group_id = "sTime", # group IDs
sample_id = "sIndividual", # sample IDs
kid = "seurat_clusters", # subpopulation assignments
gid = "sTime", # group IDs
sid = "sIndividual", # sample IDs
drop = TRUE)) # drop all other colData columns
nk <- length(kids <- levels(sce$cluster_id))
@ -350,4 +350,7 @@ DimPlot(batch.integrated, reduction = "tsne", group.by = "Time")
DimPlot(batch.integrated, reduction = "tsne", group.by = "batch")
```
```{r}
sessionInfo()
```