[Distr-commits] r157 - in pkg/distrSim: R man

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Tue May 20 14:18:36 CEST 2008


Author: stamats
Date: 2008-05-20 14:18:36 +0200 (Tue, 20 May 2008)
New Revision: 157

Modified:
   pkg/distrSim/R/subsetting-methods.R
   pkg/distrSim/man/subsetting-methods.Rd
Log:
small changes, but still warnings ...

Modified: pkg/distrSim/R/subsetting-methods.R
===================================================================
--- pkg/distrSim/R/subsetting-methods.R	2008-05-20 11:49:45 UTC (rev 156)
+++ pkg/distrSim/R/subsetting-methods.R	2008-05-20 12:18:36 UTC (rev 157)
@@ -1,4 +1,5 @@
-setMethod("[", "SeqDataFrames", function(x, i, j, k, drop = FALSE){
+setMethod("[", signature(x = "SeqDataFrames"), 
+      function(x, i, j, k, ..., drop = FALSE){
           if(missing(k)) k <- 1:length(x at data)
           kl <- length(k)
           if (kl == 1){
@@ -7,7 +8,7 @@
                    return(daf)
               else return(new("SeqDataFrames", data = list(daf)))
           }else {
-              kn <- 1: length(x at data)
+              kn <- 1:length(x at data)
               if(!is.null(names(x at data)))
                  names(kn) <- names(x at data)
               kl0 <- kn[k]
@@ -20,7 +21,8 @@
               return(new("SeqDataFrames", data = lis))
           }})
 
-setReplaceMethod("[", "SeqDataFrames", function(x, i, j, k, value){
+setReplaceMethod("[", signature(x = "SeqDataFrames"), 
+      function(x, i, j, k, ..., value){
           if(missing(k)) k <- 1:length(x at data)
           if(length(k)==1){
              if((k<=length(x at data))||!is(try(x at data[[k]],silent=TRUE),"try-error"))

Modified: pkg/distrSim/man/subsetting-methods.Rd
===================================================================
--- pkg/distrSim/man/subsetting-methods.Rd	2008-05-20 11:49:45 UTC (rev 156)
+++ pkg/distrSim/man/subsetting-methods.Rd	2008-05-20 12:18:36 UTC (rev 157)
@@ -9,10 +9,10 @@
      or replace parts.}
 \usage{
 ## "["(x,i,j,k, drop = FALSE) # is: x[i,j,k, drop = FALSE]
-\S4method{[}{SeqDataFrames}(x, i, j, k, drop = FALSE)
+\S4method{"["}{SeqDataFrames}(x, i, j, k, ..., drop = FALSE)
 
 ## "[<-"(x,i,j,k, value)      # is: x[i,j,k] <- value
-\S4method{[<-}{SeqDataFrames}(x, i, j, k, value)
+\S4method{[<-}{SeqDataFrames}(x, i, j, k, ..., value)
 }
 \arguments{
   \item{x}{ object of class \code{SeqDataFrames} from which to extract element(s) or in which to
@@ -21,13 +21,13 @@
   \item{j}{ observation dimension index; may be missing}
   \item{k}{ run index; may be missing}
   \item{drop}{ as in the general indexing functions}
-  \item{value}{ modication to be assigned to}
+  \item{value}{ modification to be assigned to}
 }
 \section{Methods}{
   \describe{
-    \item{"["}{\code{signature(x = "SeqDataFrames")}:
+    \item{"["}{\code{signature(x = "SeqDataFrames", i = "ANY", j = "ANY", drop = "ANY")}:
       access method for indices for objects of class \code{SeqDataFrames}}
-    \item{"[<-"}{\code{signature(x = "SeqDataFrames")}:
+    \item{"[<-"}{\code{signature(x = "SeqDataFrames", i = "ANY", j = "ANY", drop = "ANY"))}:
       replacement method for indices for objects of class \code{SeqDataFrames}}
   }
 }



More information about the Distr-commits mailing list