R/robust.R

Defines functions robust

robust <-
function(x, Hz) {
  mis <- rle(ifelse(is.na(x), 0, 1))
  return(mean(mis$length[mis$values == 1]) / Hz)
}

Try the gazepath package in your browser

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

gazepath documentation built on Feb. 7, 2020, 3:01 a.m.