R help - Feb 2005 - dumping the summary of lm to a text file

Hello list,

I have a linear regression

 ctl    <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
 trt    <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
 group  <- gl(2,10,20, labels=c("Ctl","Trt"))
 weight <- c(ctl, trt)
 reg    <- lm(weight ~ group)

 sreg   <- summary(reg)

and I would like to dump exactly what I see on the console with
print(sreg) to a text file.  I've tried using cat but it did not work.
I've read the list questions but I did not see a solution.

Can you help with this?

Thank you,
Adrian Dragulescu

NEW QUESTION:  Is it possible to get the commands echoed in a sink file? 

ANSWER TO ADRIAN: 

      Have you considered "sink"?  This captures print results but not
the commands that generated the print.  For example, consider the 
following: 

 > sink("tst.txt")
 > a <- 1
 > a
 > sink()

      The resulting file "tst.txt" contains only the one line obtained
from "a", which is the same as "print(a)": 

[1] 1

      Similarly, it looks to me like the following 3 commands will 
produce what you want: 

sink("tst.txt")
sreg
sink()

      hope this helps.
      spencer graves

Adrian Dragulescu wrote:
>Hello list,
>
>I have a linear regression
>
> ctl    <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
> trt    <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
> group  <- gl(2,10,20, labels=c("Ctl","Trt"))
> weight <- c(ctl, trt)
> reg    <- lm(weight ~ group)
>
> sreg   <- summary(reg)
>
>and I would like to dump exactly what I see on the console with
>print(sreg) to a text file.  I've tried using cat but it did not work.
>I've read the list questions but I did not see a solution.
>
>Can you help with this?
>
>Thank you,
>Adrian Dragulescu
>
>______________________________________________
>R-help at stat.math.ethz.ch mailing list
>https://stat.ethz.ch/mailman/listinfo/r-help
>PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html
>  
>

On Thu, 17 Feb 2005, Adrian Dragulescu wrote:
> I have a linear regression
>
>  ctl    <- c(4.17,5.58,5.18,6.11,4.50,4.61,5.17,4.53,5.33,5.14)
>  trt    <- c(4.81,4.17,4.41,3.59,5.87,3.83,6.03,4.89,4.32,4.69)
>  group  <- gl(2,10,20, labels=c("Ctl","Trt"))
>  weight <- c(ctl, trt)
>  reg    <- lm(weight ~ group)
>
>  sreg   <- summary(reg)
>
> and I would like to dump exactly what I see on the console with
> print(sreg) to a text file.  I've tried using cat but it did not work.
> I've read the list questions but I did not see a solution.
outfile <- file("regsumm.out", "w")
capture.output(summary(reg), file=outfile)
close(outfile)

----------------------------------------------------------
SIGSIG -- signature too long (core dumped)