[R] Assignments in loops

Murray Jorgensen maj at stats.waikato.ac.nz
Tue Dec 30 03:11:11 CET 2003


Thanks to Andy, Peter and Roger for drawing my attention to assign(), which
is just what I needed and works fine.

Murray

At 14:11 30/12/2003 +1300, Murray Jorgensen wrote:
>Greetings all. Any help with the following would be appreciated.
>
>I want to create a data frame for each file in a directory. The following
>code does not work but it may show what I am trying to do:
>
>carmakes <- c('BMW','Chrysler','Citroen','Fiat','Ford','Holden','Honda',
>'Mercedes','MG','Mitsubishi','Nissan','Peugeot','Renault','Subaru','Toyota',
>'VW')
>for (brand in carmakes) {
>   fyle <- paste("c:/data/cars03/",brand,".txt",sep="")
>   brand <- read.table(fyle, header = TRUE, sep = "\t",na.strings = 
>            c("-","POA"), colClasses=c("character",rep("numeric",7)),
>             comment.char = "#")
>}
>
>I need something like an unquote() function that will allow the "brand" on
>the LHS of the assignment to be treated as an object name instead of a
>character string.
>
>Murray
>
>
>
>
>
>
>Dr Murray Jorgensen      http://www.stats.waikato.ac.nz/Staff/maj.html
>Department of Statistics, University of Waikato, Hamilton, New Zealand
>Email: maj at waikato.ac.nz                                Fax 7 838 4155
>Phone  +64 7 838 4773 wk    +64 7 849 6486 home    Mobile 021 1395 862
>
>______________________________________________
>R-help at stat.math.ethz.ch mailing list
>https://www.stat.math.ethz.ch/mailman/listinfo/r-help
> 
Dr Murray Jorgensen      http://www.stats.waikato.ac.nz/Staff/maj.html
Department of Statistics, University of Waikato, Hamilton, New Zealand
Email: maj at waikato.ac.nz                                Fax 7 838 4155
Phone  +64 7 838 4773 wk    +64 7 849 6486 home    Mobile 021 1395 862




More information about the R-help mailing list