wrm.smooth(x, y, h, xgrid, weight = 2)wrm.smooth returns an object of class 
wrm.smooth. An 
object of class wrm.smooth is a list containing the 
following components:plot returns a plot 
showing the original data with the smoothed output.The procedure copes with missing values by omitting them.
Siegel, A.F. (1982). Robust regression using repeated medians. Biometrika 68, 242-244.
wrm.filterdata(faithful) # Old Faithful Geyser data
faith.WRM <- wrm.smooth(faithful$w, faithful$e,h=4)
plot(faith.WRM)Run the code above in your browser using DataLab