R/plot.fdepth.R

Defines functions plot.fdepth

Documented in plot.fdepth

plot.fdepth <- function(x, show.legend = TRUE, pos.legend = "bottomleft", ...)
{
  plot(x$data, col = gray(.7), ...)
  lines(x$output$median, col = "red", ...)
  lines(x$output$mtrim, col = "blue", ...)
  if (show.legend){
      legend(pos.legend, legend = c("Trimmed mean", "Median"), lty = 1, 
             col = c("blue", "red"), ...) 
  } 
}

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.