R/minij.R

In gallery: Generate Test Matrices for Numerical Experiments

# SPD matrix min(i,j) ---------------------------------------------------------

#' @name minij
#' @title Symmetric positive definite matrix \code{MIN(i,j)}
#'
#' @description The \code{N}-by-\code{N} SPD matrix with \code{A[i,j]=min(i,j)}
#'
#' @param n order of the matrix
#'
#' @return Symmetric positive definite matrix with entries \code{A[i,j]=min(i,j)}
#'
#' @export
minij <- function(n){
  A <- matrix(0, n, n)
  pmin(row(A), col(A))
}