3 FACS gating of cell population

setwd(here::here())

library("metacell")
library("tgstat")
library("Matrix")
library("dplyr")

## 
## Attaching package: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

source("scripts/pipeline/proj_on_wt9_atlas.R")
source("scripts/pipeline/add_clone_information_to_scmat_metadata.R")

scfigs_init("figs")
scdb_init("scrna_db/", force_reinit = TRUE)

## initializing scdb to scrna_db/

3.0.0.1 Tet TKO chimera embryos

source("scripts/gating/tko_chim_gating.R")

3.0.0.2 Tet TKO tetraploid embryos

source("scripts/gating/tko_tetra_gating.R")

3.0.0.3 Control tetraploid embryos

source("scripts/gating/control_tetra_gating.R")

3.0.0.4 Tet 1/2 DKO chimera embryos

source("scripts/gating/dko12_chim_gating.R")
dko12_gating()

3.0.0.5 Tet 1/3 DKO chimera embryos

source("scripts/gating/dko13_chim_gating.R")
dko13_gating()

3.0.0.6 Tet 2/3 DKO chimera embryos

source("scripts/gating/dko23_chim_gating.R")
dko23_gating()