inst/examples/R/data/linreg/linreg_coeff/regression_plot.R

x <- read.csv2("cps78_85.csv")
lm <- lm(lwage~educ, data=x, subset=(year==85))
plot(x$educ, x$lwage)
abline(lm)
sigbertklinke/shinyExample documentation built on May 26, 2019, 4:32 a.m.