> lm.fit <- lm(log(PageViews) ~ log(UniqueVisitors), data = top.1000.sites) > summary(lm.fit) Call: lm(formula = log(PageViews) ~ log(UniqueVisitors), data = top.1000.sites) Residuals: Min 1Q Median 3Q Max -2.1825 -0.7986 -0.0741 0.6467 5.1549 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) -2.83441 0.75201 -3.769 0.000173 *** log(UniqueVisitors) 1.33628 0.04568 29.251 < 2e-16 *** -
![入門機械学習の線形回帰をscikit-learnでやってみる](https://cdn-ak-scissors.b.st-hatena.com/image/square/de51dabe2d470177cbb671c98cca4fd482124b2d/height=288;version=1;width=512/http%3A%2F%2Fwww.kzfmix.com%2Fimages%2Fblog%2Ftop1k_sites_log.png)