# SPARK-Analysis

**Repository Path**: jmagikcing/SPARK-Analysis

## Basic Information

- **Project Name**: SPARK-Analysis
- **Description**: No description available
- **Primary Language**: Unknown
- **License**: Not specified
- **Default Branch**: master
- **Homepage**: None
- **GVP Project**: No

## Statistics

- **Stars**: 0
- **Forks**: 0
- **Created**: 2021-11-02
- **Last Updated**: 2021-11-02

## Categories & Tags

**Categories**: Uncategorized

**Tags**: None

## README

# SPARK-Analysis
All scripts performed in our experiments. For SPARK-X analysis, please visit this [link](https://github.com/xzhoulab/SPARK-X-Analysis)

## Example
```R
rm(list = ls())
source("./funcs/funcs.R")
load("./output/MOB_Pattern_SpatialDE.rds")

tmplist <- datlist
for (i in 1:5) {
    tmplist[[i]][, 2] <- relative_func(datlist[[i]][, 2])
}

patterns = c("I", "II", "III")
## three major pattern were used for simulation
df <- setNames(cbind.data.frame(tmplist[[1]][, 1], 
                do.call(cbind, sapply(tmplist[c(5, 1, 4)], "[", 2))), 
                c("xy", paste0("Pattern ", patterns)))
pp <- lapply(1:3, function(x) {
    pattern_plot2(df, x, xy = F, main = T, titlesize = 1.5)
})


grid.arrange(grobs = pp, ncol = 3)

```
![SPARK-Analysis\_Summarized patterns from mouse olfactory bulb data](mouseOB_pattern.png)