powered by
E1.16
data(E1.16)
with(E1.16, plot(Price.Share, Earn.Share))
Run the code above in your browser using DataLab