NNS 10.2 Beta

OVVO-Financial · Sep 27, 2023 · e4f4a9a · e4f4a9a
1 parent f5e6b29
commit e4f4a9a
Show file tree

Hide file tree

Showing 4 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -2,7 +2,7 @@ Package: NNS
 Type: Package
 Title: Nonlinear Nonparametric Statistics
 Version: 10.2
-Date: 2023-09-26
+Date: 2023-09-27
 Authors@R: c(
   person("Fred", "Viole", role=c("aut","cre"), email="ovvo.financial.systems@gmail.com"),
   person("Roberto", "Spadim", role=c("ctb"))

diff --git a/NNS_10.2.tar.gz b/NNS_10.2.tar.gz
diff --git a/NNS_10.2.zip b/NNS_10.2.zip
diff --git a/R/NNS_VAR.R b/R/NNS_VAR.R
@@ -367,7 +367,7 @@ NNS.VAR <- function(variables,
       equal_tau <- sum(given_var==observed_var)
       unequal_tau <- sum(given_var!=observed_var)
 
-      if(equal_tau > unequal_tau) uni[i] <-  (.5 + equal_tau/(equal_tau + unequal_tau)) / 2 else uni[i] <-  abs((.5 - unequal_tau/(equal_tau + unequal_tau)) / 2)
+      uni[i] <-  mean(c(.5, equal_tau/(equal_tau + unequal_tau)))
       multi[i] <- 1 - uni[i]
 
     } else {