Commit ad3d6d5f authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Change clustering to use integrated assay

parent 1179ce77
......@@ -508,6 +508,8 @@ scCluster <- function(sc10x,res=0.1,red="pca",dim,print="tsne",folder=FALSE){
}
DefaultAssay(sc10x) <- "integrated"
#Calculste Vis
sc10x <- RunTSNE(sc10x,dims=1:dim,reduction="pca",assay="integrated")
sc10x <- RunUMAP(sc10x,dims=1:dim,reduction="pca",assay="integrated")
......@@ -572,6 +574,8 @@ scCluster <- function(sc10x,res=0.1,red="pca",dim,print="tsne",folder=FALSE){
dev.off()
}
DefaultAssay(sc10x) <- "SCT"
return(sc10x)
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment