https://github.com/cran/ftsa
Raw File
Tip revision: 415368d78ea30230e9017d72e83432baec81b1c9 authored by Han Lin Shang on 11 May 2010, 00:00:00 UTC
version 1.7
Tip revision: 415368d
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,])
}
back to top