bugfix RelativeDifference, Optional parameter

Author: Mthrun

.gitignore

@@ -39,3 +39,5 @@
 /.Rproj.user/shared/notebooks/A3951B6D-DatabionicSwarm/1/s/chunks.json
 /.Rproj.user/shared/notebooks/patch-chunk-names
 /.Rproj.user/shared/notebooks/paths
+.Rproj.user
+/*.Rhistory

R/RelativeDifference.R

@@ -5,13 +5,14 @@ RelativeDifference=function(X,Y,epsilon=10^-10,na.rm=FALSE,Silent=FALSE){
     Y <- Y[noNaNInd]
   }
   if(length(X)!=length(Y)) stop('Length of X and Y do not match.')
-  if(length(X)>1) return(mapply(X,FUN = RelativeDifference,Y))
+  if(length(X)>1) return(mapply(X,FUN = RelativeDifference,Y,epsilon=epsilon,na.rm=na.rm,Silent=Silent))
   oben=Y-X
   unten=X+Y
   if(!is.finite(unten)) stop('Some of your values are not finite. Please use na.rm=TRUE')
   if(abs(unten)<epsilon){
-    if(isFALSE(Silent))
+    if(isFALSE(Silent)){
       message('RelativeDifference: X + Y are smaller than epsilon, returning 0')
+    }    
 
     return(0)
   }

inst/NEWS

@@ -1,6 +1,6 @@
 Version 1.3.0 (2023-10-30 GitHub)   
    o Major bugfix of Quirin Stier in calcStressC.cpp and PswarmCurrentRadiusC2botsPositive: swarm allows every databot to change position by checking a new index. Priorly, databot with index 0 was frozen in the projection.
-   o RelativeDifference can now be called silent
+   o RelativeDifference can now be called silent and as a bugfix for vectors x and y optional parameter are now used
 
 Version 1.2.1 (2023-10-10 CRAN)   
    o Moved RobustNormalization and RobustNorm_BackTrafo to DataVisualizations package available on CRAN