
      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)


      # obtener el SER usando `summary()` y guardar el valor en `SER`
      
      # calcular la SSR y guardarla en `SSR`
      
      # hacer la comparación


      # obtener el SER usando `summary()` y guardar el valor en `SER`
      SER <- summary(mod)$sigma
      
      # calcular la SSR y guardarla en `SSR`
      SSR <- SER^2*(length(ts)-2)
      
      # hacer la comparación
      SSR == sum(mod$residuals^2)


      test_object("SER")
      test_object("SSR")
      test_or({
      test_student_typed("SSR == sum(mod$residuals^2)")
      },{
      test_student_typed("sum(mod$residuals^2) == SSR")
      }
      )
      success_msg("Nice!")