BRI is NA when only one measure

LDevreux · Feb 7, 2022 · 2a70569 · 2a70569
1 parent 62aa706
commit 2a70569
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/braidHymo_one.R b/R/braidHymo_one.R
@@ -27,8 +27,8 @@ braidHymo_one=function(rivdata, area, points_space){
                      W=WAC / (area ^ 0.44)) %>%
     # in case there is only one measure for this cross-section,
     # replace the BRI estimate (which is irrelevant) with a NA
-    dplyr::mutate(BRI_norm=dplyr::case_when((Nb_measure==1)~NA_real_,
-                                            !(Nb_measure==1)~BRI))
+    dplyr::mutate(BRI=dplyr::case_when((Nb_measure==1)~NA_real_,
+                                        !(Nb_measure==1)~BRI))
   only_one_measure=tib_XS %>%
     dplyr::filter(Nb_measure==1)
   if(nrow(only_one_measure)>0){