Nothing
### 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)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.