R/get_quantile.R

Defines functions get_quantile

data('quantile.function')

get_quantile <- function(x, n){
  if (n <= 150){
    quantile.function[[n]](x)
  } else
    quantile.function[[150]](x)
}
geneticsMiNIng/metR documentation built on May 28, 2019, 8:41 p.m.