R/minindc.r

In PANICr: PANIC Tests of Nonstationarity

#'@title Create an Index of lowest values of each column 
#'
#'@description This function creates a vector filled with the row position
#'of the lowest value within each column of a matrix.
#'
#'@usage minindc(x)
#'
#'@param x A matrix that will be be used to create the index of lowest values.
#'
#'@return pos A vector containing an index of the row position of the lowest
#' value within each column of a matrix.
#'
#'@export

minindc <- function(x) {
    
    ncols <- dim(x)[2]
    
    nrows <- dim(x)[1]
    
    pos <- matrix(0, ncols, 1)
    
    for (i in 1:ncols) {
        
        pos[i, ] <- which.min(x)
    }
    return(pos)
}