[Distr-commits] r173 - in branches/distr-2.0/pkg/distr: R man

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

Author: stamats
Date: 2008-06-06 11:36:22 +0200 (Fri, 06 Jun 2008)
New Revision: 173

Modified:
   branches/distr-2.0/pkg/distr/R/ContDistribution.R
   branches/distr-2.0/pkg/distr/man/gap-methods.Rd
Log:
Corrected documentation error - detected by setting environment variable _R_CHECK_CODOC_S4_METHODS_=true.
Now distr checks and installs without any warning or error under 2.7.0 (r45868) and 2.8.0 (r45868) also using environment variable _R_CHECK_CODOC_S4_METHODS_=true.

Modified: branches/distr-2.0/pkg/distr/R/ContDistribution.R
===================================================================
--- branches/distr-2.0/pkg/distr/R/ContDistribution.R	2008-06-05 15:56:36 UTC (rev 172)
+++ branches/distr-2.0/pkg/distr/R/ContDistribution.R	2008-06-06 09:36:22 UTC (rev 173)
@@ -165,8 +165,8 @@
                    object at gaps <- value; object})
                                                              
 
-  setMethod("setgaps", signature(object = "AbscontDistribution"), 
-            function(object, exactq = 6, ngrid = 50000, ...){
+setMethod("setgaps", signature(object = "AbscontDistribution"), 
+function(object, exactq = 6, ngrid = 50000, ...){
        object1 <- object
        lower <- getLow(object, eps = getdistrOption("TruncQuantile")*2)
        upper <- getUp(object, eps = getdistrOption("TruncQuantile")*2)
@@ -196,8 +196,7 @@
           } else mattab.d <- NULL
           eval(substitute( "slot<-"(object,'gaps', value = mattab.d)))
        return(invisible())
-  }
-  )
+})
  
 ## Arithmetics
 

Modified: branches/distr-2.0/pkg/distr/man/gap-methods.Rd
===================================================================
--- branches/distr-2.0/pkg/distr/man/gap-methods.Rd	2008-06-05 15:56:36 UTC (rev 172)
+++ branches/distr-2.0/pkg/distr/man/gap-methods.Rd	2008-06-06 09:36:22 UTC (rev 173)
@@ -19,7 +19,7 @@
 \S4method{gaps}{AbscontDistribution}(object)
 %\S4method{gaps<-}{AbscontDistribution}(object, value)
 \S4method{setgaps}{AbscontDistribution}(object, exactq = 6, 
-           ngrid = 50000)
+           ngrid = 50000, ...)
 }
 \arguments{
   \item{object}{object of class  \code{"AbscontDistribution"} (or subclasses)}