The R Project SVN R

Rev

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

Rev 63062 Rev 63205
Line 10... Line 10...
10 
envLst <- c(t(outer(c("R_ENVIRON","R_PROFILE"), c("","_USER"), paste0)),
 10 
envLst <- c(t(outer(c("R_ENVIRON","R_PROFILE"), c("","_USER"), paste0)),
11 
	    "R_CHECK_ENVIRON","R_LIBS")
 11 
	    "R_CHECK_ENVIRON","R_LIBS")
12 
cbind(Sys.getenv(envLst))
 12 
cbind(Sys.getenv(envLst))
13 
.libPaths()
 13 
.libPaths()
14 
 
 14 
 
15 
assertCondition <- tools::assertCondition
 15 
assertError <- tools::assertError
16 
 
 16 
 
17 
## regression test for PR#376
 17 
## regression test for PR#376
18 
aggregate(ts(1:20), nfreq=1/3)
 18 
aggregate(ts(1:20), nfreq=1/3)
19 
## Comments: moved from aggregate.Rd
 19 
## Comments: moved from aggregate.Rd
20 
 
 20 
 
Line 497... Line 497...
497 
    !is.nan(NA)	 &&  !is.infinite(NA)  && !is.finite(NA),
 497 
    !is.nan(NA)	 &&  !is.infinite(NA)  && !is.finite(NA),
498 
     is.nan(NaN) &&  !is.infinite(NaN) && !is.finite(NaN),
 498 
     is.nan(NaN) &&  !is.infinite(NaN) && !is.finite(NaN),
499 
    !is.nan(c(1,NA)),
 499 
    !is.nan(c(1,NA)),
500 
    c(FALSE,TRUE,FALSE) == is.nan(c   (1,NaN,NA))
 500 
    c(FALSE,TRUE,FALSE) == is.nan(c   (1,NaN,NA))
501 
)
 501 
)
502 
assertCondition(is.nan(list(1,NaN,NA)),
 - 
 
503 
		"error") #-> result allowed but varies in older versions
 502 
assertError(is.nan(list(1,NaN,NA))) #-> result allowed but varies in older versions
504 
 
 503 
 
505 
 
 504 
 
506 
stopifnot(identical(lgamma(Inf), Inf))
 505 
stopifnot(identical(lgamma(Inf), Inf))
507 
stopifnot(identical(Inf + Inf, Inf))
 506 
stopifnot(identical(Inf + Inf, Inf))
508 
stopifnot(identical(Inf - Inf, NaN))
 507 
stopifnot(identical(Inf - Inf, NaN))