功能样本外测试线性模型

Question

任何人都可以推荐一个函数在R中，我可以计算出以前计算的线性模型的样本R平方的样本lm()。 提前感谢和感谢！

Answer 1

您可以使用以下格式：

# Fit model 
model.lm <- lm(Sepal.Length ~ Petal.Length, data = iris[1:75,]) 

# Predict data for some new data 
pred.dat <- predict(model.lm, newdata = iris[76:150,]) 

# Calculate correlation between predicted values for new data and actual values, then square 
cor(iris[1:75,"Sepal.Length"], pred.dat)^2 

，如果你喜欢，你可以打包这一切的功能。如果您需要任何帮助，只需询问。

干杯

费利佩