R/gjamReZero.r

In dariamed/gjamed: What the package does (short line)

Defines functions gjamReZero

Documented in gjamReZero

gjamReZero <- function( yDeZero ){
  
  ymat <- matrix(0, yDeZero$n, yDeZero$S)
  ymat[yDeZero$index] <- yDeZero$yvec
  colnames(ymat) <- yDeZero$ynames
  
  ymat
}