cs <- c(23, 19, 30, 22, 23, 29, 35, 36, 33, 25) ts <- c(430, 430, 333, 410, 390, 377, 325, 310, 328, 375) mod <- lm(ts ~ cs) # Calcular el SSR y guardarlo en `ssr` # calcular el TSS y guardarlo en `tss` # Calcular el SSR y guardarlo en `ssr` ssr <- sum(mod$residuals^2) # calcular el TSS y guardarlo en `tss` tss <- 9*var(ts) # Nota: ¡`var ()` calcula la varianza de la muestra insesgada! => Corregir esto multiplicando con (n-1) = 9 test_predefined_objects("mod") test_object("ssr") test_object("tss")