This is fairly straight forward, you can do something like:

myfiles <- scan('files.txt', what="")
base <- sub("\\.[^.]*$", "", myfiles)

lapply( seq_along(myfiles), function(i) {
    mydat <- read.table( myfiles[i] )
    sink( sprintf('%sSummary.txt', base[i]) )
    summary(mydat)
    sink()
    bmp( sprintf("%sPlot.bmp", base[i]) )
    with(mydat, plot(x,y))
    dev.off()
} )

Of course modifying things to include what you want to use.  If you want
the summary information and plots together in a single output file (pdf
file, word document, html, etc.) then you should look at the knitr package
as a way to set up a template and possibly the pandoc program as a way to
convert the results to another format, then do the processing in a loop
like above.




On Tue, Jan 15, 2013 at 5:30 AM, Simonas Kecorius <simolas2008@gmail.com>wrote:

> Dear R users,
>
> First of all I would like to thank all of you who replayed to my previous
> questions and problems. Thank you a lot for being great and helpful
> community. I highly appreciate your suggestions and ideas even if I do not
> respond after my question! But it means that your help was exactly what I
> needed. Thank you again!
>
> Now the following question I need help:
>
> Suppose I do have a file.txt in the working directory. This file contains
> the names of other files in the same directory:
>
> First.txt
> Second.txt
> Third.txt
> etc...
>
> Files First.txt, Second.txt...are data files.
>
> What I need R to do, is to read this file.txt line by line, open files
> which names are listed ( First.txt, Second.txt...) and process it: lets say
> make a FirstPlot.bmp, FirstSummary.txt  and save it to working directory,
> then automatically open Second.txt, do the same, Third.txt etc. until the
> end of the names in file.txt.
>
> This would help me with the following task: I do measurements each day, and
> I need to process my data: draw some plots, make some analysis.  When I
> have 30 days of measurements each 1 second, there are huge amount of
> numbers I am dealing with. If you could suggest some automation via R, it
> would be perfect.
>
> Thank you in advance.
>
> Cheers.
>
> --
> Simonas Kecorius
> **Lithuania
>
>         [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>



-- 
Gregory (Greg) L. Snow Ph.D.
538280@gmail.com

	[[alternative HTML version deleted]]

