[Distr-commits] r1433 - branches/distr-2.9/pkg/distrMod/R pkg/distrMod/R

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2024-01-31 18:26:02 +0100 (Wed, 31 Jan 2024)
New Revision: 1433

Modified:
   branches/distr-2.9/pkg/distrMod/R/0distrModUtils.R
   branches/distr-2.9/pkg/distrMod/R/confint.R
   pkg/distrMod/R/0distrModUtils.R
   pkg/distrMod/R/confint.R
Log:
[distrMod] trunk+branch renamed internal function format.perc borrowed from pkg stats to .format_perc as they did there Mar 2023

Modified: branches/distr-2.9/pkg/distrMod/R/0distrModUtils.R
===================================================================
--- branches/distr-2.9/pkg/distrMod/R/0distrModUtils.R	2024-01-31 16:12:45 UTC (rev 1432)
+++ branches/distr-2.9/pkg/distrMod/R/0distrModUtils.R	2024-01-31 17:26:02 UTC (rev 1433)
@@ -426,6 +426,6 @@
 #---------------------------------------------------
 ### from packages stats:
 #---------------------------------------------------
-format.perc <- function (probs, digits)
+.format_perc <- function (probs, digits)
 paste(format(100 * probs, trim = TRUE, scientific = FALSE, digits = digits),
     "%")

Modified: branches/distr-2.9/pkg/distrMod/R/confint.R
===================================================================
--- branches/distr-2.9/pkg/distrMod/R/confint.R	2024-01-31 16:12:45 UTC (rev 1432)
+++ branches/distr-2.9/pkg/distrMod/R/confint.R	2024-01-31 17:26:02 UTC (rev 1433)
@@ -26,7 +26,7 @@
 ### code borrowed from confint.default from package stats
     a <- (1 - level)/2
     a <- c(a, 1 - a)
-    pct <- format.perc(a, 3)
+    pct <- .format_perc(a, 3)
     fac <- qnorm(a)
     ci <- array(NA, dim = c(length(object at estimate), 2),
                 dimnames = list(names(object at estimate), pct)

Modified: pkg/distrMod/R/0distrModUtils.R
===================================================================
--- pkg/distrMod/R/0distrModUtils.R	2024-01-31 16:12:45 UTC (rev 1432)
+++ pkg/distrMod/R/0distrModUtils.R	2024-01-31 17:26:02 UTC (rev 1433)
@@ -426,6 +426,6 @@
 #---------------------------------------------------
 ### from packages stats:
 #---------------------------------------------------
-format.perc <- function (probs, digits)
+.format_perc <- function (probs, digits)
 paste(format(100 * probs, trim = TRUE, scientific = FALSE, digits = digits),
     "%")

Modified: pkg/distrMod/R/confint.R
===================================================================
--- pkg/distrMod/R/confint.R	2024-01-31 16:12:45 UTC (rev 1432)
+++ pkg/distrMod/R/confint.R	2024-01-31 17:26:02 UTC (rev 1433)
@@ -26,7 +26,7 @@
 ### code borrowed from confint.default from package stats
     a <- (1 - level)/2
     a <- c(a, 1 - a)
-    pct <- format.perc(a, 3)
+    pct <- .format_perc(a, 3)
     fac <- qnorm(a)
     ci <- array(NA, dim = c(length(object at estimate), 2),
                 dimnames = list(names(object at estimate), pct)