R/diag2.R

In qpsy/hotelhd: High dimensional Hotelling's T2 test

#' A convenient version of diag
#'
#' text
#'
#' @param x a value to be filled
#' @param nrow nrow
#' @param ncol ncol
#' @param off an integer. location of off-diagonal
#'
#' @author Dongjun You
#'
#' @return Test results
#'
#' @export
diag2 <- function(x=1, nrow, ncol, off=0) {
  M <- matrix(0, nrow=nrow, ncol=ncol)
  M[col(M) == (row(M) + off)] <- x
  M
}