Skip to content
Snippets Groups Projects
Commit a8bbf110 authored by Jeffrey Pullin's avatar Jeffrey Pullin
Browse files

Remove uneeded files and rename for clarity

parent be29ac91
No related branches found
No related tags found
No related merge requests found
Pipeline #6405 passed
File moved
---
title: "Untitled"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r libraries}
library(SingleCellExperiment)
library(scran)
library(scater)
```
```{r visualise-null-data}
config <- yaml::read_yaml(here::here("config.yaml"))
pars <- retrive_simulation_parameters()
sim_files <- paste0(pars$sim_name, ".rds")
sim_paths <- here::here(config$sim_data_folder, sim_files)
test_null <- readRDS(sim_paths[[1]])
plotPCA(splatter_sim, colour_by = "Group")
splatter_sim <- runTSNE(splatter_sim, dimred = "PCA")
plotTSNE(splatter_sim, colour_by = "Group")
```
---
title: "p value histograms"
output: html_document
---
```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```
```{r libraries}
library(ggplot2)
library(SingleCellExperiment)
```
```{r load-data}
pars <- retrive_simulation_parameters()
umgs <- list()
sumgs <- list()
for (i in seq_along(sim_paths)) {
print(i)
sim <- readRDS(sim_paths[[i]])
umgs[[i]] <- find_unique_marker_genes(sim)
sumgs[[i]] <- find_semi_unique_marker_genes(sim)
rm(sim)
}
```
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment