knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(FloodLight) library(Seurat) library(SeuratData) SeuratData::InstallData("pbmc3k") ref<-pbmc3k@assays$RNA@counts cluster_ID<- pbmc3k@meta.data as.data.frame(cluster_ID)
spots<-generate_spots(ref, cluster_ID) Markers<-find_markers(ref) Markers<-marker_column_names(cluster_ID,"seurat_annotations",ref) Markers_Thresholded<-thresholding_markers(Markers, 0.6) Subset_Counts<-Subset_Expression(Markers_Thresholded,ref, 1.5) deconvolute_using_NNLS(Subset_Counts,spots)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.