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

英：Cross-validation パッケージcvToolsが使える。 線形モデルの場合、 library("cvTools") fit cv y = fit$model["y"], cost = mspe, K = nrow(fit$model)) これでone-leave-out cross-validationができる。 Kに他の数字を入れるとk-fold cross-validation…