大家好，白鼠又来了。。。想做线性回归模型，但是每次输入的自变量可能不一样（默认已经进行过数据预处理了），规定输入数据集的最后一列为预测变量，其余列为自变量。我想讲这个建模的结果，包括模型参数、F检验以及参数检验等的结果保存下来，方便后面是该模型应用到其他的数据集中。
下面的代码是一小部分，剩下的不知道该怎么写了，谢谢大家！
model_lm_train <- function(training_set){
  input_set <- training_set
  liner_reg <- lm(input_set[,ncol(input_set)] ~input_set[,1:(ncol(input_set)-1)],
                  data=input_set)

}

对于lm模拟的结果：fit <- lm(women$weight ~ women $height)
该怎么样将fit的模型应用到其他数据集上？
如果我想取调整的R2，该怎么做？