R 제곱 통계량 사용하기

rstanarm으로 배우는 Bayesian 회귀 모델링

Jake Thompson

Psychometrician, ATLAS, University of Kansas

R 제곱이란?

결정계수

R 제곱이란?

결정계수

R 제곱이란?

결정계수

R 제곱 통계량 계산하기

lm_model <- lm(kid_score ~ mom_iq, data = kidiq)
lm_summary <- summary(lm_model)
lm_summary$r.squared

0.2009512

ss_res <- var(residuals(lm_model))
ss_total <- var(residuals(lm_model)) + var(fitted(lm_model))
1 - (ss_res / ss_total)

0.2009512

베이지안 모델의 R 제곱 통계량

stan_model <- stan_glm(kid_score ~ mom_iq, data = kidiq)

ss_res <- var(residuals(stan_model))
ss_total <- var(fitted(stan_model)) + var(residuals(stan_model))
1 - (ss_res / ss_total)

0.2004996

lm_summary$r.squared

0.2009512

연습해 봅시다!

rstanarm으로 배우는 Bayesian 회귀 모델링