2016/12/21 Step 4:The Nonparametric Curve Adjusting for outliers(1) Adjusting for outliers(3) ng both -很 Adjusting for outliers(4) )for data scts e,pres 4 2016/12/21 4 19 20 21 22 23 24 library(car) # for data sets data(Prestige) attach(Prestige) plot(income, prestige, xlab="Average Income", ylab="Prestige") lines(lowess(income, prestige, f=0.5, iter=0), lwd=2) lines(lowess(income, prestige, f=0.8, iter=0), lwd=2,col=4) lines(lowess(income, prestige, f=0.1, iter=0), lwd=2,col=6)