inst/doc/Sweave-journals.R

### R code from vignette source 'Sweave-journals.Rnw'

###################################################
### code chunk number 1: Sweave-journals.Rnw:8-11
###################################################
data("Journals", package = "AER")
journals_lm <- lm(log(subs) ~ log(price/citations), data = Journals)
journals_lm


###################################################
### code chunk number 2: Sweave-journals.Rnw:17-19
###################################################
plot(log(subs) ~ log(price/citations), data = Journals)
abline(journals_lm)

Try the AER package in your browser

Any scripts or data that you put into this service are public.

AER documentation built on June 14, 2022, 5:06 p.m.