用于样本外测试的线性模型的功能

Question

任何人都可以向我推荐R中的函数，我可以用它来计算先前计算的线性模型$('#map').vectorMap({ map: 'world_mill', onRegionClick: function(event, code) { console.log(code); } }); 的样本外R平方。 提前问候并表示感谢！

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 

如果您愿意，可以将其全部打包在一个功能中。如果您需要任何帮助，请询问。

干杯

菲利普