https://github.com/rainoffallingstar/sell
https://github.com/rainoffallingstar/sell
Last synced: over 1 year ago
JSON representation
- Host: GitHub
- URL: https://github.com/rainoffallingstar/sell
- Owner: rainoffallingstar
- License: other
- Created: 2023-12-20T08:16:58.000Z (over 2 years ago)
- Default Branch: master
- Last Pushed: 2024-04-12T10:01:52.000Z (over 2 years ago)
- Last Synced: 2025-02-16T17:49:31.151Z (over 1 year ago)
- Language: R
- Size: 1.1 MB
- Stars: 1
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
- Changelog: NEWS.md
- License: LICENSE
- Code of conduct: CODE_OF_CONDUCT.md
Awesome Lists containing this project
README
---
output: github_document
---
```{r, include = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>",
fig.path = "man/figures/README-",
out.width = "100%"
)
```
# sell
The goal of sell is to build a R6-based package for singlecell analysis. Now warped with Seurat V4/V5.
## Installation
You can install the development version of sell:
``` r
# FILL THIS IN! HOW CAN PEOPLE INSTALL YOUR DEV PACKAGE?
pak::pak("rainoffallingstar/sell")
```
## Example
This is a basic example which shows you how to solve a common problem:
```{r example,eval=FALSE}
library(sell)
## basic example code
## check seurat api
seurat_api_detect()
## encode your array and pdata into seurat object and take computation
seurat_object <- seurat_encoder(newdata[["arraydata"]],newdata[["pdata"]],min.cells = 0,
min.features = 0,reduction_dims = 1:5)
## extract datas from seurat container
sell_list <- seurat_decoder(seurat_object)
## creat a R6 object for single cell: BagEnd
## In a hole in the ground there lived a lot of cells,lol
sellobject <- BagEndClass$new(arraydata = arraydata,pdata = pdata)
## select interested samples and gene and transform into a long table for further works
sell_melt_df <- intersect_array_pdata(arraydata,pdata) %>%
sell_melt()
```