diff --git a/r.scripts/sc-TissueMapper_RUN.D17.R b/r.scripts/sc-TissueMapper_RUN.D17.R index e085e955843b0c455df8fed4fbc2dfac5c718f95..3f2594ac32d76e373bf172559d4f555731db0ae6 100644 --- a/r.scripts/sc-TissueMapper_RUN.D17.R +++ b/r.scripts/sc-TissueMapper_RUN.D17.R @@ -102,7 +102,7 @@ option_list=list( #make_option("--hpc.epi",action="store",default=0.85,type='numeric',help="Max variance cutoff for PCs to use, Epi"), make_option("--res.epi",action="store",default=0.2,type='numeric',help="Resolution to cluster, Epi"), #make_option("--hpc.st",action="store",default=0.85,type='numeric',help="Max variance cutoff for PCs to use, St"), - make_option("--res.st",action="store",default=0.2,type='numeric',help="Resolution to cluster, St") + make_option("--res.st",action="store",default=0.3,type='numeric',help="Resolution to cluster, St") ) opt=parse_args(OptionParser(option_list=option_list)) rm(option_list) @@ -250,7 +250,7 @@ results.clust.St.go.id <- results[[3]] rm(results) rm(gene.set) -sc10x.Epi.NE <- scNE(sc10x.Epi,neg="EurUro",cut=0.95) +sc10x.Epi.NE <- scNE(sc10x.Epi,neg="EurUro",cut=0.999) sc10x.Epi <- scMergeSubClust(sc10x.Epi,i="Epi.dws.sub",g=c("BE","LE"),nm="Merge")