Commit: d19e932160cfac21b0d1fad1e8dffcc7bf6e1db4 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: d19e932160cfac21b0d1fad1e8dffcc7bf6e1db4 (tree)
• Tiempo: 2024-01-10 23:11:50
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I added a function to translate a number into a missing value.

Cambiar Resumen

• modified: R-codes/stat_lib.R

Diferencia incremental

diff -r 83a1e693489f -r d19e932160cf R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Tue Jan 09 16:11:56 2024 +0100
+++ b/R-codes/stat_lib.R	Wed Jan 10 15:11:50 2024 +0100
@@ -2906,6 +2906,20 @@
     
 }
 
+
+
+number_to_na <- function(df, number=0){
+
+    
+    res <- df |>
+        mutate(across(where(is.numeric), \(x) na_if(x, number)))
+    
+return(res)    
+    
+}
+
+
+
 ## generic function to replace a pattern to another
 ## (works only for an exact match)