bugfix inf values in robust normalization if na.rm=TRUE

Mthrun · Jan 9, 2019 · eaa575d · eaa575d
1 parent 14ab187
commit eaa575d
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/R/RobustNormalization.R b/R/RobustNormalization.R
@@ -1,5 +1,8 @@
 RobustNormalization = function (Data,Centered=FALSE,Capped=FALSE,na.rm=TRUE,WithBackTransformation=FALSE) 
 {
+if(isTRUE(na.rm)){
+Data[!is.finite(Data)]=NaN #quantile does not accept inf,-inf
+}
   center=NULL
   Denom=NULL
   minX=NULL
@@ -16,10 +19,10 @@ RobustNormalization = function (Data,Centered=FALSE,Capped=FALSE,na.rm=TRUE,With
       center=median(Data,na.rm=na.rm)
       Data=Data-center
       if(Capped){
-        maxX=1
-        minX=-1
-        Data[Data>maxX]=maxX
-        Data[Data<minX]=minX
+        maxX2=1
+        minX2=-1
+        Data[Data>maxX2]=maxX2
+        Data[Data<minX2]=minX2
       }
     }else{
       if(Capped){