[R] automated data processing

Neuro LeSuperHéros neuro3000 at hotmail.com
Tue Jun 13 23:34:24 CEST 2006

Put all you .dat files in one directory ('c:/data' for example) and do this:

finaltable <-NULL

folder <-dir('c:/data')

for (i in folder){
table1 <-read.table(i)
mean1 <-mean(table1$V1)
var1 <-var(table1$V1)
rowname <-paste(i)
finaltable <-rbind(finaltable,c(rowname,mean1,var1))


>From: mw-u2 at gmx.de
>To: r-help at stat.math.ethz.ch
>Subject: [R] automated data processing
>Date: Tue, 13 Jun 2006 21:34:40 +0200
>I have many files (0.4.dat, 0.5.dat, ...) of which I would like to 
>calculate mean value and variance and save the output in a new file where 
>each line shouldlook like: "0.4 mean(0.4.dat) var(0.4.dat)" and so on. 
>Right now I got a a simple script that makes me unhappy:
>1. I run it by "R --no-save < script.r > out.dat" unfortunately out.dat has 
>all the original commands in it and a "[1]" infront of every output
>2. I would love to have a variable running through 0.4, 0.5, ... naming the
>datafile to process and the first column in the output.
>My script looks like:
>data <- read.table("0.4.dat"); E <- data$V1[1000:length(data$V1)];
>c(0.4, mean(E), var(E));
>data <- read.table("0.5.dat"); E <- data$V1[1000:length(data$V1)];
>c(0.5, mean(E), var(E));
>And that would be its output:
>#[1]     0.400 -1134.402  5700.966
>#> data <- read.table("0.5.dat"); E <- data$V1[1000:length(data$V1)];
>#> c(0.5, mean(E), var(E));
>#[1]     0.500 -1787.232  2973.692
>Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen!
>Ideal für Modem und ISDN: http://www.gmx.net/de/go/smartsurfer
>R-help at stat.math.ethz.ch mailing list
>PLEASE do read the posting guide! 

More information about the R-help mailing list