Commit 044a4370 authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Change integrate from cca to rpca

parent 87ff20ed
......@@ -522,7 +522,10 @@ scCCA <- function(sc10x.l){
sc10x.features <- SelectIntegrationFeatures(object.list=sc10x.l,nfeatures=3000)
sc10x.l <- PrepSCTIntegration(object.list=sc10x.l,anchor.features=sc10x.features,verbose=FALSE)
sc10x.anchors <- FindIntegrationAnchors(object.list=sc10x.l, normalization.method="SCT",anchor.features=sc10x.features,verbose=FALSE)
sc10x.l <- lapply(sc10x.l,FUN=function(x) { RunPCA(x,features=sc10x.features,verbose=FALSE) })
sc10x.anchors <- FindIntegrationAnchors(object.list=sc10x.l,normalization.method="SCT",anchor.features=sc10x.features,verbose=FALSE,reduction="rpca",dims=1:30)
sc10x <- IntegrateData(anchorset=sc10x.anchors,normalization.method="SCT",verbose=FALSE)
#sc10x <- FindIntegrationAnchors(object.list=sc10x.l,dims=1:30,scale=FALSE)
......
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