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
}

Try the EZtune package in your browser

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

EZtune documentation built on Dec. 11, 2021, 9:33 a.m.