Commit 1bce6540 authored by Gervaise Henry's avatar Gervaise Henry 🤠
Browse files

Reduce PC# for prestress to 100

parent 02358439
......@@ -64,7 +64,7 @@ pc.use.prestress <- list()
for (i in names(sc10x)){
sc10x.temp <- sc10x[[i]]
sc10x.temp <- SCTransform(sc10x.temp,vars.to.regress=c("nFeature_RNA","percent.mito"),verbose=FALSE,assay="RNA")
results <- scPC(sc10x.temp,pc=1000,hpc=0.9,file=paste0(i,".pre.stress"),print="2",assay="SCT")
results <- scPC(sc10x.temp,pc=100,hpc=0.9,file=paste0(i,".pre.stress"),print="2",assay="SCT")
sc10x.temp <- results[[1]]
pc.use.prestress.temp <- results[[2]]
rm(results)
......
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