Funktion für das Testen eines linearen Modells

Question

Kann mir jemand eine Funktion in R empfehlen, mit der ich das Out of Sample R-Quadrat eines zuvor berechneten linearen Modells lm() berechnen kann. Grüße und danke im Voraus!

Answer 1

Sie könnten das folgende Format verwenden:

# 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 

Sie können alles in einer Funktion packen, wenn Sie mögen. Wenn Sie Hilfe benötigen, fragen Sie einfach.

Prost

Felipe