Commit 778f032c authored by Dimitrios Kyriakis's avatar Dimitrios Kyriakis
Browse files

collap

parent a1ff2df5
...@@ -37,6 +37,7 @@ EBs are cells at an early stage of spontaneous differentiation. Scorecard analys ...@@ -37,6 +37,7 @@ EBs are cells at an early stage of spontaneous differentiation. Scorecard analys
<details><summary>Code</summary> <details><summary>Code</summary>
<p> <p>
```r ```r
library(reticulate) library(reticulate)
use_python("C:/Users/dimitrios.kyriakis/AppData/Local/Continuum/anaconda3/envs/iscwrapper/python.exe", required = TRUE) use_python("C:/Users/dimitrios.kyriakis/AppData/Local/Continuum/anaconda3/envs/iscwrapper/python.exe", required = TRUE)
options(future.globals.maxSize= 2122317824) options(future.globals.maxSize= 2122317824)
...@@ -55,6 +56,7 @@ library(ggplot2) ...@@ -55,6 +56,7 @@ library(ggplot2)
library(ggpubr) library(ggpubr)
library(cowplot) library(cowplot)
set.seed(123) set.seed(123)
``` ```
</p> </p>
</details> </details>
...@@ -64,6 +66,7 @@ set.seed(123) ...@@ -64,6 +66,7 @@ set.seed(123)
<details><summary>Code</summary> <details><summary>Code</summary>
<p> <p>
```r ```r
# ================================ SETTING UP ======================================== # # ================================ SETTING UP ======================================== #
tool="seurat" tool="seurat"
project ="Michi_Data" project ="Michi_Data"
...@@ -92,6 +95,7 @@ SCT=TRUE ...@@ -92,6 +95,7 @@ SCT=TRUE
criteria_pass=3 criteria_pass=3
min.cells <- 10 min.cells <- 10
min.features <- 200 min.features <- 200
``` ```
</p> </p>
</details> </details>
...@@ -106,6 +110,7 @@ Additional to this filtering, we defined cells as low-quality, based on three cr ...@@ -106,6 +110,7 @@ Additional to this filtering, we defined cells as low-quality, based on three cr
<details><summary>Code</summary> <details><summary>Code</summary>
<p> <p>
```r ```r
# ======== Perform an integrated analysis ==== # ======== Perform an integrated analysis ====
NewDir <- paste0(Sys.Date(),"_",tool,"_elbow_",elbow,"_Mito-",remove_mt,"_Ribo-",remove_ribsomal,"_SCT-",SCT,"_criteria_pass-",criteria_pass) NewDir <- paste0(Sys.Date(),"_",tool,"_elbow_",elbow,"_Mito-",remove_mt,"_Ribo-",remove_ribsomal,"_SCT-",SCT,"_criteria_pass-",criteria_pass)
dir.create(NewDir) dir.create(NewDir)
...@@ -121,6 +126,7 @@ Return_fun <- ICSWrapper::create_cds2(list_of_files=list_of_files, ...@@ -121,6 +126,7 @@ Return_fun <- ICSWrapper::create_cds2(list_of_files=list_of_files,
Combined <- Return_fun$Combined Combined <- Return_fun$Combined
Data_List <- Return_fun$Data_List Data_List <- Return_fun$Data_List
setwd("../") setwd("../")
``` ```
</p> </p>
</details> </details>
...@@ -139,6 +145,7 @@ The integration of the filtered matrices of the different datasets was performed ...@@ -139,6 +145,7 @@ The integration of the filtered matrices of the different datasets was performed
<details><summary>Code</summary> <details><summary>Code</summary>
<p> <p>
```{r remapping} ```{r remapping}
dir.create("Aligned_Cond_RegPhase") dir.create("Aligned_Cond_RegPhase")
setwd("Aligned_Cond_RegPhase") setwd("Aligned_Cond_RegPhase")
# ================================== ALLIGN CONDITIONS ========================================= # ================================== ALLIGN CONDITIONS =========================================
...@@ -163,6 +170,7 @@ Seurat.combined <- IntegrateData(anchorset = int.anchors, normalization.method = ...@@ -163,6 +170,7 @@ Seurat.combined <- IntegrateData(anchorset = int.anchors, normalization.method =
DefaultAssay(object = Seurat.combined) <- "integrated" DefaultAssay(object = Seurat.combined) <- "integrated"
Combined <- Seurat.combined Combined <- Seurat.combined
setwd("../") setwd("../")
``` ```
</p> </p>
</details> </details>
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment