[Robast-commits] r496 - branches/robast-0.9/pkg/RobExtremes/R

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

Author: stamats
Date: 2012-07-01 15:54:28 +0200 (Sun, 01 Jul 2012)
New Revision: 496

Modified:
   branches/robast-0.9/pkg/RobExtremes/R/AllClass.R
   branches/robast-0.9/pkg/RobExtremes/R/WeibullFamily.R
Log:
Implementation of Weibull family is incomplete: 
- added class definition for Weibull family
- minor correction in generating function for Weibull family

Modified: branches/robast-0.9/pkg/RobExtremes/R/AllClass.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/R/AllClass.R	2012-07-01 13:46:36 UTC (rev 495)
+++ branches/robast-0.9/pkg/RobExtremes/R/AllClass.R	2012-07-01 13:54:28 UTC (rev 496)
@@ -233,8 +233,9 @@
 setClass("GumbelLocationFamily",
           contains = "L2LocationFamily")
 
-## class
+## Generalized Pareto 
 setClass("GParetoFamily", contains="L2ScaleShapeUnion")
+setClass("WeibullFamily", contains="L2ScaleShapeUnion")
 
 
 setClass("LDEstimate",

Modified: branches/robast-0.9/pkg/RobExtremes/R/WeibullFamily.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/R/WeibullFamily.R	2012-07-01 13:46:36 UTC (rev 495)
+++ branches/robast-0.9/pkg/RobExtremes/R/WeibullFamily.R	2012-07-01 13:54:28 UTC (rev 496)
@@ -327,7 +327,7 @@
     }
 
     FisherInfo <- FisherInfo.fct(param)
-    name <- "Generalized Pareto Family"
+    name <- "Weibull Family"
 
     ## initializing the Weibull family with components of L2-family
     L2Fam <- new("WeibullFamily")