R/compute_grades.R

Defines functions compute_grades

compute_grades <- function(I) {

  lapply(seq(ncol(I)),
         function(col) {
           v <- c(0, I[, col], 1)
           g <- sort(unique(v))
           # g <- g[g > 0]

           g

         }
  )

}
neuroimaginador/fcaR documentation built on Dec. 10, 2023, 10:23 p.m.