remove uneccessary code

Kss2k · Jan 9, 2025 · d0b8831 · d0b8831
1 parent 14ee0a2
commit d0b8831
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/R/simple_slopes.R b/R/simple_slopes.R
@@ -221,10 +221,7 @@ calc_se <- function(df, e, VCOV, se_type = "confidence") {
   X <- matrix(c(i, vals_x, vals_z, vals_x * vals_z), nrow=n)
   V <- calcSESimpleSlopes(X, VCOV)
 
-  s <- sqrt(as.vector(V))
-  s[is.infinite(s)] <- NA
-
-  s
+  as.vector(V)
 }
 
 
@@ -275,7 +272,6 @@ print.simple_slopes <- function(x, digits = 2, scientific.p = FALSE, ...) {
     Z2 <- X[2:nrow(X),][cat_z == z_i,]
     Z  <- rbind(Z1, Z2)
 
-
     printf("\nPredicted %s, given %s = %s:\n", outcome, predictors[2], z_i)
     printTable(Z, header = header)
     cat("\n")