R help - Jan 2011 - Writing out data from a list

Hello,

I have a list of data, such that:

[[1]]
 [1] 0.00 0.00 0.03 0.01 0.00 0.00 0.00 0.00 0.01 0.01 0.00 0.00 0.01 0.00
0.00 0.03 0.01 0.00 0.01 0.00 0.03 0.16 0.14 0.02 0.17 0.01 0.01 0.00 0.00
0.03 0.00 0.00 0.00 0.00 0.00 0.01 0.00 0.00 0.00 0.00 0.00
[42] 0.00 0.00 0.00 0.00 0.01 0.00 0.00 0.00 0.00 0.00 0.04 0.08 0.00 0.00
0.00 0.00 0.00 0.00 0.00 0.00 0.01 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
0.00 0.00 0.00 0.00 0.00

[[2]]
 [1] 0.00 0.00 0.00 0.00 0.01 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
0.00 0.07 0.00 0.00 0.03 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00
0.00 0.00 0.00

[[3]]
 [1] 0.00 0.00 0.00 0.00 0.00 0.00 0.01 0.00 0.00 0.01 0.00 0.00 0.00 0.00
0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00

etc.

I would like to write to a text file with this data, but would like each
section of the file to be separated by some text. For example:

"Event 1"
"Random Text"
0
0
0.03
0.01
....
"Event 2"
"Random Text"
0
0
0
0
0.01
....
etc.

Is there some way to continually write text out using a loop and also
attaching a string before each data segment? Thank you in advance!
-Aaron

	[[alternative HTML version deleted]]

a<- list(a=c(0.00,0.00),b=c(2,2,2),c=c(3,3,3))
t<-NULL
m<-1
for( i in a) {t<-c(t,paste("Event",m),i);m<-m+1}