collected vars at end

davidfrantz · Jan 31, 2024 · 5c9b28a · 5c9b28a
1 parent 2abb8f6
commit 5c9b28a
Showing 1 changed file with 17 additions and 2 deletions.
diff --git a/rstats/force-map-accuracy.r b/rstats/force-map-accuracy.r
@@ -292,8 +292,6 @@ confusion_adjusted <-
     byrow = FALSE
   )
 
-confusion_counts
-confusion_adjusted
 
 
 # Olofsson et al. 2013, eq. 2
@@ -431,6 +429,23 @@ pa_se <-
 sqrt() %>%
 `*`(1.96)
 
+
+
+confusion_counts
+confusion_adjusted
+
+acc_traditional
+acc_adjusted
+
+cnt$area
+area_adjusted
+confidence_area_adjusted
+
+oa_se
+pa_se
+ua_se
+
+
 fo <- file(opt$output, "w")
 
 cat("# Accuracy assessment", file = fo)