R/find.time.r

find.time <- function (x) {
  r <- Find(function (y) !is.na(as.integer(y)), split.line(x))
  as.integer(r)
}
lib314a/popeye documentation built on Sept. 11, 2020, 12:27 a.m.