16 lines
497 B
R
16 lines
497 B
R
|
#' @title Minimum (MATLAB version)
|
||
|
|
#' @description Finds the minimum value for each column of a matrix, potentially returning the indices instead
|
||
|
|
#' @param X matrix
|
||
|
|
#' @param indices return indices?
|
||
|
|
#' @return Either a list or a vector
|
||
|
|
#' @author Waldir Leoncio
|
||
|
|
#' @export
|
||
|
|
min_MATLAB <- function(X, indices = TRUE) {
|
||
|
|
mins <- apply(X, 2, min)
|
||
|
|
idx <- sapply(seq_len(ncol(X)), function(x) match(mins[x], X[, x]))
|
||
|
|
if (indices) {
|
||
|
|
return(list(mins = mins, idx = idx))
|
||
|
|
} else {
|
||
|
|
return(mins)
|
||
|
|
}
|
||
|
|
}
|