R/TM.R

TM <-
function(x) {
  qs <- quantile(x,c(0.25,0.5,0.75))
  return(as.numeric((qs[2]+(qs[1]+qs[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.