Content - 56d35d08a6fdeb4e959bd6abd63b23e93d64b68c - d4d9631/R/func.trimvar.RPD.R

swh:1:snp:3a44eb759780145deea094ac2a25c5049546a085

Tip revision: c52ce072e457ea91212cea8cbcace0daa866910b authored by Han Lin Shang on 07 October 2018, 07:10:02 UTC
version 5.1

Tip revision: c52ce07

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,])
}