---
title: "Csnk1a1 haploinsufficiency R object"
author: "Ursula Stalmann"
date: "1/19/2021"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(Seurat)
```

#Clonal expansion and resistance of Csnk1a1 haploinsufficient hematopoietic stem cells to inflammatory stress in del(5q) MDS


```{r}
object <- readRDS("Robject_Csnk1a1_haploinsufficiency.rds")

```


```{r}
DimPlot(object, split.by = "stage")
```

