[Robast-commits] r1011 - in branches/robast-1.1/pkg/RobExtremes: R inst man
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Jul 20 16:44:31 CEST 2018
Author: ruckdeschel
Date: 2018-07-20 16:44:30 +0200 (Fri, 20 Jul 2018)
New Revision: 1011
Modified:
branches/robast-1.1/pkg/RobExtremes/R/Pareto.R
branches/robast-1.1/pkg/RobExtremes/R/getStartICPareto.R
branches/robast-1.1/pkg/RobExtremes/inst/NEWS
branches/robast-1.1/pkg/RobExtremes/man/ParetoParameter-class.Rd
Log:
[RobExtremes] branch 1.1
+ updated NEWS
+ some buglets: missed argument L2Fam in .getPsi.P and added scale method for wrong class...
Modified: branches/robast-1.1/pkg/RobExtremes/R/Pareto.R
===================================================================
--- branches/robast-1.1/pkg/RobExtremes/R/Pareto.R 2018-07-20 14:31:43 UTC (rev 1010)
+++ branches/robast-1.1/pkg/RobExtremes/R/Pareto.R 2018-07-20 14:44:30 UTC (rev 1011)
@@ -8,7 +8,7 @@
## Access Methods
setMethod("shape", "ParetoParameter", function(object) object at shape)
setMethod("Min", "ParetoParameter", function(object) object at Min)
-setMethod("scale", "GEVParameter",
+setMethod("scale", "ParetoParameter",
function(x, center = TRUE, scale = TRUE) x at Min)
### odd arg-list due to existing function in base package
@@ -49,6 +49,8 @@
## wrapped access methods
setMethod("shape", "Pareto", function(object) shape(param(object)))
setMethod("Min", "Pareto", function(object) Min(param(object)))
+setMethod("scale", "Pareto",
+ function(x, center = TRUE, scale = TRUE) Min(param(x)))
## wrapped replace methods
setMethod("shape<-", "Pareto", function(object, value)
Modified: branches/robast-1.1/pkg/RobExtremes/R/getStartICPareto.R
===================================================================
--- branches/robast-1.1/pkg/RobExtremes/R/getStartICPareto.R 2018-07-20 14:31:43 UTC (rev 1010)
+++ branches/robast-1.1/pkg/RobExtremes/R/getStartICPareto.R 2018-07-20 14:44:30 UTC (rev 1011)
@@ -5,19 +5,19 @@
xi <- main(param1)
.modifyIC0 <- function(L2Fam, IC){
xi0 <- main(param(L2Fam))
- return(.getPsi.P(xi0, type(risk)))
+ return(.getPsi.P(xi0, L2Fam, type(risk)))
}
.modifyIC <- function(L2Fam,IC){
psi.0 <- .modifyIC0(L2Fam,IC)
psi.0 at modifyIC <- .modifyIC
return(psi.0)
}
- IC0 <- .getPsi.P(xi, type(risk))
+ IC0 <- .getPsi.P(xi, model, type(risk))
IC0 at modifyIC <- .modifyIC
return(IC0)
})
-.getPsi.P <- function(xi, type){
+.getPsi.P <- function(xi, L2Fam, type){
## the respective LMs have been computed ahead of time
## and stored in sysdata.rda of this package
## the code for this computation is in AddMaterial/getLMPareto.R
Modified: branches/robast-1.1/pkg/RobExtremes/inst/NEWS
===================================================================
--- branches/robast-1.1/pkg/RobExtremes/inst/NEWS 2018-07-20 14:31:43 UTC (rev 1010)
+++ branches/robast-1.1/pkg/RobExtremes/inst/NEWS 2018-07-20 14:44:30 UTC (rev 1011)
@@ -11,11 +11,46 @@
version 1.1
#######################################
+user-visible CHANGES:
++ revised DESCRIPTION and staring help page
++ full robustness support now for ParetoFamily
++ moved "actuar" from require to imports in DESCRIPTION
++ NAMESPACE: export some formerly internal S4 classes + accessors and replacers for
+ locscaleshapename; specify from which package (actuar,evd) to take gumbel p,d,q,r
++ smaller grid of xi values as starting values for GPD and GEVD for speed reasons
++ new accessor method scale for Pareto distribution
+
+minor changes:
++ new Rd files for now exported (formerly internal) intermediate classes
++ added timings for Sn
++ allow for versions < 3.0 when reading grid from sysdata.rda
+
+bug fixes:
++ fixed a sign error in FisherInfo.fct for GEV(U)
++ R CMD check did not like "usage" section in internal-methods.Rd, so we commented it out
++ in .define.tau.Dtau.withMu (only need theta[1:2])
++ in getStartIC.R (in names risk type is without ".")
++ fixed modifyIC in "getStartIC",signature(model = "L2LocScaleShapeUnion")
++ some fixes in .checkEstClassForParamFamiliyMethods
++ class ParamWithLocAndScaleAndShapeFamParameter now contains ParamWithScaleAndShapeFamParameter
++ in ParetoFamily.R L2derivDistr was not attached to return value
+
under the hood:
+ prepared everything for first release on CRAN
++ ParetoFamily now has interpolRisks
++ ParetoFamily distribution now has speed up for Sn
++ updated/prepared plotOutlyingness.R
++ fixed unit test suite for zero length
++ changed \dontrun in \donttest in examples
+ wherever possible also use q.l internally instead of q to
provide functionality in IRKernel
-
++ in addition, now use slot locscaleshapename in generating function of GEVFamilyMuUnknown
++ new generics/methods for locationname, locscaleshapename(<-), scaleshapename, locscalename, shapename, scalename
++ use prefix evd:: to clarify which [p,d,q,r]gumbel to take
++ L2LocScaleShapeUnion gains slot locscaleshapename = "character" / looses slot scaleshapename = "character"
++ added some more specific links to other Rd files in distrMod
++ added code for the computation of LMs for ParetoFamily
+
#######################################
version 1.0
#######################################
Modified: branches/robast-1.1/pkg/RobExtremes/man/ParetoParameter-class.Rd
===================================================================
--- branches/robast-1.1/pkg/RobExtremes/man/ParetoParameter-class.Rd 2018-07-20 14:31:43 UTC (rev 1010)
+++ branches/robast-1.1/pkg/RobExtremes/man/ParetoParameter-class.Rd 2018-07-20 14:44:30 UTC (rev 1011)
@@ -7,6 +7,7 @@
\alias{shape<-,ParetoParameter-method}
\alias{Min,ParetoParameter-method}
\alias{Min<-,ParetoParameter-method}
+\alias{scale,ParetoParameter-method}
\title{Paramter of Pareto distributions}
\description{The class of the parameter of Pareto distributions.}
@@ -33,6 +34,8 @@
slot \code{shape}. }
\item{Min}{\code{signature(x = "ParetoParameter")}: access method for
slot \code{Min}. }
+ \item{scale}{\code{signature(x = "ParetoParameter")}: access method for
+ slot \code{Min}. }
\item{shape<-}{\code{signature(object = "ParetoParameter")}: replace method for
slot \code{shape}. }
\item{Min<-}{\code{signature(x = "ParetoParameter")}: replace method for
More information about the Robast-commits
mailing list