#' @noRd
sup <- function(m){
indice<-NULL
for(i in 1:m){
for(j in i:m){
indice <- c(indice,(j-1)*j/2+i)
}
}
return(indice)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.