R/timeseries2matrix.R

timeseries2matrix <- function(img, mask) {
  logmask <- (mask == 1)
  mat <- img[logmask]
  dim(mat) <- c(sum(logmask), dim(img)[length(dim(img))])
  
  return(t(mat))
} 
stnava/itkImageR documentation built on May 30, 2019, 7:21 p.m.