rm NAs in calc_irg

8296eacf · Alec L. Robitaille · 9879e5d9 · 8296eacf
Commit 8296eacf authored May 21, 2019 by Alec L. Robitaille 🚲
Show whitespace changes
Inline Side-by-side

Showing with 3 additions and 1 deletion

R/irg.R R/irg.R +3 -1

No files found.
--- a/R/irg.R
+++ b/R/irg.R
@@ -85,7 +85,9 @@ calc_irg <-
 			check_col(DT, id, 'id')
 			check_col(DT, year, 'year')

-			DT[, irg := (irg - min(irg)) / (max(irg) - min(irg)),
+			DT[, irg :=
+				 	(irg - min(irg, na.rm = TRUE)) /
+				 	(max(irg, na.rm = TRUE) - min(irg, na.rm = TRUE)),
 				 by = c(id, year)]
 		}