基于回归模型创建新列

Question

我有一个数据集在这里

set.seed(1)
y <- sort(rnorm(50,100))
x1<- sqrt(rnorm(50,100))+sqrt(y)
dummy <- c(rep("a",5),rep("b",3),rep(c("c","d"),21))

 df<- data.frame(y,x1,dummy)


summary(lm(y~x1+dummy,data=df))

我想创建一个名为预测变量的新列，其中我使用重要系数来预测y的值。像公式一样coef*x1(if significant)+dummy。我需要一种自动化的方法，因为我有多个数据作为因素。

提前致谢。