[Distr-commits] r471 - in branches/distr-2.2/pkg: distr/chm distr/inst/doc distrEx distrEx/R distrEx/chm distrEx/man distrMod/R startupmsg/chm

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Mon May 25 20:56:57 CEST 2009


Author: ruckdeschel
Date: 2009-05-25 20:56:56 +0200 (Mon, 25 May 2009)
New Revision: 471

Added:
   branches/distr-2.2/pkg/distrEx/R/GPareto.R
   branches/distr-2.2/pkg/distrEx/chm/GPareto-class.html
   branches/distr-2.2/pkg/distrEx/chm/GPareto.html
   branches/distr-2.2/pkg/distrEx/chm/GParetoParameter-class.html
   branches/distr-2.2/pkg/distrEx/man/GPareto-class.Rd
   branches/distr-2.2/pkg/distrEx/man/GPareto.Rd
   branches/distr-2.2/pkg/distrEx/man/GParetoParameter-class.Rd
Modified:
   branches/distr-2.2/pkg/distr/chm/Distr.chm
   branches/distr-2.2/pkg/distr/inst/doc/Rplots.pdf
   branches/distr-2.2/pkg/distr/inst/doc/newDistributions.pdf
   branches/distr-2.2/pkg/distrEx/DESCRIPTION
   branches/distr-2.2/pkg/distrEx/chm/distrEx.chm
   branches/distr-2.2/pkg/distrMod/R/L2ParamFamily.R
   branches/distr-2.2/pkg/startupmsg/chm/00Index.html
   branches/distr-2.2/pkg/startupmsg/chm/StartupUtilities.html
   branches/distr-2.2/pkg/startupmsg/chm/myStartupUtilities.html
   branches/distr-2.2/pkg/startupmsg/chm/startupmsg.chm
Log:
+simplified treatment of random variable L2deriv in L2ParamFamily.R
+forgot some source files (GPD)
+updated some vignettes and DESCRIPTIONs

Modified: branches/distr-2.2/pkg/distr/chm/Distr.chm
===================================================================
(Binary files differ)

Modified: branches/distr-2.2/pkg/distr/inst/doc/Rplots.pdf
===================================================================
--- branches/distr-2.2/pkg/distr/inst/doc/Rplots.pdf	2009-05-14 13:36:46 UTC (rev 470)
+++ branches/distr-2.2/pkg/distr/inst/doc/Rplots.pdf	2009-05-25 18:56:56 UTC (rev 471)
@@ -2,8 +2,8 @@
 %âãÏÓ\r
 1 0 obj
 <<
-/CreationDate (D:20090514143051)
-/ModDate (D:20090514143051)
+/CreationDate (D:20090515175123)
+/ModDate (D:20090515175123)
 /Title (R Graphics Output)
 /Producer (R 2.10.0)
 /Creator (R)
@@ -47,7 +47,7 @@
 38.97 172.78 m 148.04 172.78 l S
 38.97 227.22 m 148.04 227.22 l S
 38.97 281.66 m 148.04 281.66 l S
-38.97 336.10 m 148.04 336.10 l S
+38.97 336.09 m 148.04 336.09 l S
 38.97 390.53 m 148.04 390.53 l S
 38.97 444.97 m 148.04 444.97 l S
 0.000 0.000 0.000 RG
@@ -169,7 +169,7 @@
 54.43 64.20 l
 54.53 64.21 l
 54.63 64.22 l
-54.73 64.23 l
+54.73 64.24 l
 54.83 64.25 l
 54.94 64.26 l
 55.04 64.28 l
@@ -275,7 +275,7 @@
 65.15 74.45 l
 65.25 74.75 l
 65.35 75.05 l
-65.45 75.36 l
+65.45 75.37 l
 65.55 75.68 l
 65.65 76.01 l
 65.75 76.34 l
@@ -359,7 +359,7 @@
 73.64 137.89 l
 73.74 139.28 l
 73.84 140.68 l
-73.94 142.11 l
+73.94 142.10 l
 74.04 143.55 l
 74.14 145.01 l
 74.25 146.48 l
@@ -367,7 +367,7 @@
 74.45 149.49 l
 74.55 151.02 l
 74.65 152.57 l
-74.75 154.13 l
+74.75 154.14 l
 74.85 155.72 l
 74.95 157.32 l
 75.05 158.94 l
@@ -380,9 +380,9 @@
 75.76 170.77 l
 75.86 172.53 l
 75.96 174.31 l
-76.06 176.10 l
+76.06 176.11 l
 76.17 177.92 l
-76.27 179.74 l
+76.27 179.75 l
 76.37 181.59 l
 76.47 183.45 l
 76.57 185.33 l
@@ -407,7 +407,7 @@
 78.49 223.93 l
 78.59 226.10 l
 78.69 228.28 l
-78.79 230.47 l
+78.79 230.48 l
 78.90 232.68 l
 79.00 234.90 l
 79.10 237.12 l
@@ -424,7 +424,7 @@
 80.21 262.24 l
 80.31 264.57 l
 80.41 266.90 l
-80.51 269.25 l
+80.51 269.24 l
 80.61 271.59 l
 80.72 273.94 l
 80.82 276.30 l
@@ -459,7 +459,7 @@
 83.75 344.37 l
 83.85 346.63 l
 83.95 348.88 l
-84.05 351.12 l
+84.05 351.11 l
 84.15 353.34 l
 84.25 355.55 l
 84.35 357.75 l
@@ -468,7 +468,7 @@
 84.66 364.26 l
 84.76 366.40 l
 84.86 368.52 l
-84.96 370.63 l
+84.96 370.62 l
 85.06 372.71 l
 85.16 374.78 l
 85.26 376.84 l
@@ -485,7 +485,7 @@
 86.38 398.05 l
 86.48 399.85 l
 86.58 401.61 l
-86.68 403.35 l
+86.68 403.36 l
 86.78 405.07 l
 86.88 406.76 l
 86.98 408.42 l
@@ -568,7 +568,7 @@
 94.77 433.16 l
 94.87 432.06 l
 94.97 430.93 l
-95.07 429.77 l
+95.07 429.76 l
 95.17 428.57 l
 95.27 427.34 l
 95.37 426.08 l
@@ -579,7 +579,7 @@
 95.88 419.32 l
 95.98 417.88 l
 96.08 416.41 l
-96.18 414.91 l
+96.18 414.92 l
 96.28 413.39 l
 96.39 411.84 l
 96.49 410.26 l
@@ -593,7 +593,7 @@
 97.30 396.72 l
 97.40 394.92 l
 97.50 393.10 l
-97.60 391.25 l
+97.60 391.26 l
 97.70 389.39 l
 97.80 387.51 l
 97.90 385.60 l
@@ -603,10 +603,10 @@
 98.31 377.79 l
 98.41 375.79 l
 98.51 373.78 l
-98.61 371.74 l
+98.61 371.75 l
 98.71 369.70 l
 98.81 367.63 l
-98.91 365.55 l
+98.91 365.56 l
 99.01 363.46 l
 99.11 361.36 l
 99.22 359.23 l
@@ -623,7 +623,7 @@
 100.33 335.17 l
 100.43 332.93 l
 100.53 330.68 l
-100.63 328.42 l
+100.63 328.43 l
 100.73 326.16 l
 100.83 323.90 l
 100.93 321.63 l
@@ -631,19 +631,19 @@
 101.14 317.07 l
 101.24 314.79 l
 101.34 312.50 l
-101.44 310.22 l
-101.54 307.92 l
-101.64 305.64 l
+101.44 310.21 l
+101.54 307.93 l
+101.64 305.63 l
 101.74 303.34 l
 101.84 301.05 l
-101.95 298.75 l
+101.95 298.76 l
 102.05 296.46 l
 102.15 294.17 l
 102.25 291.88 l
 102.35 289.59 l
 102.45 287.30 l
 102.55 285.02 l
-102.65 282.74 l
+102.65 282.73 l
 102.75 280.46 l
 102.86 278.18 l
 102.96 275.91 l
@@ -661,7 +661,7 @@
 104.17 249.11 l
 104.27 246.93 l
 104.37 244.75 l
-104.47 242.59 l
+104.47 242.58 l
 104.57 240.43 l
 104.68 238.28 l
 104.78 236.15 l
@@ -669,7 +669,7 @@
 104.98 231.90 l
 105.08 229.80 l
 105.18 227.71 l
-105.28 225.62 l
+105.28 225.63 l
 105.38 223.56 l
 105.48 221.50 l
 105.59 219.45 l
@@ -703,7 +703,7 @@
 108.42 167.87 l
 108.52 166.26 l
 108.62 164.65 l
-108.72 163.07 l
+108.72 163.06 l
 108.82 161.49 l
 108.92 159.94 l
 109.02 158.40 l
@@ -733,7 +733,7 @@
 111.45 126.35 l
 111.55 125.21 l
 111.65 124.09 l
-111.75 122.98 l
+111.75 122.99 l
 111.85 121.90 l
 111.95 120.82 l
 112.06 119.76 l
@@ -1093,7 +1093,7 @@
 38.97 172.78 m 34.21 172.78 l S
 38.97 227.22 m 34.21 227.22 l S
 38.97 281.66 m 34.21 281.66 l S
-38.97 336.10 m 34.21 336.10 l S
+38.97 336.09 m 34.21 336.09 l S
 38.97 390.53 m 34.21 390.53 l S
 38.97 444.97 m 34.21 444.97 l S
 BT

Modified: branches/distr-2.2/pkg/distr/inst/doc/newDistributions.pdf
===================================================================
(Binary files differ)

Modified: branches/distr-2.2/pkg/distrEx/DESCRIPTION
===================================================================
--- branches/distr-2.2/pkg/distrEx/DESCRIPTION	2009-05-14 13:36:46 UTC (rev 470)
+++ branches/distr-2.2/pkg/distrEx/DESCRIPTION	2009-05-25 18:56:56 UTC (rev 471)
@@ -13,3 +13,4 @@
 URL: http://distr.r-forge.r-project.org/
 LastChangedDate: {$LastChangedDate$}
 LastChangedRevision: {$LastChangedRevision$}
+Packaged: 2009-05-15 13:11:54 UTC; ruckdesc
\ No newline at end of file

Added: branches/distr-2.2/pkg/distrEx/R/GPareto.R
===================================================================
--- branches/distr-2.2/pkg/distrEx/R/GPareto.R	                        (rev 0)
+++ branches/distr-2.2/pkg/distrEx/R/GPareto.R	2009-05-25 18:56:56 UTC (rev 471)
@@ -0,0 +1,85 @@
+###########################################
+## Class: Generalized Pareto Distribution  
+##  
+## @param: location, scale, shape 
+###########################################
+
+## access methods
+setMethod("location", "GParetoParameter", function(object) object at loc)
+setMethod("loc", "GParetoParameter", function(object) object at loc)
+setMethod("scale", "GParetoParameter", 
+           function(x, center = TRUE, scale = TRUE) x at scale)
+           ### odd arg-list due to existing function in base package 
+setMethod("shape", "GParetoParameter", function(object) object at shape)
+
+## replace Methods
+setReplaceMethod("loc", "GParetoParameter", 
+    function(object, value){ object at loc <- value; object })
+setReplaceMethod("location", "GParetoParameter", 
+    function(object, value){ object at loc <- value; object })
+setReplaceMethod("scale", "GParetoParameter", 
+    function(object, value){ object at scale <- value; object})
+setReplaceMethod("shape", "GParetoParameter", 
+    function(object, value){ object at shape <- value; object})
+
+## wrapped access methods
+setMethod("location", "GPareto", function(object) loc(object at param))
+setMethod("loc", "GPareto", function(object) loc(object at param))
+setMethod("scale", "GPareto", 
+           function(x, center = TRUE, scale = TRUE)
+           scale(x at param))
+setMethod("shape", "GPareto", function(object) shape(object at param))
+
+
+## wrapped replace methods
+setMethod("loc<-", "GPareto", function(object, value) 
+           new("GPareto", loc = value, scale = scale(object), shape = shape(object)))
+setMethod("location<-", "GPareto", function(object, value) 
+           new("GPareto", loc = value, scale = scale(object), shape = shape(object)))
+setMethod("scale<-", "GPareto", function(object, value) 
+           new("GPareto", loc = loc(object), scale = value, shape = shape(object)))
+setMethod("shape<-", "GPareto", function(object, value) 
+           new("GPareto", loc = loc(object), scale = scale(object), shape = value))
+
+setValidity("GParetoParameter", function(object){
+  if(length(loc(object)) != 1)
+    stop("location has to be a numeric of length 1") 
+  if(length(scale(object)) != 1)
+    stop("scale has to be a numeric of length 1")    
+  if(scale(object) <= 0)
+    stop("scale has to be positive")
+  if(length(shape(object)) != 1)
+    stop("shape has to be a numeric of length 1")    
+  if(shape(object) < 0)
+    stop("shape has to be non-negative")
+  else return(TRUE)
+})
+
+## generating function
+GPareto <- function(loc = 0, scale = 1, shape = 0, location = loc){ 
+           if(!missing(loc)&&!missing(location)) 
+              if(!isTRUE(all.equal(loc,location)))
+                 stop("Only one of arguments 'loc' and 'location' may be used.")
+           if(!missing(location)) loc <- location
+           if(shape < .Machine$double.eps) return(loc+Exp(rate=1/scale))
+           new("GPareto", loc = loc, scale = scale, shape = shape) }
+
+## extra methods for GPareto distribution
+setMethod("+", c("GPareto","numeric"),
+          function(e1, e2){
+            if (length(e2)>1) stop("length of operator must be 1")
+            new("GPareto", loc = loc(e1) + e2, scale = scale(e1), shape=shape(e1)) 
+          })
+
+setMethod("*", c("GPareto","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))
+            GP <- new("GPareto", loc = loc(e1) * abs(e2), 
+                                 scale = scale(e1)*abs(e2), shape=shape(e1))
+            if(e2<0) GP <- (-1)*as(GP,"AbscontDistribution")
+            return(GP)
+          })
+
+

Added: branches/distr-2.2/pkg/distrEx/chm/GPareto-class.html
===================================================================
--- branches/distr-2.2/pkg/distrEx/chm/GPareto-class.html	                        (rev 0)
+++ branches/distr-2.2/pkg/distrEx/chm/GPareto-class.html	2009-05-25 18:56:56 UTC (rev 471)
@@ -0,0 +1,181 @@
+<html><head><title>Generalized Pareto distribution</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<link rel="stylesheet" type="text/css" href="Rchm.css">
+</head>
+<body>
+
+<table width="100%"><tr><td>GPareto-class(distrEx)</td><td align="right">R Documentation</td></tr></table><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
+<param name="keyword" value="R:   GPareto-class">
+<param name="keyword" value="R:   initialize,GPareto-method">
+<param name="keyword" value="R:   loc,GPareto-method">
+<param name="keyword" value="R:   loc<-,GPareto-method">
+<param name="keyword" value="R:   location,GPareto-method">
+<param name="keyword" value="R:   location<-,GPareto-method">
+<param name="keyword" value="R:   scale,GPareto-method">
+<param name="keyword" value="R:   scale<-,GPareto-method">
+<param name="keyword" value="R:   shape,GPareto-method">
+<param name="keyword" value="R:   shape<-,GPareto-method">
+<param name="keyword" value="R:   +,GPareto,numeric-method">
+<param name="keyword" value="R:   *,GPareto,numeric-method">
+<param name="keyword" value=" Generalized Pareto distribution">
+</object>
+
+
+<h2>Generalized Pareto distribution</h2>
+
+
+<h3>Description</h3>
+
+<p>
+[borrowed from <span class="pkg">evd</span>]:
+</p>
+<p>
+The (Three-parameter) generalized Pareto distribution with parameter <code>loc</code><i>= a</i>,
+<code>scale</code> <i>= b</i>, <code>shape</code> <i>= c</i> has density:
+</p><p align="center"><i>f(x) = frac{1}{b} (1+c z)^(-1/c - 1), quad z = frac{x-a}{c}</i></p><p>
+for <i>x &gt; a</i> (<i> c &gt;=q 0</i>) and <i>a &lt;=q x &lt;=q a - b/c</i>(<i>c &lt; 0</i>).
+</p>
+
+
+<h3>Objects from the Class</h3>
+
+<p>
+Objects can be created by calls of the form <code>new("GPareto", loc, scale,shape)</code>.
+More frequently they are created via the generating function 
+<code>GPareto</code>.
+</p>
+
+
+<h3>Slots</h3>
+
+<dl>
+<dt><code>img</code>:</dt><dd>Object of class <code>"Reals"</code>. </dd>
+<dt><code>param</code>:</dt><dd>Object of class <code>"GParetoParameter"</code>. </dd>
+<dt><code>r</code>:</dt><dd><code>rgpd</code></dd>
+<dt><code>d</code>:</dt><dd><code>dgpd</code></dd>
+<dt><code>p</code>:</dt><dd><code>pgpd</code>, but vectorized and with special treatment of 
+arguments <code>lower.tail</code> and <code>log.p</code></dd>
+<dt><code>q</code>:</dt><dd><code>qgpd</code>, but vectorized and with special treatment of 
+arguments <code>lower.tail</code> and <code>log.p</code></dd>
+<dt><code>gaps</code>:</dt><dd>(numeric) matrix or <code>NULL</code></dd>
+<dt><code>.withArith</code>:</dt><dd>logical: used internally to issue warnings as to interpretation of arithmetics</dd>
+<dt><code>.withSim</code>:</dt><dd>logical: used internally to issue warnings as to accuracy</dd>
+<dt><code>.logExact</code>:</dt><dd>logical: used internally to flag the case where there are explicit formulae for the
+log version of density, cdf, and quantile function</dd>
+<dt><code>.lowerExact</code>:</dt><dd>logical: used internally to flag the case where there are explicit formulae for the
+lower tail version of cdf and quantile function</dd>
+</dl>
+
+<h3>Extends</h3>
+
+<p>
+Class <code>"AbscontDistribution"</code>, directly.<br>
+Class <code>"UnivariateDistribution"</code>, by class <code>"AbscontDistribution"</code>.<br>
+Class <code>"Distribution"</code>, by class <code>"AbscontDistribution"</code>.
+</p>
+
+
+<h3>Methods</h3>
+
+<dl>
+<dt>initialize</dt><dd><code>signature(.Object = "GPareto")</code>: initialize method. </dd>
+
+
+<dt>shape</dt><dd><code>signature(object = "GPareto")</code>: wrapped access method for
+slot <code>shape</code> of slot <code>param</code>. </dd>
+<dt>loc</dt><dd><code>signature(object = "GPareto")</code>: wrapped access method for
+slot <code>loc</code> of slot <code>param</code>. </dd>
+<dt>location</dt><dd><code>signature(object = "GPareto")</code>: alias to <code>loc</code>,
+to support argument naming of package <span class="pkg">VGAM</span>. </dd>
+<dt>scale</dt><dd><code>signature(x = "GPareto")</code>: wrapped access method for
+slot <code>scale</code> of slot <code>param</code>. </dd>
+
+
+<dt>shape&lt;-</dt><dd><code>signature(object = "GPareto")</code>: wrapped replace method for
+slot <code>shape</code> of slot <code>param</code>. </dd>
+<dt>loc&lt;-</dt><dd><code>signature(object = "GPareto")</code>: wrapped replace  method for
+slot <code>loc</code> of slot <code>param</code>. </dd>
+<dt>location&lt;-</dt><dd><code>signature(object = "GPareto")</code>: alias to <code>loc&lt;-</code>,
+to support argument naming of package <span class="pkg">VGAM</span>. </dd>
+<dt>scale&lt;-</dt><dd><code>signature(x = "GPareto")</code>: wrapped replace  method for
+slot <code>scale</code> of slot <code>param</code>. </dd>
+
+
+<dt>+</dt><dd><code>signature(e1 = "GPareto", e2 = "numeric")</code>: exact method
+for this transformation &mdash; stays within this class. </dd>
+<dt>*</dt><dd><code>signature(e1 = "GPareto", e2 = "numeric")</code>: exact method
+for this transformation &mdash; stays within this class if <code>e2&gt;0</code>. </dd>
+
+
+<dt>E</dt><dd><code>signature(object = "GPareto", fun = "missing", cond = "missing")</code>:
+exact evaluation using explicit expressions.</dd>
+<dt>var</dt><dd><code>signature(signature(x = "GPareto")</code>:
+exact evaluation using explicit expressions.</dd>
+<dt>median</dt><dd><code>signature(signature(x = "GPareto")</code>: 
+exact evaluation using explicit expressions.</dd>
+<dt>IQR</dt><dd><code>signature(signature(x = "GPareto")</code>: 
+exact evaluation using explicit expressions.</dd>
+<dt>skewness</dt><dd><code>signature(signature(x = "GPareto")</code>: 
+exact evaluation using explicit expressions.</dd>
+<dt>kurtosis</dt><dd><code>signature(signature(x = "GPareto")</code>:
+exact evaluation using explicit expressions.</dd>
+
+<p>
+</dl>
+
+<h3>Note</h3>
+
+<p>
+This class is based on the code provided by the package <span class="pkg">evd</span>
+by  A. G. Stephenson.
+</p>
+
+
+<h3>Author(s)</h3>
+
+<p>
+Nataliya Horbenko <a href="mailto:Nataliya.Horbenko at itwm.fraunhofer.de">Nataliya.Horbenko at itwm.fraunhofer.de</a>
+</p>
+
+
+<h3>References</h3>
+
+<p>
+Pickands, J. (1975) <EM>Statistical inference using extreme order
+statistics. _Annals of Statistics_, *3*, 119-131.</EM>
+</p>
+
+
+<h3>See Also</h3>
+
+<p>
+<code><a onclick="findlink('evd', 'dgpd.html')" style="text-decoration: underline; color: blue; cursor: hand">dgpd</a></code>, <code><a onclick="findlink('distr', 'AbscontDistribution-class.html')" style="text-decoration: underline; color: blue; cursor: hand">AbscontDistribution-class</a></code>
+</p>
+
+
+<h3>Examples</h3>
+
+<pre>
+(P1 &lt;- new("GPareto", loc = 0, scale = 1,shape = 0))
+plot(P1)
+shape(P1)
+loc(P1)
+scale(P1) &lt;- 4
+loc(P1) &lt;- 2
+plot(P1)
+</pre>
+
+<script Language="JScript">
+function findlink(pkg, fn) {
+var Y, link;
+Y = location.href.lastIndexOf("\\") + 1;
+link = location.href.substring(0, Y);
+link = link + "../../" + pkg + "/chtml/" + pkg + ".chm::/" + fn;
+location.href = link;
+}
+</script>
+
+
+<hr><div align="center">[Package <em>distrEx</em> version 2.2 <a href="00Index.html">Index</a>]</div>
+
+</body></html>

Added: branches/distr-2.2/pkg/distrEx/chm/GPareto.html
===================================================================
--- branches/distr-2.2/pkg/distrEx/chm/GPareto.html	                        (rev 0)
+++ branches/distr-2.2/pkg/distrEx/chm/GPareto.html	2009-05-25 18:56:56 UTC (rev 471)
@@ -0,0 +1,100 @@
+<html><head><title>Generating function for GPareto-class</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<link rel="stylesheet" type="text/css" href="Rchm.css">
+</head>
+<body>
+
+<table width="100%"><tr><td>GPareto(distrEx)</td><td align="right">R Documentation</td></tr></table><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
+<param name="keyword" value="R:   GPareto">
+<param name="keyword" value=" Generating function for GPareto-class">
+</object>
+
+
+<h2>Generating function for GPareto-class</h2>
+
+
+<h3>Description</h3>
+
+<p>
+Generates an object of class <code>"GPareto"</code>.
+</p>
+
+
+<h3>Usage</h3>
+
+<pre>GPareto(loc = 0, scale = 1, shape = 0, location = loc)</pre>
+
+
+<h3>Arguments</h3>
+
+<table summary="R argblock">
+<tr valign="top"><td><code>loc</code></td>
+<td>
+real number: location parameter of 
+the GPareto distribution. </td></tr>
+<tr valign="top"><td><code>scale</code></td>
+<td>
+positive real number: scale parameter
+of the GPareto distribution </td></tr>
+<tr valign="top"><td><code>shape</code></td>
+<td>
+non-negative real number: shape parameter of 
+the GPareto distribution. </td></tr>
+<tr valign="top"><td><code>location</code></td>
+<td>
+alternative argument name for argument 'loc' &mdash; to 
+support argument names of package <span class="pkg">VGAM</span>. </td></tr>
+</table>
+
+<h3>Value</h3>
+
+<p>
+Object of class <code>"GPareto"</code></p>
+
+<h3>Note</h3>
+
+<p>
+The class <code>"GPareto"</code> is based on the code provided 
+by the package <span class="pkg">evd</span> by  Alec Stephenson.
+</p>
+
+
+<h3>Author(s)</h3>
+
+<p>
+Nataliya Horbenko <a href="mailto:Nataliya.Horbenko at itwm.fraunhofer.de">Nataliya.Horbenko at itwm.fraunhofer.de</a>
+</p>
+
+
+<h3>See Also</h3>
+
+<p>
+<code><a href="GPareto-class.html">GPareto-class</a></code>, <code><a onclick="findlink('evd', 'dgpd.html')" style="text-decoration: underline; color: blue; cursor: hand">dgpd</a></code>
+</p>
+
+
+<h3>Examples</h3>
+
+<pre>
+(P1 &lt;- GPareto(loc = 0, scale = 1, shape = 0))
+plot(P1)
+
+E(GPareto()) 
+E(P1, function(x){x^2})
+
+</pre>
+
+<script Language="JScript">
+function findlink(pkg, fn) {
+var Y, link;
+Y = location.href.lastIndexOf("\\") + 1;
+link = location.href.substring(0, Y);
+link = link + "../../" + pkg + "/chtml/" + pkg + ".chm::/" + fn;
+location.href = link;
+}
+</script>
+
+
+<hr><div align="center">[Package <em>distrEx</em> version 2.2 <a href="00Index.html">Index</a>]</div>
+
+</body></html>

Added: branches/distr-2.2/pkg/distrEx/chm/GParetoParameter-class.html
===================================================================
--- branches/distr-2.2/pkg/distrEx/chm/GParetoParameter-class.html	                        (rev 0)
+++ branches/distr-2.2/pkg/distrEx/chm/GParetoParameter-class.html	2009-05-25 18:56:56 UTC (rev 471)
@@ -0,0 +1,113 @@
+<html><head><title>Parameter of generalized Pareto distributions</title>
+<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+<link rel="stylesheet" type="text/css" href="Rchm.css">
+</head>
+<body>
+
+<table width="100%"><tr><td>GParetoParameter-class(distrEx)</td><td align="right">R Documentation</td></tr></table><object type="application/x-oleobject" classid="clsid:1e2a7bd0-dab9-11d0-b93a-00c04fc99f9e">
+<param name="keyword" value="R:   GParetoParameter-class">
+<param name="keyword" value="R:   loc,GParetoParameter-method">
+<param name="keyword" value="R:   loc<-,GParetoParameter-method">
+<param name="keyword" value="R:   location,GParetoParameter-method">
+<param name="keyword" value="R:   location<-,GParetoParameter-method">
+<param name="keyword" value="R:   scale,GParetoParameter-method">
+<param name="keyword" value="R:   scale<-,GParetoParameter-method">
+<param name="keyword" value="R:   shape,GParetoParameter-method">
+<param name="keyword" value="R:   shape<-,GParetoParameter-method">
+<param name="keyword" value=" Parameter of generalized Pareto distributions">
+</object>
+
+
+<h2>Parameter of generalized Pareto distributions</h2>
+
+
+<h3>Description</h3>
+
+<p>
+The class of the parameter of generalized Pareto distribution.
+</p>
+
+
+<h3>Objects from the Class</h3>
+
+<p>
+Objects can be created by calls of the form <code>new("GParetoParameter", ...)</code>.
+</p>
+
+
+<h3>Slots</h3>
+
+<dl>
+<dt><code>loc</code>:</dt><dd>real number: location parameter of 
+a generalized Pareto distribution. </dd>
+<dt><code>scale</code>:</dt><dd>real number: scale parameter of 
+a generalized Pareto distribution. </dd>
+<dt><code>shape</code>:</dt><dd>real number: shape parameter of 
+a generalized Pareto distribution. </dd>
+<dt><code>name</code>:</dt><dd>default name is 
+&ldquo;parameter of a GPareto distribution&rdquo;. </dd>
+</dl>
+
+<h3>Extends</h3>
+
+<p>
+Class <code>"Parameter"</code>, directly.<br>
+Class <code>"OptionalParameter"</code>, by class <code>"Parameter"</code>.
+</p>
+
+
+<h3>Methods</h3>
+
+<dl>
+<dt>loc</dt><dd><code>signature(object = "GParetoParameter")</code>: access method for
+slot <code>loc</code>. </dd>
+<dt>location</dt><dd><code>signature(object = "GParetoParameter")</code>: alias to <code>loc</code>,
+to support argument naming of package <span class="pkg">VGAM</span>. </dd>
+<dt>scale</dt><dd><code>signature(object = "GParetoParameter")</code>: access method for
+slot <code>scale</code>. </dd>
+<dt>shape</dt><dd><code>signature(object = "GParetoParameter")</code>: access method for
+slot <code>shape</code>. </dd>
+<dt>loc&lt;-</dt><dd><code>signature(object = "GParetoParameter")</code>: replace method for
+slot <code>loc</code>. </dd>
+<dt>location&lt;-</dt><dd><code>signature(object = "GParetoParameter")</code>: alias to <code>loc&lt;-</code>,
+to support argument naming of package <span class="pkg">VGAM</span>. </dd>
+<dt>shape&lt;-</dt><dd><code>signature(object = "GParetoParameter")</code>: replace method for
+slot <code>shape</code>. </dd>
+<dt>shape&lt;-</dt><dd><code>signature(object = "GParetoParameter")</code>: replace method for
+slot <code>shape</code>. </dd>
+</dl>
+
+<h3>Author(s)</h3>
+
+<p>
+Nataliya Horbenko <a href="mailto:Nataliya.Horbenko at itwm.fraunhofer.de">Nataliya.Horbenko at itwm.fraunhofer.de</a>
+</p>
+
+
+<h3>See Also</h3>
+
+<p>
+<code><a href="GPareto-class.html">GPareto-class</a></code>, <code><a onclick="findlink('distr', 'Parameter-class.html')" style="text-decoration: underline; color: blue; cursor: hand">Parameter-class</a></code>
+</p>
+
+
+<h3>Examples</h3>
+
+<pre>
+new("GParetoParameter")
+</pre>
+
+<script Language="JScript">
+function findlink(pkg, fn) {
+var Y, link;
+Y = location.href.lastIndexOf("\\") + 1;
+link = location.href.substring(0, Y);
+link = link + "../../" + pkg + "/chtml/" + pkg + ".chm::/" + fn;
+location.href = link;
+}
+</script>
+
+
+<hr><div align="center">[Package <em>distrEx</em> version 2.2 <a href="00Index.html">Index</a>]</div>
+
+</body></html>

Modified: branches/distr-2.2/pkg/distrEx/chm/distrEx.chm
===================================================================
(Binary files differ)

Added: branches/distr-2.2/pkg/distrEx/man/GPareto-class.Rd
===================================================================
--- branches/distr-2.2/pkg/distrEx/man/GPareto-class.Rd	                        (rev 0)
+++ branches/distr-2.2/pkg/distrEx/man/GPareto-class.Rd	2009-05-25 18:56:56 UTC (rev 471)
@@ -0,0 +1,117 @@
+\name{GPareto-class}
+\docType{class}
+\alias{GPareto-class}
+\alias{initialize,GPareto-method}
+\alias{loc,GPareto-method}
+\alias{loc<-,GPareto-method}
+\alias{location,GPareto-method}
+\alias{location<-,GPareto-method}
+\alias{scale,GPareto-method}
+\alias{scale<-,GPareto-method}
+\alias{shape,GPareto-method}
+\alias{shape<-,GPareto-method}
+\alias{+,GPareto,numeric-method}
+\alias{*,GPareto,numeric-method}
+
+
+\title{Generalized Pareto distribution}
+\description{[borrowed from \pkg{evd}]:
+ 
+  The (Three-parameter) generalized Pareto distribution with parameter \code{loc}\eqn{= a},
+  \code{scale} \eqn{= b}, \code{shape} \eqn{= c} has density:
+  \deqn{f(x) = \frac{1}{b} (1+c z)^(-1/c - 1), \quad z = \frac{x-a}{c}}
+  for \eqn{x > a} (\eqn{ c \geq 0}) and \eqn{a \leq x \leq a - b/c}(\eqn{c < 0}).
+
+  }
+\section{Objects from the Class}{
+  Objects can be created by calls of the form \code{new("GPareto", loc, scale,shape)}.
+  More frequently they are created via the generating function 
+  \code{GPareto}.
+}
+\section{Slots}{
+  \describe{
+    \item{\code{img}:}{Object of class \code{"Reals"}. }
+    \item{\code{param}:}{Object of class \code{"GParetoParameter"}. }
+    \item{\code{r}:}{\code{rgpd}}
+    \item{\code{d}:}{\code{dgpd}}
+    \item{\code{p}:}{\code{pgpd}, but vectorized and with special treatment of 
+             arguments \code{lower.tail} and \code{log.p}}
+    \item{\code{q}:}{\code{qgpd}, but vectorized and with special treatment of 
+             arguments \code{lower.tail} and \code{log.p}}
+    \item{\code{gaps}:}{(numeric) matrix or \code{NULL}}
+    \item{\code{.withArith}:}{logical: used internally to issue warnings as to interpretation of arithmetics}
+    \item{\code{.withSim}:}{logical: used internally to issue warnings as to accuracy}
+    \item{\code{.logExact}:}{logical: used internally to flag the case where there are explicit formulae for the
+                              log version of density, cdf, and quantile function}
+    \item{\code{.lowerExact}:}{logical: used internally to flag the case where there are explicit formulae for the
+                              lower tail version of cdf and quantile function}
+  }
+}
+\section{Extends}{
+Class \code{"AbscontDistribution"}, directly.\cr
+Class \code{"UnivariateDistribution"}, by class \code{"AbscontDistribution"}.\cr
+Class \code{"Distribution"}, by class \code{"AbscontDistribution"}.
+}
+\section{Methods}{
+  \describe{
+    \item{initialize}{\code{signature(.Object = "GPareto")}: initialize method. }
+
+    \item{shape}{\code{signature(object = "GPareto")}: wrapped access method for
+      slot \code{shape} of slot \code{param}. }
+    \item{loc}{\code{signature(object = "GPareto")}: wrapped access method for
+      slot \code{loc} of slot \code{param}. }
+    \item{location}{\code{signature(object = "GPareto")}: alias to \code{loc},
+      to support argument naming of package \pkg{VGAM}. }
+    \item{scale}{\code{signature(x = "GPareto")}: wrapped access method for
+      slot \code{scale} of slot \code{param}. }
+
+    \item{shape<-}{\code{signature(object = "GPareto")}: wrapped replace method for
+      slot \code{shape} of slot \code{param}. }
+    \item{loc<-}{\code{signature(object = "GPareto")}: wrapped replace  method for
+      slot \code{loc} of slot \code{param}. }
+    \item{location<-}{\code{signature(object = "GPareto")}: alias to \code{loc<-},
+      to support argument naming of package \pkg{VGAM}. }
+    \item{scale<-}{\code{signature(x = "GPareto")}: wrapped replace  method for
+      slot \code{scale} of slot \code{param}. }
+
+    \item{+}{\code{signature(e1 = "GPareto", e2 = "numeric")}: exact method
+      for this transformation --- stays within this class. }
+    \item{*}{\code{signature(e1 = "GPareto", e2 = "numeric")}: exact method
+      for this transformation --- stays within this class if \code{e2>0}. }
+
+    \item{E}{\code{signature(object = "GPareto", fun = "missing", cond = "missing")}:
+    exact evaluation using explicit expressions.}
+    \item{var}{\code{signature(signature(x = "GPareto")}:
+    exact evaluation using explicit expressions.}
+    \item{median}{\code{signature(signature(x = "GPareto")}: 
+    exact evaluation using explicit expressions.}
+    \item{IQR}{\code{signature(signature(x = "GPareto")}: 
+    exact evaluation using explicit expressions.}
+    \item{skewness}{\code{signature(signature(x = "GPareto")}: 
+    exact evaluation using explicit expressions.}
+    \item{kurtosis}{\code{signature(signature(x = "GPareto")}:
+    exact evaluation using explicit expressions.}
+
+
+  }
+}
+\references{Pickands, J. (1975) \emph{Statistical inference using extreme order
+     statistics. _Annals of Statistics_, *3*, 119-131.}}
+\author{Nataliya Horbenko \email{Nataliya.Horbenko at itwm.fraunhofer.de}}
+\note{This class is based on the code provided by the package \pkg{evd}
+by  A. G. Stephenson.}
+\seealso{\code{\link[evd]{dgpd}}, \code{\link[distr]{AbscontDistribution-class}}}
+\examples{
+(P1 <- new("GPareto", loc = 0, scale = 1,shape = 0))
+plot(P1)
+shape(P1)
+loc(P1)
+scale(P1) <- 4
+loc(P1) <- 2
+plot(P1)
+}
+\concept{GPareto}
+\keyword{distribution}
+\concept{extreme value distribution}
+\concept{absolutely continuous distribution}
+\concept{S4 distribution class}

Added: branches/distr-2.2/pkg/distrEx/man/GPareto.Rd
===================================================================
--- branches/distr-2.2/pkg/distrEx/man/GPareto.Rd	                        (rev 0)
+++ branches/distr-2.2/pkg/distrEx/man/GPareto.Rd	2009-05-25 18:56:56 UTC (rev 471)
@@ -0,0 +1,40 @@
+\name{GPareto}
+\alias{GPareto}
+
+\title{Generating function for GPareto-class}
+\description{
+  Generates an object of class \code{"GPareto"}.
+}
+\usage{GPareto(loc = 0, scale = 1, shape = 0, location = loc)}
+\arguments{
+  \item{loc}{ real number: location parameter of 
+    the GPareto distribution. }
+   \item{scale}{ positive real number: scale parameter
+    of the GPareto distribution }
+   \item{shape}{ non-negative real number: shape parameter of 
+    the GPareto distribution. }
+  \item{location}{ alternative argument name for argument 'loc' --- to 
+    support argument names of package \pkg{VGAM}. }
+ 
+}
+%\details{}
+\value{Object of class \code{"GPareto"}}
+%\references{}
+\author{Nataliya Horbenko \email{Nataliya.Horbenko at itwm.fraunhofer.de}}
+\note{The class \code{"GPareto"} is based on the code provided 
+  by the package \pkg{evd} by  Alec Stephenson.}
+\seealso{\code{\link{GPareto-class}}, \code{\link[evd]{dgpd}}}
+\examples{
+(P1 <- GPareto(loc = 0, scale = 1, shape = 0))
+plot(P1)
+
+E(GPareto()) 
+E(P1, function(x){x^2})
+
+}
+
+\concept{GPareto}
+\keyword{distribution}
+\concept{absolutely continuous distribution}
+\concept{GPareto distribution}
+\concept{generating function}

Added: branches/distr-2.2/pkg/distrEx/man/GParetoParameter-class.Rd
===================================================================
--- branches/distr-2.2/pkg/distrEx/man/GParetoParameter-class.Rd	                        (rev 0)
+++ branches/distr-2.2/pkg/distrEx/man/GParetoParameter-class.Rd	2009-05-25 18:56:56 UTC (rev 471)
@@ -0,0 +1,67 @@
+\name{GParetoParameter-class}
+\docType{class}
+\alias{GParetoParameter-class}
+\alias{loc,GParetoParameter-method}
+\alias{loc<-,GParetoParameter-method}
+\alias{location,GParetoParameter-method}
+\alias{location<-,GParetoParameter-method}
+\alias{scale,GParetoParameter-method}
+\alias{scale<-,GParetoParameter-method}
+\alias{shape,GParetoParameter-method}
+\alias{shape<-,GParetoParameter-method}
+
+
+\title{Parameter of generalized Pareto distributions}
+\description{The class of the parameter of generalized Pareto distribution.}
+\section{Objects from the Class}{
+Objects can be created by calls of the form \code{new("GParetoParameter", ...)}.
+}
+\section{Slots}{
+  \describe{
+    \item{\code{loc}:}{ real number: location parameter of 
+      a generalized Pareto distribution. }
+    \item{\code{scale}:}{ real number: scale parameter of 
+      a generalized Pareto distribution. }
+    \item{\code{shape}:}{ real number: shape parameter of 
+      a generalized Pareto distribution. }
+    \item{\code{name}:}{ default name is 
+      \dQuote{parameter of a GPareto distribution}. }
+  }
+}
+\section{Extends}{
+Class \code{"Parameter"}, directly.\cr
+Class \code{"OptionalParameter"}, by class \code{"Parameter"}.
+}
+\section{Methods}{
+  \describe{
+    \item{loc}{\code{signature(object = "GParetoParameter")}: access method for
+      slot \code{loc}. }
+    \item{location}{\code{signature(object = "GParetoParameter")}: alias to \code{loc},
+      to support argument naming of package \pkg{VGAM}. }
+    \item{scale}{\code{signature(object = "GParetoParameter")}: access method for
+      slot \code{scale}. }
+    \item{shape}{\code{signature(object = "GParetoParameter")}: access method for
+      slot \code{shape}. }
+    \item{loc<-}{\code{signature(object = "GParetoParameter")}: replace method for
+      slot \code{loc}. }
[TRUNCATED]

To get the complete diff run:
    svnlook diff /svnroot/distr -r 471


More information about the Distr-commits mailing list