R/func.trimvar.mode.R

`func.trimvar.mode` <- function(data, trim = 0.25)
{
  functions = t(data$y)
  lista = depth.mode(data, trim = trim)$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.