---
title: "R Notebook"
output: html_notebook
---
Load the libraries
```{r}
# Load the libraries
library(SingleCellExperiment)
library(Seurat)
remotes::install_github("mojaveazure/seurat-disk")
library(SeuratDisk)
library(tidyverse)
library(RColorBrewer)
library(scDblFinder)
library(cowplot)
```
Notice that "first-trimester-decidua-human-placenta-10XV2.loom" is already analyzed, and we already created the Seurat Object.
```{r eval = FALSE}
loom_obj1 <- Connect(filename = "first-trimester-decidua-human-placenta-10XV2.loom",
mode = 'r')
seurat_loom1 <- as.Seurat(loom_obj1)
saveRDS(seurat_loom, "seuratObj.rds")
```
```{r}
sSeurat1 <- readRDS("seuratObj.rds")
dim(sSeurat1)
```
Continue for the other 3 loom files
```{r}
loom_obj2 <- Connect(filename = "4584e785-dc1d-4f31-99ca-76626fe7e2bf.loom",
mode = 'r')
seurat_loom2 <- as.Seurat(loom_obj2)
saveRDS(seurat_loom2, "seuratObj2.rds")
```
```{r eval = FALSE}
seurat_loom2 <- LoadLoom("4584e785-dc1d-4f31-99ca-76626fe7e2bf.loom",
saveRDS(seurat_loom2, "seuratObj2.rds")
```
```{r}
sSeurat2 <- readRDS("seuratObj2.rds")
dim(sSeurat2)
```
Keep going for the third loom file
```{r}
loom_obj3 <- Connect(filename = "92ac3dd4-b500-451a-855f-0908cf667af2.loom",
mode = 'r')
seurat_loom3 <- as.Seurat(loom_obj3)
saveRDS(seurat_loom3, "seuratObj3.rds")
```
```{r}
sSeurat3 <- readRDS("seuratObj3.rds")
dim(sSeurat3)
```
Finally, the last loom file
```{r}
loom_obj4 <- Connect(filename = "c0d33f68-1573-45d2-9295-7f93f9a086b0.loom",
mode = 'r')
seurat_loom4 <- as.Seurat(loom_obj4)
saveRDS(seurat_loom4, "seuratObj4.rds")
```
```{r}
sSeurat4 <- readRDS("seuratObj4.rds")
dim(sSeurat4)
```