The R Project SVN R

Rev

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

Rev 85836 Rev 87138
Line 5... Line 5...
5 
### mode checking, etc.
 5 
### mode checking, etc.
6 
is.recursive(expression(1+3, 2/sqrt(pi)))# fix PR#9
 6 
is.recursive(expression(1+3, 2/sqrt(pi)))# fix PR#9
7 
 
 7 
 
8 
## sum():
 8 
## sum():
9 
all(1:12 == cumsum(rep(1,12)))
 9 
all(1:12 == cumsum(rep(1,12)))
- 
 
 10 
set.seed(1998-09-11)
10 
x <- rnorm(127); sx <- sum(x);	abs((sum(rev(x)) -sx)) < 1e-12 * abs(sx)
 11 
x <- rnorm(127); sx <- sum(x);	abs((sum(rev(x)) -sx)) < 1e-12 * abs(sx)
11 
 
 12 
 
12 
## seq():
 13 
## seq():
13 
typeof(1:4) == "integer" #-- fails for 0.2, 0.3,.., 0.9
 14 
typeof(1:4) == "integer" #-- fails for 0.2, 0.3,.., 0.9
14 
 
 15