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

         }
  )

}

Try the fcaR package in your browser

Any scripts or data that you put into this service are public.

fcaR documentation built on April 28, 2023, 1:11 a.m.