The R Project SVN R

Rev

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

Rev 35226 Rev 35253
Line 4... Line 4...
4 
outer(a <- -4:12,     -2:7, "^")
 4 
outer(a <- -4:12,     -2:7, "^")
5 
 
 5 
 
6 
for (n1 in 1:7)
 6 
for (n1 in 1:7)
7 
    print(zapsmall(polyroot(1:n1), digits = 10))
 7 
    print(zapsmall(polyroot(1:n1), digits = 10))
8 
 
 8 
 
9 
## fft():
 - 
 
10 
for(n in 1:30) cat("\nn=",n,":", round(fft(1:n), 8),"\n")
 - 
 
11 
 
 - 
 
12 
## lowess() {incl. sort, etc}:
 9 
## lowess() {incl. sort, etc}:
13 
options(digits = 5)
 10 
options(digits = 5)
14 
 
 11 
 
15 
lowess(c(3,2,6,3,8,4))$y # this used to differ on Linux
 12 
lowess(c(3,2,6,3,8,4))$y # this used to differ on Linux
16 
 
 13