14] lr <- lm (y~x) nw <- npreg(y~x) yh <- fitted(nw) se <- se(nw) uc <- fitted(nw)+1.96*se lc <- fitted(nw)-1.96*se png("NW_cb.png") plot(x, y, xlab="Anteil...
