Goodness-of-fitの取り出し方

lmの場合、summary(fit)$r.sqで決定係数、summary(fit)$adj.rで修正済み決定係数。観察数はnobs(fit)。
glmの場合、summary(fit)["null.deviance"]でNull Deviance、summary(fit)["deviance"]でResidual Deviance
これとcreateTexregを合わせると相当自由に綺麗な表ができる。