R/msc.level.ind.R

In msr: Morse-Smale Approximation, Regression and Visualization

Defines functions msc.level.ind

Documented in msc.level.ind

msc.level.ind <- function (msLevel, pId, addExtrema = TRUE) 
{


    i <- msLevel$partition == pId
    if(addExtrema){ 
      i[msLevel$min[pId]] <- TRUE
      i[msLevel$max[pId]] <- TRUE
    }
    i
}

Try the msr package in your browser