[Robast-commits] r1270 - in pkg/ROptEstOld: . R inst

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

Author: stamats
Date: 2024-02-04 09:24:59 +0100 (Sun, 04 Feb 2024)
New Revision: 1270

Modified:
   pkg/ROptEstOld/DESCRIPTION
   pkg/ROptEstOld/R/Gumbel.R
   pkg/ROptEstOld/inst/NEWS
Log:
minor changes for submission to CRAN

Modified: pkg/ROptEstOld/DESCRIPTION
===================================================================
--- pkg/ROptEstOld/DESCRIPTION	2024-02-03 18:09:52 UTC (rev 1269)
+++ pkg/ROptEstOld/DESCRIPTION	2024-02-04 08:24:59 UTC (rev 1270)
@@ -1,6 +1,6 @@
 Package: ROptEstOld
-Version: 1.2.0
-Date: 2019-04-02
+Version: 1.2.1
+Date: 2024-02-04
 Title: Optimally Robust Estimation - Old Version
 Description: Optimally robust estimation using S4 classes and methods. Old version still
             needed for current versions of ROptRegTS and RobRex.
@@ -10,7 +10,6 @@
 ByteCompile: yes
 License: LGPL-3
 URL: http://robast.r-forge.r-project.org/
-Encoding: latin1
 LastChangedDate: {$LastChangedDate$}
 LastChangedRevision: {$LastChangedRevision$}
 VCS/SVNRevision: 1214

Modified: pkg/ROptEstOld/R/Gumbel.R
===================================================================
--- pkg/ROptEstOld/R/Gumbel.R	2024-02-03 18:09:52 UTC (rev 1269)
+++ pkg/ROptEstOld/R/Gumbel.R	2024-02-04 08:24:59 UTC (rev 1270)
@@ -1,55 +1,55 @@
-## access methods
-setMethod("loc", "GumbelParameter", function(object) object at loc)
-setMethod("scale", "GumbelParameter", 
-    function(x, center = TRUE, scale = TRUE) x at scale)
-
-## replace Methods
-setReplaceMethod("loc", "GumbelParameter", 
-    function(object, value){ object at loc <- value; object })
-setReplaceMethod("scale", "GumbelParameter", 
-    function(object, value){ object at scale <- value; object})
-
-
-## generating function
-Gumbel <- function(loc = 0, scale = 1){ new("Gumbel", loc = loc, scale = scale) }
-
-## wrapped access methods
-setMethod("loc", "Gumbel", function(object) loc(object at param))
-setMethod("scale", "Gumbel", 
-    function(x, center = TRUE, scale = TRUE) scale(x at param))
-
-## wrapped replace methods
-setMethod("loc<-", "Gumbel", 
-    function(object, value){ 
-        new("Gumbel", loc = value, scale = scale(object))
-    })
-setMethod("scale<-", "Gumbel", 
-    function(object, value){ 
-        if(length(value) != 1 || value <= 0)
-            stop("'value' has to be a single positive number")
-        new("Gumbel", loc = loc(object), scale = value)
-    })
-
-## extra methods for Gumbel distribution
-setMethod("+", c("Gumbel","numeric"),
-          function(e1, e2){
-            if (length(e2)>1) stop("length of operator must be 1")
-            new("Gumbel", loc = loc(e1) + e2, scale = scale(e1)) 
-          })
-
-setMethod("*", c("Gumbel","numeric"),
-          function(e1, e2){
-            if (length(e2)>1) stop("length of operator must be 1")
-            if (isTRUE(all.equal(e2,0))) 
-                return(new("Dirac", location = 0, .withArith = TRUE))
-            new("Gumbel", loc = loc(e1) * e2, scale = scale(e1)*abs(e2))
-          })
-
-### Euler Mascheroni constant:
-EULERMASCHERONICONSTANT <- -digamma(1) ### after http://mathworld.wolfram.com/Euler-MascheroniConstant.html (48)
-
-### Apéry constant
-##local helper function:
-.fctApery <- function(n) (-1)^n*choose(2*n,n)*n^3
-##
-APERYCONSTANT <- -sum(sapply(1:50,.fctApery)^(-1))*5/2 ## after http://mathworld.wolfram.com/AperysConstant.html (8)
+## access methods
+setMethod("loc", "GumbelParameter", function(object) object at loc)
+setMethod("scale", "GumbelParameter", 
+    function(x, center = TRUE, scale = TRUE) x at scale)
+
+## replace Methods
+setReplaceMethod("loc", "GumbelParameter", 
+    function(object, value){ object at loc <- value; object })
+setReplaceMethod("scale", "GumbelParameter", 
+    function(object, value){ object at scale <- value; object})
+
+
+## generating function
+Gumbel <- function(loc = 0, scale = 1){ new("Gumbel", loc = loc, scale = scale) }
+
+## wrapped access methods
+setMethod("loc", "Gumbel", function(object) loc(object at param))
+setMethod("scale", "Gumbel", 
+    function(x, center = TRUE, scale = TRUE) scale(x at param))
+
+## wrapped replace methods
+setMethod("loc<-", "Gumbel", 
+    function(object, value){ 
+        new("Gumbel", loc = value, scale = scale(object))
+    })
+setMethod("scale<-", "Gumbel", 
+    function(object, value){ 
+        if(length(value) != 1 || value <= 0)
+            stop("'value' has to be a single positive number")
+        new("Gumbel", loc = loc(object), scale = value)
+    })
+
+## extra methods for Gumbel distribution
+setMethod("+", c("Gumbel","numeric"),
+          function(e1, e2){
+            if (length(e2)>1) stop("length of operator must be 1")
+            new("Gumbel", loc = loc(e1) + e2, scale = scale(e1)) 
+          })
+
+setMethod("*", c("Gumbel","numeric"),
+          function(e1, e2){
+            if (length(e2)>1) stop("length of operator must be 1")
+            if (isTRUE(all.equal(e2,0))) 
+                return(new("Dirac", location = 0, .withArith = TRUE))
+            new("Gumbel", loc = loc(e1) * e2, scale = scale(e1)*abs(e2))
+          })
+
+### Euler Mascheroni constant:
+EULERMASCHERONICONSTANT <- -digamma(1) ### after http://mathworld.wolfram.com/Euler-MascheroniConstant.html (48)
+
+### Apery constant
+##local helper function:
+.fctApery <- function(n) (-1)^n*choose(2*n,n)*n^3
+##
+APERYCONSTANT <- -sum(sapply(1:50,.fctApery)^(-1))*5/2 ## after http://mathworld.wolfram.com/AperysConstant.html (8)

Modified: pkg/ROptEstOld/inst/NEWS
===================================================================
--- pkg/ROptEstOld/inst/NEWS	2024-02-03 18:09:52 UTC (rev 1269)
+++ pkg/ROptEstOld/inst/NEWS	2024-02-04 08:24:59 UTC (rev 1270)
@@ -13,6 +13,7 @@
 
 under the hood
 + now specified that we want to use distr::solve
++ removed latin1 encoding
 
 #######################################
 version 1.1