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

         }
  )

}
Malaga-FCA-group/fcaR documentation built on May 6, 2023, 1:45 p.m.