Rによる複数の回帰モデルの結果一括表示

Reference - https://twitter.com/R_Programming/status/659971494659801089
Script
library(memisc)
colnames(mtcars)
attach(mtcars)
mod1<-lm(mpg~wt)
mod2<-lm(mpg~wt+cyl)
mod3<-lm(mpg~wt+cyl+drat)
mtable(mod1,mod2,mod3)
par(mfrow=c(1,3))
plot(wt,mpg,abline(lm(mpg~wt),col="red"))
plot(cyl,mpg,abline(lm(mpg~cyl),col="red"))
plot(drat,mpg,abline(lm(mpg~drat),col="red"))
Result
> colnames(mtcars)
 [1] "mpg"  "cyl"  "disp" "hp"   "drat" "wt"   "qsec" "vs"   "am"   "gear" "carb"

> mtable(mod1,mod2,mod3)

Calls:
mod1: lm(formula = mpg ~ wt)
mod2: lm(formula = mpg ~ wt + cyl)
mod3: lm(formula = mpg ~ wt + cyl + drat)

=============================================
                  mod1      mod2      mod3   
---------------------------------------------
(Intercept)     37.285*** 39.686*** 39.768***
                (1.878)   (1.715)   (6.873)  
wt              -5.344*** -3.191*** -3.195***
                (0.559)   (0.757)   (0.829)  
cyl                       -1.508**  -1.510** 
                          (0.415)   (0.446)  
drat                                -0.016   
                                    (1.323)  
---------------------------------------------
R-squared          0.753     0.830     0.830 
adj. R-squared     0.745     0.819     0.812 
sigma              3.046     2.568     2.613 
F                 91.375    70.908    45.642 
p                  0.000     0.000     0.000 
Log-likelihood   -80.015   -74.005   -74.005 
Deviance         278.322   191.172   191.171 
AIC              166.029   156.010   158.010 
BIC              170.427   161.873   165.339 
N                 32        32        32     
=============================================

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移