R/range.R

In Rfast: A Collection of Efficient and Extremely Fast R Functions

#[export]
colrange <- function(x, cont = TRUE, parallel = FALSE,cores = 0) {
	if(cont){
		x <- .Call(Rfast_col_min_max,x,parallel,cores)
		return(x[2,]-x[1,])
	}
	.Call(Rfast_col_len_sort_un_int,x)
}

#[export]
rowrange <- function(x, cont = TRUE) {
  	if(cont){
		x <- .Call(Rfast_row_min_max,x)
		x[2,]-x[1,]
	}else{
		.Call(Rfast_row_len_sort_un_int,x)
	}
}