The R Project SVN R

Rev

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

Rev 26196 Rev 27960
Line 1... Line 1...
1 
 
 1 
 
2 
R : Copyright 2003, The R Development Core Team
 2 
R : Copyright 2003, The R Foundation for Statistical Computing
3 
Version 1.8.0 alpha (2003-09-12)
 3 
Version 1.9.0 Under development (unstable) (2003-12-03), ISBN 3-900051-00-3
4 
 
 4 
 
5 
R is free software and comes with ABSOLUTELY NO WARRANTY.
 5 
R is free software and comes with ABSOLUTELY NO WARRANTY.
6 
You are welcome to redistribute it under certain conditions.
 6 
You are welcome to redistribute it under certain conditions.
7 
Type 'license()' or 'licence()' for distribution details.
 7 
Type 'license()' or 'licence()' for distribution details.
8 
 
 8 
 
9 
R is a collaborative project with many contributors.
 9 
R is a collaborative project with many contributors.
10 
Type 'contributors()' for more information.
 10 
Type 'contributors()' for more information and
- 
 
 11 
'citation()' on how to cite R in publications.
11 
 
 12 
 
12 
Type 'demo()' for some demos, 'help()' for on-line help, or
 13 
Type 'demo()' for some demos, 'help()' for on-line help, or
13 
'help.start()' for a HTML browser interface to help.
 14 
'help.start()' for a HTML browser interface to help.
14 
Type 'q()' to quit R.
 15 
Type 'q()' to quit R.
15 
 
 16 
 
Line 198... Line 199...
198 
> all(is.nan(gamma(0:-4))) # + warn.
 199 
> all(is.nan(gamma(0:-4))) # + warn.
199 
[1] TRUE
 200 
[1] TRUE
200 
Warning message:
201 
Warning message:
201 
NaNs produced in: gamma(x)
202 
NaNs produced in: gamma(x)
202 
>
203 
>
- 
 
 204 
> ## choose() {and lchoose}:
- 
 
 205 
> n51 <- c(196793068630200, 229591913401900, 247959266474052)
- 
 
 206 
> abs(c(n51, rev(n51))- choose(51, 23:28)) <= 2
- 
 
 207 
[1] TRUE TRUE TRUE TRUE TRUE TRUE
- 
 
 208 
> all(choose(0:4,2) == c(0,0,1,3,6))
- 
 
 209 
[1] TRUE
- 
 
 210 
> ## 3 to 8 units off and two NaN's in 1.8.1
203 
>
211 
>
204 
> ## fft():
 212 
> ## fft():
205 
> ok <- TRUE
 213 
> ok <- TRUE
206 
> ##test EXTENSIVELY:	for(N in 1:100) {
 214 
> ##test EXTENSIVELY:	for(N in 1:100) {
207 
>     cat(".")
 215 
>     cat(".")
Line 296... Line 304...
296 
> is.na(mean(c(1,NA,NA)[-1], trim = .1, na.rm = TRUE))
 304 
> is.na(mean(c(1,NA,NA)[-1], trim = .1, na.rm = TRUE))
297 
[1] TRUE
 305 
[1] TRUE
298 
>
306 
>
299 
> ## Last Line:
 307 
> ## Last Line:
300 
> cat('Time elapsed: ', proc.time() - .proctime00,'\n')
 308 
> cat('Time elapsed: ', proc.time() - .proctime00,'\n')
301 
Time elapsed:  2.52 0.01 2.66 0 0
309 
Time elapsed:  2.75 0.05 2.84 0 0
302 
>
310 
>