The R Project SVN R

Rev

Rev 30912 | Rev 39342 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 30912 Rev 39016
Line 201... Line 201...
201 
 
 201 
 
202 
\dontshow{
 202 
\dontshow{
203 
 
 203 
 
204 
stopifnot(identical(summary(), "<No Object>"))
 204 
stopifnot(identical(summary(), "<No Object>"))
205 
 
 205 
 
- 
 
 206 
removeMethods("summary")
- 
 
 207 
 
206 
## for the primitives
 208 
## for the primitives
207 
## inherited methods
 209 
## inherited methods
208 
 
 210 
 
209 
length(tc1)
 211 
length(tc1)
210 
tc1[-1]
 212 
tc1[-1]
Line 290... Line 292...
290 
 
 292 
 
291 
## repeat the test one more time on the primitives
 293 
## repeat the test one more time on the primitives
292 
 
 294 
 
293 
length(ISOdate(1990, 12, 1)- ISOdate(1980, 12, 1))
 295 
length(ISOdate(1990, 12, 1)- ISOdate(1980, 12, 1))
294 
 
 296 
 
- 
 
 297 
removeMethods("length")
- 
 
 298 
 
295 
## methods for %*%, which isn't done by the same C code as other ops
 299 
## methods for %*%, which isn't done by the same C code as other ops
296 
 
 300 
 
297 
setClass("foo", representation(m="matrix"))
 301 
setClass("foo", representation(m="matrix"))
298 
m1 <- matrix(1:12,3,4)
 302 
m1 <- matrix(1:12,3,4)
299 
f1 = new("foo", m=m1)
 303 
f1 = new("foo", m=m1)