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
}
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.