Update test_pse.R

konfound-project · Feb 19, 2024 · 04586eb · 04586eb
1 parent 8d1482f
commit 04586eb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/test_pse.R b/R/test_pse.R
@@ -14,7 +14,7 @@ test_pse <- function(est_eff,
     var_x <- sdx^2
     var_y <- sdy^2
     var_z <- sdz <- 1
-    df = n_obs - n_covariates - 3
+    df <- n_obs - n_covariates - 3
 
     ## error message if input is inappropriate
     if (!(std_err > 0)) {stop("Did not run! Standard error needs