Re: [R] automated data processing

From: Neuro LeSuperHéros <>
Date: Wed 14 Jun 2006 - 07:34:24 EST

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)) }


>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:
> mailing list
>PLEASE do read the posting guide!
> mailing list PLEASE do read the posting guide! Received on Wed Jun 14 07:38:30 2006

Archive maintained by Robert King, hosted by the discipline of statistics at the University of Newcastle, Australia.
Archive generated by hypermail 2.1.8, at Wed 14 Jun 2006 - 08:12:10 EST.

Mailing list information is available at Please read the posting guide before posting to the list.