Rsq<-c(summary(lm_logx)$r.squared,summary(lm_logy)$r.squared,summary(lm_logxy)$r.squared)，这个是R方最大的选取代码，
如果我还想查看看其他选取标准的结果如：p-values（F值）、AIC、SC、系数估计误差、残差分布
，他们的代码都是如何实现的。您可以不看我的例子，您自己的例子也可以，给出结果就可以，非常感谢[hug][hug]。      解释一下上面三个模型的情况：第一个summary是用原始变量做的多元回归模型
第二个summary是对x取对数后作的多元回归模型
第三个summary是对x、y分别取对数后作的多元回归模型。三个模型的自变量个数没发生变化