[R] a loop....

[Alfredo Alessandrini]

I'm trying to make a loopo with some file....

>
> library(dplR)
> files.rwl <- system("ls *.rwl", intern=TRUE) > files.rwl
[1] "cimfasy.rwl" "rocquce.rwl"
> for (i in files.rwl) assign(gsub("\\.rwl$", "_rwl", i), read.rwl(i, header=0))
There are 70 series
There are 21 series
>
> cimfasy_rwl

1990     1.55     0.00     1.59     1.94     0.99     2.14
1991     0.92     0.72     0.50     1.29     0.54     1.22
1992     2.15     1.28     1.23     2.26     1.22     3.17
1993     1.50     0.87     1.68     1.97     0.83     2.55
1994     0.69     0.00     0.76     1.89     0.60     0.87
1995     1.13     1.04     1.19     1.52     1.13     1.78
1996     1.15     0.92     1.50     0.97     0.60       NA
1997       NA       NA       NA       NA       NA       NA
1998       NA       NA       NA       NA       NA       NA
1999       NA       NA       NA       NA       NA       NA
2000       NA       NA       NA       NA       NA       NA
>

OK.... the loop work...

Now I want to replace the NA with 0 in the data.frame (cimfasy_rwl,
rocquce_rwl, ecc...)


> files_rwl <- ls(pattern="_rwl$")
> files_rwl
[1] "cimfasy_rwl" "rocquce_rwl"
> for (i in files_rwl) assign(gsub("\\_rwl$", "", i), i[is.na(i) ] <- 0)
> ls()
[1] "cimfasy"     "cimfasy_rwl" "files_rwl"   "files.rwl"   "i"
[6] "rocquce"     "rocquce_rwl"

But the loop don't work:

> cimfasy
[1] 0

Why??


Alfredo