R/gjamDeZero.r

Defines functions gjamDeZero

Documented in gjamDeZero

gjamDeZero <- function( ymat ){
  
  S <- ncol(ymat)
  n <- nrow(ymat)
  ynames <- colnames(ymat)
  if(is.null(ynames))ynames <- paste('S',1:S,sep='_')
  
  index <- which(ymat > 0)
  
  list(yvec = ymat[index], n = n, S = S, index = index, 
       ynames = ynames) 
}

Try the gjam package in your browser

Any scripts or data that you put into this service are public.

gjam documentation built on July 14, 2021, 9:06 a.m.