[Robast-commits] r1266 - branches/robast-1.3/pkg/RobAStBase/R pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2024-01-31 18:24:12 +0100 (Wed, 31 Jan 2024)
New Revision: 1266

Modified:
   branches/robast-1.3/pkg/RobAStBase/R/00internal.R
   branches/robast-1.3/pkg/RobAStBase/R/bALEstimate.R
   pkg/RobAStBase/R/00internal.R
   pkg/RobAStBase/R/bALEstimate.R
Log:
[RobAStBAse] renamed .format.perc to .format_perc (as they did in pkg stats Mar 2023)

Modified: branches/robast-1.3/pkg/RobAStBase/R/00internal.R
===================================================================
--- branches/robast-1.3/pkg/RobAStBase/R/00internal.R	2024-01-30 16:08:00 UTC (rev 1265)
+++ branches/robast-1.3/pkg/RobAStBase/R/00internal.R	2024-01-31 17:24:12 UTC (rev 1266)
@@ -2,7 +2,7 @@
 # .format.perc : for formatting percentages
 #------------------------------------------------------------------------------
 ### code borrowed from non-exported code from confint.default from package stats
-.format.perc <- function (probs, digits)
+.format_perc <- function (probs, digits)
     paste(format(100 * probs, trim = TRUE, scientific = FALSE, digits = digits),
     "%")
 

Modified: branches/robast-1.3/pkg/RobAStBase/R/bALEstimate.R
===================================================================
--- branches/robast-1.3/pkg/RobAStBase/R/bALEstimate.R	2024-01-30 16:08:00 UTC (rev 1265)
+++ branches/robast-1.3/pkg/RobAStBase/R/bALEstimate.R	2024-01-31 17:24:12 UTC (rev 1266)
@@ -41,7 +41,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))
@@ -48,7 +48,7 @@
     ci[] <- main(object) + sd0 %o% fac
 ### end of borrowed code
 
-    new("Confint", type = gettext("asymptotic (CLT-based)"),
+    new("Confint", type = gettext("asymptotic (LAN-based)"),
                    samplesize.estimate = object at samplesize,
                    call.estimate = object at estimate.call,
                    name.estimate = object at name,
@@ -77,7 +77,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, mean = c(-object at asbias, object at asbias))
     ci <- array(NA, dim = c(length(object at estimate), 2),
                 dimnames = list(names(object at estimate), pct))
@@ -116,7 +116,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)
     if(method at sign == -1)
         M <- c(-object at asbias, 0)
     else
@@ -159,7 +159,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, mean = c(-object at asbias, object at asbias)/method at nu)
     ci <- array(NA, dim = c(length(object at estimate), 2),
                 dimnames = list(names(object at estimate), pct))

Modified: pkg/RobAStBase/R/00internal.R
===================================================================
--- pkg/RobAStBase/R/00internal.R	2024-01-30 16:08:00 UTC (rev 1265)
+++ pkg/RobAStBase/R/00internal.R	2024-01-31 17:24:12 UTC (rev 1266)
@@ -2,7 +2,7 @@
 # .format.perc : for formatting percentages
 #------------------------------------------------------------------------------
 ### code borrowed from non-exported code from confint.default from package stats
-.format.perc <- function (probs, digits)
+.format_perc <- function (probs, digits)
     paste(format(100 * probs, trim = TRUE, scientific = FALSE, digits = digits),
     "%")
 

Modified: pkg/RobAStBase/R/bALEstimate.R
===================================================================
--- pkg/RobAStBase/R/bALEstimate.R	2024-01-30 16:08:00 UTC (rev 1265)
+++ pkg/RobAStBase/R/bALEstimate.R	2024-01-31 17:24:12 UTC (rev 1266)
@@ -41,7 +41,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))
@@ -77,7 +77,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, mean = c(-object at asbias, object at asbias))
     ci <- array(NA, dim = c(length(object at estimate), 2),
                 dimnames = list(names(object at estimate), pct))
@@ -116,7 +116,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)
     if(method at sign == -1)
         M <- c(-object at asbias, 0)
     else
@@ -159,7 +159,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, mean = c(-object at asbias, object at asbias)/method at nu)
     ci <- array(NA, dim = c(length(object at estimate), 2),
                 dimnames = list(names(object at estimate), pct))