diff --git a/R/check_heteroscedasticity.R b/R/check_heteroscedasticity.R
index c3fb8a19b..cf8e4cb09 100644
--- a/R/check_heteroscedasticity.R
+++ b/R/check_heteroscedasticity.R
@@ -66,7 +66,7 @@ check_heteroscedasticity.default <- function(x, ...) {
   .U <- (r^2) / S.sq
   mod <- stats::lm(.U ~ stats::fitted(x))
 
-  SS <- stats::anova(mod)$"Sum Sq"
+  SS <- stats::anova(mod)$`Sum Sq`
   RegSS <- sum(SS) - SS[length(SS)]
   Chisq <- RegSS / 2