The R Project SVN R

Rev

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

Rev 85836 Rev 87139
Line 1... Line 1...
1 
 
 1 
 
2 
R Under development (unstable) (2024-01-26 r85832) -- "Unsuffered Consequences"
 2 
R Under development (unstable) (2024-09-12 r87138) -- "Unsuffered Consequences"
3 
Copyright (C) 2024 The R Foundation for Statistical Computing
 3 
Copyright (C) 2024 The R Foundation for Statistical Computing
4 
Platform: aarch64-apple-darwin23.3.0
 4 
Platform: aarch64-apple-darwin23.3.0
5 
 
 5 
 
6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 6 
R is free software and comes with ABSOLUTELY NO WARRANTY.
7 
You are welcome to redistribute it under certain conditions.
 7 
You are welcome to redistribute it under certain conditions.
Line 24... Line 24...
24 
[1] TRUE
 24 
[1] TRUE
25 
>
25 
>
26 
> ## sum():
 26 
> ## sum():
27 
> all(1:12 == cumsum(rep(1,12)))
 27 
> all(1:12 == cumsum(rep(1,12)))
28 
[1] TRUE
 28 
[1] TRUE
- 
 
 29 
> set.seed(1998-09-11)
29 
> x <- rnorm(127); sx <- sum(x);	abs((sum(rev(x)) -sx)) < 1e-12 * abs(sx)
 30 
> x <- rnorm(127); sx <- sum(x);	abs((sum(rev(x)) -sx)) < 1e-12 * abs(sx)
30 
[1] TRUE
 31 
[1] TRUE
31 
>
32 
>
32 
> ## seq():
 33 
> ## seq():
33 
> typeof(1:4) == "integer" #-- fails for 0.2, 0.3,.., 0.9
 34 
> typeof(1:4) == "integer" #-- fails for 0.2, 0.3,.., 0.9