Last updated: 2020-11-20

Checks: 7 0

Knit directory: QuRIE-seq_manuscript/

This reproducible R Markdown analysis was created with workflowr (version 1.6.1). The Checks tab describes the reproducibility checks that were applied when the results were created. The Past versions tab lists the development history.


Great! Since the R Markdown file has been committed to the Git repository, you know the exact version of the code that produced these results.

Great job! The global environment was empty. Objects defined in the global environment can affect the analysis in your R Markdown file in unknown ways. For reproduciblity it’s best to always run the code in an empty environment.

The command set.seed(20201117) was run prior to running the code in the R Markdown file. Setting a seed ensures that any results that rely on randomness, e.g. subsampling or permutations, are reproducible.

Great job! Recording the operating system, R version, and package versions is critical for reproducibility.

Nice! There were no cached chunks for this analysis, so you can be confident that you successfully produced the results during this run.

Great job! Using relative paths to the files within your workflowr project makes it easier to run your code on other machines.

Great! You are using Git for version control. Tracking code development and connecting the code version to the results is critical for reproducibility.

The results in this page were generated with repository version 420f897. See the Past versions tab to see a history of the changes made to the R Markdown and HTML files.

Note that you need to be careful to ensure that all relevant files for the analysis have been committed to Git prior to generating the results (you can use wflow_publish or wflow_git_commit). workflowr only checks the R Markdown file, but you know if there are other scripts or data files that it depends on. Below is the status of the Git repository when the results were generated:


Ignored files:
    Ignored:    .Rhistory
    Ignored:    .Rproj.user/
    Ignored:    analysis/figure/

Untracked files:
    Untracked:  MOFA_aIg.hdf5
    Untracked:  MOFA_aIg.rds
    Untracked:  MOFA_ibru.hdf5
    Untracked:  MOFA_ibru.rds
    Untracked:  output/paper_figures/
    Untracked:  seu_combined_filtered_allsamples.rds
    Untracked:  seu_combined_raw.rds

Unstaged changes:
    Modified:   analysis/MOFAaIg.Rmd
    Modified:   analysis/MOFAibru.Rmd
    Modified:   code/Import_and_create_seuratObj.R
    Modified:   code/load_packages.R
    Modified:   code/plot_QC_function.R
    Deleted:    data/raw/7amrna.counts.tsv.gz
    Deleted:    data/raw/7aprot_sc.counts.fullytrim.m1.n1.l8.e75.FraMod.matrix
    Deleted:    data/raw/8amrna.counts.tsv.gz
    Deleted:    data/raw/8aprot_sc.counts.fullytrim.m1.n1.l8.e75.FraMod.matrix
    Deleted:    data/raw/9amrna.counts.tsv.gz
    Deleted:    data/raw/9aprot_sc.counts.fullytrim.m1.n1.l8.e75.FraMod.matrix

Note that any generated files, e.g. HTML, png, CSS, etc., are not included in this status report because it is ok for generated content to have uncommitted changes.


These are the previous versions of the repository in which changes were made to the R Markdown (analysis/QC.Rmd) and HTML (docs/QC.html) files. If you’ve configured a remote Git repository (see ?wflow_git_remote), click on the hyperlinks in the table below to view the files as they were in that past version.

File Version Author Date Message
Rmd 420f897 Jessie van Buggenum 2020-11-20 update gene treshold
html 1f83dd1 Jessie van Buggenum 2020-11-19 Build site.
Rmd 5d80bc6 Jessie van Buggenum 2020-11-19 correct tresholds manuscript
html 2c3e4a1 Jessie van Buggenum 2020-11-18 Build site.
Rmd 67539d5 Jessie van Buggenum 2020-11-18 QC - filter and normalize datasets and split to subset of data
html 2ffe38d Jessie van Buggenum 2020-11-17 Build site.
Rmd 4487750 Jessie van Buggenum 2020-11-17 basis set-up of page display
Rmd d9372d1 Jessie van Buggenum 2020-11-17 Publish the initial files for this website

source("code/load_packages.R")
source("code/plot_QC_function.R") #change settings in script to get different layout per subpanel for this figure
dir.create("output/paper_figures") # location where paper figures are stored

Introduction

The inDrop-RAID data contains samples 9 timepoints of aIg stimulated BJAB, and 3 additional timepoints with ibrutinib drug. Script below extracts all metadata (sequencing sample names, adds metadata info per sample (prot or RNA library)), and reads all data tables into R. The metadata table is saved in output folder: “output/metadata.csv”

For QC and filtering, cells with matching RNA and protein information are used to create a Seurat object (settings RNA: min.cells = 100, min.features = 100; proteins added as additional modality PROT). Several QC stats are calculated, and the object is saved in: “output/seu_combined_raw.rds”

myfiles <- list.files(path="output/", pattern = ".rds$")
## only read all raw files and create raw combined table if not done yet. Speeds up generation of html file
if("seu_combined_raw.rds" %in%  myfiles){seu_combined <- readRDS("output/seu_combined_raw.rds")} else { 
  source("code/Import_and_create_seuratObj.R")
}

Before QC dataset properties

Seurat object:

seu_combined
An object of class Seurat 
10364 features across 7449 samples within 2 assays 
Active assay: RNA (10284 features, 0 variable features)
 1 other assay present: PROT

Table Overview of per sample properties.

kable(seu_combined@meta.data %>% 
        group_by(condition) %>% 
        summarise(`Total number of cells` = round(n(),0),
                  `Median counts RNA` = round(median(nCount_RNA),0),
                  `Median Number genes` = round(median(nFeature_RNA),0),
                  `Median Mitochondrial counts (Median %)` = round(median(percent.mt),2), 
                  `Ribosomal counts (Median %)` = round(median(percent.rb),2),
                  `Median counts PROT` = round(median(nCount_PROT),0),
                  `Number proteins` = round(median(nFeature_PROT),0)
                  )) %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
condition Total number of cells Median counts RNA Median Number genes Median Mitochondrial counts (Median %) Ribosomal counts (Median %) Median counts PROT Number proteins
000.aIg.contr 688 1400 982 7.12 6.60 1108 61
002.aIg.contr 958 791 602 7.63 6.67 984 59
004.aIg.contr 545 856 643 7.81 5.89 1035 59
006.aIg.contr 820 1072 786 8.17 6.77 720 54
006.aIg.ibr 1148 468 365 10.85 5.98 756 57
060.aIg.contr 879 647 500 8.65 6.61 891 57
180.aIg.contr 1121 721 558 7.34 6.75 867 57
180.aIg.ibr 1290 748 586 6.25 6.84 808 57

Table Overview of full dataset properties.

kable(seu_combined@meta.data %>% 
        summarise(`Number of cells` = round(n(),0),
          `Median counts RNA` = round(median(nCount_RNA),0),
                  `Median Number genes` = round(median(nFeature_RNA),0),
                  `Median Mitochondrial counts (Median %)` = round(median(percent.mt),2), 
                  `Ribosomal counts (Median %)` = round(median(percent.rb),2),
                  `Median counts PROT` = round(median(nCount_PROT),0),
                  `Number proteins` = round(median(nFeature_PROT),0)
                  ) %>%
        t()) %>%

  kable_styling(bootstrap_options = c("striped", "hover"))
Number of cells 7449.00
Median counts RNA 742.00
Median Number genes 570.00
Median Mitochondrial counts (Median %) 7.89
Ribosomal counts (Median %) 6.55
Median counts PROT 863.00
Number proteins 57.00

Quality Control & filtering

plot_RNA_nCount <- plot_QC_paper(seu_object = seu_combined, 
                                 feature = "nCount_RNA", 
                                 ytext = "Total UMI counts per cell",
                                 xtext = "Time aIg stimulation (minutes)",
                                 paneltitle = "Keep cells < 4000 RNA counts",
                                 colorviolin = "dodgerblue2" ) + 
                        geom_hline(yintercept = 4000, size = 0.3) +
                        theme(axis.title.x = element_blank())

plot_RNA_ngenes <- plot_QC_paper(seu_object = seu_combined, 
                                 feature = "nFeature_RNA", 
                                 ytext = "Total genes per cell",
                                 xtext = "Time aIg stimulation (minutes)",
                                 paneltitle = "Keep cells >150 genes",
                                 colorviolin = "dodgerblue2" ) + 
                        geom_hline(yintercept = 150, size = 0.3) +
                        theme(axis.title.x = element_blank())
  
plot_percent.mt <- plot_QC_paper(seu_object = seu_combined, 
                                 feature = "percent.mt", 
                                 ytext = "% Mitochondrial counts",
                                 xtext = "Time aIg stimulation (minutes)",
                                 paneltitle = "Keep cells < 15 % mitochondrial genecounts",
                                 colorviolin = "dodgerblue2" ) +
                        geom_hline(yintercept = 15, color = "black", size = 0.3) +
                        theme(axis.title.x = element_blank())

plot_percent.rb <- plot_QC_paper(seu_object = seu_combined, 
                                 feature = "percent.rb", 
                                 ytext = "% Ribosomal counts",
                                 xtext = "Time aIg stimulation (minutes)",
                                 paneltitle = "Stable % ribosomal counts over time",
                                 colorviolin = "dodgerblue2" ) +
                        theme(axis.title.x = element_blank())
  
  
plot_PROT_nCount <- plot_QC_paper(seu_object = seu_combined, 
                                 feature = "nCount_PROT", 
                                 ytext =  "Total UMI counts per cell",
                                 xtext = "Time aIg stimulation (minutes)",
                                 paneltitle = "Keep cells < 3000 PROT counts",
                                 colorviolin = "deeppink3" ) +
                        geom_hline(yintercept = 3000, size = 0.3) +
                        theme(axis.title.x = element_blank())

plot_PROT_nproteins <- plot_QC_paper(seu_object = seu_combined, 
                                 feature = "nFeature_PROT", 
                                 ytext =  "Total proteins per cell",
                                 xtext = "Time aIg stimulation (minutes)",
                                 paneltitle = "Keep cells >45 proteins",
                                 colorviolin = "deeppink3" ) +
                        geom_hline(yintercept = 45, size = 0.3) 

plot_percent.H3 <- plot_QC_paper(seu_object = seu_combined, 
                                 feature = "percent.HisH3", 
                                 ytext =   "% Histone H3 counts",
                                 xtext = "Time aIg stimulation (minutes)",
                                 paneltitle = "Variation in % Histone H3 counts",
                                 colorviolin = "deeppink3" ) 
  
plot.QC <- plot_grid(plot_RNA_nCount, plot_RNA_ngenes,  plot_percent.mt, plot_percent.rb,plot_PROT_nCount,plot_PROT_nproteins, plot_percent.H3, labels = c('a', 'b', 'c','d' , 'e', 'f', 'g'), label_size = 10, ncol = 2)

ggsave(plot.QC, filename = "output/paper_figures/Suppl_QC_filters.pdf", width = 183, height = 200, units = "mm",  dpi = 300, useDingbats = FALSE)
ggsave(plot.QC, filename = "output/paper_figures/Suppl_QC_filters.png", width = 183, height = 200, units = "mm",  dpi = 300)
plot.QC

Supplementary Figure Thresholds for selection of high-quality samples and cells from the QuRIE-seq datasets.

Based on the indicated cut-offs, high-quality cellsare filtered for further analysis. Based on the good protein quality of samples and m<11% median mitochondiral counts per sample, timepoints 0, 2, 4, 6, 60 and 180 are kept for further analysis.

seu_combined_filtered <- subset(seu_combined, subset = nFeature_RNA > 150 & nCount_RNA < 4000 & nFeature_PROT > 45 & nCount_PROT < 3000 & percent.mt < 15)

Normalize and scale

# run sctransform with default settings.
seu_combined_filtered <- SCTransform(seu_combined_filtered,
                            assay = "RNA",
                            new.assay.name = "SCT.RNA",
                            do.correct.umi = TRUE,
                            ncells = NULL,
                            variable.features.n = 3000,
                            vars.to.regress = c("percent.mt", "nCount_RNA"), # substantial variation between samples & cells in mito and ncount
                            do.scale = FALSE,
                            do.center = TRUE,
                            conserve.memory = FALSE,
                            return.only.var.genes = FALSE,
                            seed.use = 42,
                            verbose = FALSE
                            )
# Add some metadata to normalized data (ncounts & percent mt)
seu_combined_filtered <- AddMetaData(seu_combined_filtered, as.data.frame(seu_combined_filtered@assays$SCT.RNA@counts) %>% summarise_all(funs(sum)) %>% unlist(), col.name = "nCount_RNA_SCT")

seu_combined_filtered <- PercentageFeatureSet(seu_combined_filtered, pattern = "^MT\\.|^MTRN", col.name = "percent.mt.aftersct", assay = "SCT.RNA")

## cell cycle scoring metadata
s.genes <- cc.genes$s.genes
g2m.genes <- cc.genes$g2m.genes
seu_combined_filtered <- CellCycleScoring(seu_combined_filtered, s.features = s.genes, g2m.features = g2m.genes, set.ident = FALSE, assay = "SCT.RNA")

seu_combined_filtered[["S.score"]] <- seu_combined_filtered@meta.data$S.Score
seu_combined_filtered[["G2M.score"]] <- seu_combined_filtered@meta.data$G2M.Score
seu_combined_filtered[["CCphase"]] <- seu_combined_filtered@meta.data$Phase
all.prot <- rownames(seu_combined_filtered[["PROT"]])

seu_combined_filtered <- NormalizeData(seu_combined_filtered, assay = "PROT", normalization.method = "CLR", verbose = FALSE)

seu_combined_filtered <- ScaleData(seu_combined_filtered, assay = "PROT", features = all.prot, vars.to.regress = c("nFeature_PROT","nCount_PROT", "percent.HisH3"))
Regressing out nFeature_PROT, nCount_PROT, percent.HisH3
Centering and scaling data matrix

Seurat object with filtered cells and normalized counts is stored in “output/seu_combined_filtered_normalized.rds”

saveRDS(seu_combined_filtered, "output/seu_combined_filtered_normalized.rds")

Subset of samples

The manuscript describes two analysis of different collection of samples:
* Effect of aIg stimulation over two time-scales (see MOFA aIg page) * Effect of ibrutinib on the cell-state at these two timescales (see MOFA ibru page)

seu_combined_aIg_selected <- subset(seu_combined_filtered, idents = c("006.aIg.ibr", "180.aIg.ibr"), invert = TRUE)

saveRDS(seu_combined_aIg_selected, "output/seu_aIG_samples.rds")
seu_combined_ibru_selected <- subset(seu_combined_filtered, idents = c("002.aIg.contr","004.aIg.contr","060.aIg.contr"), invert = TRUE)

saveRDS(seu_combined_ibru_selected, "output/seu_ibru_samples.rds")

Filtered dataset properties

Overview of the number of cells and data properties of all samples, aIg subset of samples, or ibrutinib subset of samples.

Full dataset

seu_combined_filtered
An object of class Seurat 
20648 features across 6988 samples within 3 assays 
Active assay: SCT.RNA (10284 features, 3000 variable features)
 2 other assays present: RNA, PROT

Table Overview of per sample properties after filtering

kable(seu_combined_filtered@meta.data %>% 
        group_by(condition) %>% 
        summarise(`Number of cells` = round(n(),0),
                  `Median counts RNA` = round(median(nCount_RNA),0),
                  `Median Number genes` = round(median(nFeature_RNA),0),
                  `Median Mitochondrial counts (Median %)` = round(median(percent.mt),2), 
                  `Ribosomal counts (Median %)` = round(median(percent.rb),2),
                  `Median counts PROT` = round(median(nCount_PROT),0),
                  `Number proteins` = round(median(nFeature_PROT),0)
                  )) %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
condition Number of cells Median counts RNA Median Number genes Median Mitochondrial counts (Median %) Ribosomal counts (Median %) Median counts PROT Number proteins
000.aIg.contr 649 1425 992 7.01 6.63 1108 60
002.aIg.contr 929 796 611 7.51 6.69 992 59
004.aIg.contr 512 886 662 7.64 5.94 1043 59
006.aIg.contr 718 1112 817 7.93 6.85 753 54
006.aIg.ibr 959 502 396 10.34 5.92 777 57
060.aIg.contr 866 648 504 8.65 6.61 894 57
180.aIg.contr 1099 721 558 7.32 6.75 871 57
180.aIg.ibr 1256 746 584 6.26 6.84 810 57

Table Overview of full filtered dataset properties.

kable(seu_combined_filtered@meta.data %>% 
        summarise(`Number of cells` = round(n(),0),
                  `Median counts RNA` = round(median(nCount_RNA),0),
                  `Median Number genes` = round(median(nFeature_RNA),0),
                  `Median Mitochondrial counts (Median %)` = round(median(percent.mt),2), 
                  `Ribosomal counts (Median %)` = round(median(percent.rb),2),
                  `Median counts PROT` = round(median(nCount_PROT),0),
                  `Number proteins` = round(median(nFeature_PROT),0)
                  ) %>%
        t()) %>%

  kable_styling(bootstrap_options = c("striped", "hover"))
Number of cells 6988.00
Median counts RNA 753.00
Median Number genes 579.00
Median Mitochondrial counts (Median %) 7.76
Ribosomal counts (Median %) 6.57
Median counts PROT 876.00
Number proteins 58.00

aIg samples

seu_combined_aIg_selected
An object of class Seurat 
20648 features across 4773 samples within 3 assays 
Active assay: SCT.RNA (10284 features, 3000 variable features)
 2 other assays present: RNA, PROT

Table Overview of aIg dataset properties per sample

kable(seu_combined_aIg_selected@meta.data %>% 
        group_by(condition) %>% 
        summarise(`Number of cells` = round(n(),0),
                  `Median counts RNA` = round(median(nCount_RNA),0),
                  `Median Number genes` = round(median(nFeature_RNA),0),
                  `Median Mitochondrial counts (Median %)` = round(median(percent.mt),2), 
                  `Ribosomal counts (Median %)` = round(median(percent.rb),2),
                  `Median counts PROT` = round(median(nCount_PROT),0),
                  `Number proteins` = round(median(nFeature_PROT),0)
                  )) %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
condition Number of cells Median counts RNA Median Number genes Median Mitochondrial counts (Median %) Ribosomal counts (Median %) Median counts PROT Number proteins
000.aIg.contr 649 1425 992 7.01 6.63 1108 60
002.aIg.contr 929 796 611 7.51 6.69 992 59
004.aIg.contr 512 886 662 7.64 5.94 1043 59
006.aIg.contr 718 1112 817 7.93 6.85 753 54
060.aIg.contr 866 648 504 8.65 6.61 894 57
180.aIg.contr 1099 721 558 7.32 6.75 871 57

Table Overview of aIg dataset properties.

kable(seu_combined_aIg_selected@meta.data %>% 
        summarise(`Number of cells` = round(n(),0),
                  `Median counts RNA` = round(median(nCount_RNA),0),
                  `Median Number genes` = round(median(nFeature_RNA),0),
                  `Median Mitochondrial counts (Median %)` = round(median(percent.mt),2), 
                  `Ribosomal counts (Median %)` = round(median(percent.rb),2),
                  `Median counts PROT` = round(median(nCount_PROT),0),
                  `Number proteins` = round(median(nFeature_PROT),0)
                  ) %>%
        t()) %>%

  kable_styling(bootstrap_options = c("striped", "hover"))
Number of cells 4773.00
Median counts RNA 824.00
Median Number genes 625.00
Median Mitochondrial counts (Median %) 7.69
Ribosomal counts (Median %) 6.62
Median counts PROT 917.00
Number proteins 58.00

aIg + ibrutinib samples

seu_combined_ibru_selected
An object of class Seurat 
20648 features across 4681 samples within 3 assays 
Active assay: SCT.RNA (10284 features, 3000 variable features)
 2 other assays present: RNA, PROT

Table Overview of ibru dataset properties per sample

kable(seu_combined_ibru_selected@meta.data %>% 
        group_by(condition) %>% 
        summarise(`Number of cells` = round(n(),0),
                  `Median counts RNA` = round(median(nCount_RNA),0),
                  `Median Number genes` = round(median(nFeature_RNA),0),
                  `Median Mitochondrial counts (Median %)` = round(median(percent.mt),2), 
                  `Ribosomal counts (Median %)` = round(median(percent.rb),2),
                  `Median counts PROT` = round(median(nCount_PROT),0),
                  `Number proteins` = round(median(nFeature_PROT),0)
                  )) %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
condition Number of cells Median counts RNA Median Number genes Median Mitochondrial counts (Median %) Ribosomal counts (Median %) Median counts PROT Number proteins
000.aIg.contr 649 1425 992 7.01 6.63 1108 60
006.aIg.contr 718 1112 817 7.93 6.85 753 54
006.aIg.ibr 959 502 396 10.34 5.92 777 57
180.aIg.contr 1099 721 558 7.32 6.75 871 57
180.aIg.ibr 1256 746 584 6.26 6.84 810 57

Table Overview of ibru dataset properties.

kable(seu_combined_ibru_selected@meta.data %>% 
        summarise(`Number of cells` = round(n(),0),
                  `Median counts RNA` = round(median(nCount_RNA),0),
                  `Median Number genes` = round(median(nFeature_RNA),0),
                  `Median Mitochondrial counts (Median %)` = round(median(percent.mt),2), 
                  `Ribosomal counts (Median %)` = round(median(percent.rb),2),
                  `Median counts PROT` = round(median(nCount_PROT),0),
                  `Number proteins` = round(median(nFeature_PROT),0)
                  ) %>%
        t()) %>%

  kable_styling(bootstrap_options = c("striped", "hover"))
Number of cells 4681.00
Median counts RNA 761.00
Median Number genes 586.00
Median Mitochondrial counts (Median %) 7.62
Ribosomal counts (Median %) 6.60
Median counts PROT 840.00
Number proteins 57.00

sessionInfo()
R version 3.6.3 (2020-02-29)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 10 x64 (build 17763)

Matrix products: default

locale:
[1] LC_COLLATE=English_Netherlands.1252  LC_CTYPE=English_Netherlands.1252   
[3] LC_MONETARY=English_Netherlands.1252 LC_NUMERIC=C                        
[5] LC_TIME=English_Netherlands.1252    

attached base packages:
 [1] parallel  stats4    grid      stats     graphics  grDevices utils    
 [8] datasets  methods   base     

other attached packages:
 [1] png_0.1-7                   forcats_0.5.0              
 [3] clusterProfiler_3.14.3      clusterProfiler.dplyr_0.0.2
 [5] enrichplot_1.6.1            org.Hs.eg.db_3.10.0        
 [7] AnnotationDbi_1.48.0        IRanges_2.20.2             
 [9] S4Vectors_0.24.4            Biobase_2.46.0             
[11] BiocGenerics_0.32.0         ggridges_0.5.2             
[13] cowplot_1.1.0               ggtext_0.1.0               
[15] ggplotify_0.0.5             ggcorrplot_0.1.3           
[17] ggrepel_0.8.2               ggpubr_0.4.0               
[19] scico_1.2.0                 MOFA2_1.1                  
[21] extrafont_0.17              patchwork_1.0.1            
[23] RColorBrewer_1.1-2          viridis_0.5.1              
[25] viridisLite_0.3.0           ggsci_2.9                  
[27] sctransform_0.3.1           ggthemes_4.2.0             
[29] matrixStats_0.57.0          kableExtra_1.2.1           
[31] gridExtra_2.3               Seurat_3.2.2               
[33] ggplot2_3.3.2               scales_1.1.1               
[35] tidyr_1.1.2                 dplyr_1.0.2                
[37] stringr_1.4.0               workflowr_1.6.1            

loaded via a namespace (and not attached):
  [1] reticulate_1.16       tidyselect_1.1.0      RSQLite_2.2.1        
  [4] htmlwidgets_1.5.2     BiocParallel_1.20.1   Rtsne_0.15           
  [7] munsell_0.5.0         codetools_0.2-16      ica_1.0-2            
 [10] future_1.19.1         miniUI_0.1.1.1        withr_2.3.0          
 [13] GOSemSim_2.12.1       colorspace_1.4-1      highr_0.8            
 [16] knitr_1.30            rstudioapi_0.11       ROCR_1.0-11          
 [19] ggsignif_0.6.0        tensor_1.5            DOSE_3.12.0          
 [22] Rttf2pt1_1.3.8        listenv_0.8.0         labeling_0.4.2       
 [25] git2r_0.27.1          urltools_1.7.3        polyclip_1.10-0      
 [28] farver_2.0.3          bit64_4.0.5           pheatmap_1.0.12      
 [31] rhdf5_2.30.1          rprojroot_1.3-2       vctrs_0.3.4          
 [34] generics_0.0.2        xfun_0.18             R6_2.4.1             
 [37] graphlayouts_0.7.0    rsvd_1.0.3            fgsea_1.12.0         
 [40] spatstat.utils_1.17-0 gridGraphics_0.5-0    DelayedArray_0.12.3  
 [43] promises_1.1.0        ggraph_2.0.3          gtable_0.3.0         
 [46] globals_0.13.1        goftest_1.2-2         tidygraph_1.2.0      
 [49] rlang_0.4.8           splines_3.6.3         rstatix_0.6.0        
 [52] extrafontdb_1.0       lazyeval_0.2.2        europepmc_0.4        
 [55] broom_0.7.1           BiocManager_1.30.10   yaml_2.2.1           
 [58] reshape2_1.4.4        abind_1.4-5           backports_1.1.10     
 [61] httpuv_1.5.2          qvalue_2.18.0         gridtext_0.1.1       
 [64] tools_3.6.3           ellipsis_0.3.1        Rcpp_1.0.4.6         
 [67] plyr_1.8.6            progress_1.2.2        purrr_0.3.4          
 [70] prettyunits_1.1.1     rpart_4.1-15          deldir_0.1-29        
 [73] pbapply_1.4-3         zoo_1.8-8             haven_2.3.1          
 [76] cluster_2.1.0         fs_1.4.1              magrittr_1.5         
 [79] data.table_1.13.0     DO.db_2.9             openxlsx_4.2.2       
 [82] triebeard_0.3.0       lmtest_0.9-38         RANN_2.6.1           
 [85] whisker_0.4           fitdistrplus_1.1-1    hms_0.5.3            
 [88] mime_0.9              evaluate_0.14         xtable_1.8-4         
 [91] rio_0.5.16            readxl_1.3.1          compiler_3.6.3       
 [94] tibble_3.0.4          KernSmooth_2.23-16    crayon_1.3.4         
 [97] htmltools_0.5.0       mgcv_1.8-31           later_1.0.0          
[100] DBI_1.1.0             tweenr_1.0.1          corrplot_0.84        
[103] MASS_7.3-53           rappdirs_0.3.1        Matrix_1.2-18        
[106] car_3.0-10            igraph_1.2.6          pkgconfig_2.0.3      
[109] rvcheck_0.1.8         foreign_0.8-75        plotly_4.9.2.1       
[112] xml2_1.3.2            webshot_0.5.2         rvest_0.3.6          
[115] digest_0.6.26         RcppAnnoy_0.0.16      spatstat.data_1.4-3  
[118] fastmatch_1.1-0       rmarkdown_2.4         cellranger_1.1.0     
[121] leiden_0.3.3          uwot_0.1.8            curl_4.3             
[124] shiny_1.5.0           lifecycle_0.2.0       nlme_3.1-144         
[127] jsonlite_1.7.1        Rhdf5lib_1.8.0        carData_3.0-4        
[130] pillar_1.4.6          lattice_0.20-38       GO.db_3.10.0         
[133] fastmap_1.0.1         httr_1.4.2            survival_3.1-8       
[136] glue_1.4.2            zip_2.1.1             spatstat_1.64-1      
[139] bit_4.0.4             ggforce_0.3.2         stringi_1.4.6        
[142] HDF5Array_1.14.4      blob_1.2.1            memoise_1.1.0        
[145] irlba_2.3.3           future.apply_1.6.0