R/SelectSubject.R

Defines functions SelectSubject

SelectSubject <- function(dat, subname) {
  sub <- dat$subjects[[which(unlist(lapply(lapply(dat$subjects, "[[", "header"), "[[", "subid") == subname))]]
  return(sub)
}
sascha2schroeder/popEye documentation built on Jan. 19, 2024, 4:46 a.m.