Remove IsoModes from thresh

r.scripts/sc-TissueMapper_functions.R

@@ -420,7 +420,7 @@ scThresh <- function(sc10x,feature,sub=FALSE){
   thresh <-list()
   cutoff.l <- list()
   cutoff.h <- list()
-  thresh_methods <- c("IJDefault","Huang","Huang2","IsoData","Li","Mean","MinErrorI","Moments","Otsu","Percentile","RenyiEntropy","Shanbhag","Triangle")#,"Intermodes"
+  thresh_methods <- c("IJDefault","Huang","Huang2","Li","Mean","MinErrorI","Moments","Otsu","Percentile","RenyiEntropy","Shanbhag","Triangle")#,"Intermodes","IsoData"
   for (i in names(sc10x)){
     scale[[i]] <- data.frame(Score=sc10x[[i]][[feature]])
     colnames(scale[[i]]) <- "Score"