Call:
lm(formula = sales ~ price, data = data)
Residuals:
    Min      1Q  Median      3Q     Max 
-2.2422 -0.6196  0.0101  0.5171  2.9061 
Coefficients:
             Estimate Std. Error t value Pr(>|t|)    
(Intercept) 198.83877    0.35918   553.6   <2e-16 ***
price        -7.90647    0.02968  -266.4   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
Residual standard error: 0.9398 on 198 degrees of freedom
Multiple R-squared:  0.9972,    Adjusted R-squared:  0.9972 
F-statistic: 7.096e+04 on 1 and 198 DF,  p-value: < 2.2e-16