Fonction pour calculer R2 (R-carré) dans la R

J'ai un dataframe avec observées et des données modélisées, et je voudrais calculer la valeur de R2. Je m'attendais à y être une fonction que je pourrais appeler, mais ne pouvez pas en trouver un. Je sais que je peux écrire mon propre et de l'appliquer, mais ai-je raté quelque chose d'évident? Je veux quelque chose comme

obs <- 1:5
mod <- c(0.8,2.4,2,3,4.8)
df <- data.frame(obs, mod)

R2 <- rsq(df)
# 0.85
Et l'inévitable "qu'en est-adjusted R^2?" la question est abordée ici - stats.stackexchange.com/questions/48703/...
Vous devrez peut-être spécifier la façon dont cette "modélisation des données" a été créé. La r.au carré qui est rapporté par les fonctions de synthèse associés aux fonctions de régression. Mais ce n'est que lorsqu'un estiamte est statsitically justifiée.
J'ai plusieurs modèles différents, mais ce n'est pas simplement la sortie d'un modèle de régression comme lm, donc le résumé des fonctions ne fonctionnent pas. Essentiellement, j'ai besoin de pouvoir comparer entre les deux vecteurs (Zheyuan Li suggestion fonctionne parfaitement pour cela)

OriginalL'auteur Esme_ | 2016-12-01