Set sign as true NA when 'NA'

miicTeam · Sep 2, 2024 · 10550fb · 10550fb
1 parent dfbfb62
commit 10550fb
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/parseResults.R b/R/parseResults.R
@@ -226,6 +226,7 @@ summarizeResults = function (observations, results,
   #
   summary [, c("sign", "partial_correlation")] <- compute_partial_correlation (
     summary, observations, state_order)
+  summary$sign[summary$sign == "NA"] <- NA_character_
   summary$partial_correlation <- as.numeric (summary$partial_correlation)
   #
   # Probabilities of orientations