R/sup.R

Defines functions sup

#' @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)
}

Try the marqLevAlg package in your browser

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

marqLevAlg documentation built on March 31, 2023, 6:33 p.m.