R/func.trimvar.RPD.R

`func.trimvar.RPD` <- function(functions, trim = 0.25, deriv = c(0,1))
{
  lista = depth.RPD(functions, trim = trim, deriv = deriv)$ltrim; 
  func.var(functions[lista, ])
}

Try the rainbow package in your browser

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

rainbow documentation built on Jan. 29, 2019, 5:09 p.m.