Styler

epiverse-trace · Jun 26, 2024 · a20167e · a20167e
1 parent e747bd3
commit a20167e
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/R/spatiotemporal.R b/R/spatiotemporal.R
@@ -143,10 +143,14 @@ morans_index <- function(incidence_object, scale = 100000, threshold = 2,
     # Influential observations
     significant_municipalities <- paste(
       sprintf(
-      "%s with %s (incidence - spatial correlation)",
-      row.names(moran_data_frame[moran_data_frame$quadr != "Not Significant", ]),
-      moran_data_frame[moran_data_frame$quadr != "Not Significant", "quadr"]
-    ), collapse = "\n")
+        "%s with %s (incidence - spatial correlation)",
+        row.names(
+          moran_data_frame[moran_data_frame$quadr != "Not Significant", ]
+        ),
+        moran_data_frame[moran_data_frame$quadr != "Not Significant", "quadr"]
+      ),
+      collapse = "\n"
+    )
     message(significant_municipalities)
   }
   # Plot