I’m testing knitr_and_record. Can it find this Fancy Phrase?

How about these plots? horsepower is an interesting thing to study

library(ggplot2)

p = qplot(mtcars$wt, mtcars$hp)
p

more text here again

fit = lm(hp~wt, data = mtcars)
fit

## 
## Call:
## lm(formula = hp ~ wt, data = mtcars)
## 
## Coefficients:
## (Intercept)           wt  
##      -1.821       46.160

Seems like horsepower is related to weight!