R/binary_vector_gen.R

In jreisner/sparseBiclustering: Biclustering with Missing Data

#' Make a binary vector with all values equal to zero except for one
#'
#' @param n Desired vector length.
#' @param i Index whose value is one.
#' @return A vector

binary_vector_gen <- function(n, i){
  a <- rep(0, n)
  a[i] <- 1
  return(a)
}