The R Project SVN R

Rev

Rev 87079 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87079 Rev 88200
Line 144... Line 144...
144 
d2[1:2,] ## used to fail badly; now okay
 144 
d2[1:2,] ## used to fail badly; now okay
145 
stopifnot(identical(d2[-1,], d2[2:3,]))
 145 
stopifnot(identical(d2[-1,], d2[2:3,]))
146 
## failed in R <= 2.1.x
 146 
## failed in R <= 2.1.x
147 
 
 147 
 
148 
 
 148 
 
149 
## Fritz' S4 "odditiy"
 149 
## Fritz' S4 "oddity"
150 
setClass("X", representation(bar="numeric"))
 150 
setClass("X", representation(bar="numeric"))
151 
setClass("Y", contains="X")
 151 
setClass("Y", contains="X")
152 
## Now we define a generic foo() and two different methods for "X" and
 152 
## Now we define a generic foo() and two different methods for "X" and
153 
## "Y" objects for arg missing:
 153 
## "Y" objects for arg missing:
154 
setGeneric("foo", function(object, arg) standardGeneric("foo"))
 154 
setGeneric("foo", function(object, arg) standardGeneric("foo"))