R/mnrva_append_empty.R

In CrumpLab/minerva: Helper Functions for MINERVA modeling

#' Append blank features to matrix
#'
#' @param x matrix of feature vectors
#' @param times number of empty matrices, of same size as x to appen
#'
#' @return matrix original matrix plus empty matrices appended as new columns
#' @export
#'
#' @examples
#' 
#' mat <- mnrva_item_matrix(n_items = 5, vec_length = 6)
#' mnrva_append_empty(mat,1)
#' 
mnrva_append_empty <- function(x,times){
  dims <- dim(x)
  zero_matrix <- matrix(0,nrow=dims[1],ncol=dims[2]*times)
  return(cbind(x,zero_matrix))
}