R/findn.R

Defines functions find.n

find.n <- function(dat, fast) {
  if(nrow(dat) * 0.5 > 200) {
    n <- 200
  } else {
    n <- round(nrow(dat) * 0.5)
  }
  n
}
jillbo1000/EZtune documentation built on Dec. 13, 2021, 6:07 a.m.