R/TMH.R

TMH <-
function(x) {
  qh <- fivenum(x,c(0.25,0.5,0.75))
  return((qh[2]+(qh[1]+qh[3])/2)/2)
}

Try the ACSWR package in your browser

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

ACSWR documentation built on May 2, 2019, 6:53 a.m.