R help - Mar 2001 - Display grouping parameter in coplot

I try to display the grouping variable in coplot.
It work, but it's special solution and rather ugly.
Any better idea?

# Simulate my data frame
data(state)
x77<-data.frame(state.x77)
x77$region<-state.region

coplot(Life.Exp ~ Income | region,
     data=x77, show.given=F,     subscripts=T,
     panel = function(x, y,subscripts, ...)
     {
       panel.smooth(x, y, span = 1., ...)
       # Shuddrr....
       # There must be way to access the grouping parameter
       leg<-as.character(x77$region[subscripts][1])
       legend(3000,74,leg,bty="n")
     }
     )


---------------------------------------
Dr. Dieter Menne
Biomed Software
72074 T?bingen
Tel (49) (7071) 52176
FAX (49) (7071) 55 10 46
dieter.menne at menne-biomed.de
www.menne-biomed.de

-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._

Dear all,
if I type from the R command line the following:

ped <- read.table("R.ped", header=TRUE,
sep=";",na.strings="x")
p <- glm(formula=Dust.mites ~
Graminacee+IgE.num+geneA,ped,family=binomial(logit))
sink (file="r.output")
summary(p)
sink()

everything works fine and 'r.output' is generated.
BUT , if I write (with an editor) the same lines into a command-file (i.e.
r.bat)  and from the R command line I type: source("r.bat")
the r.output is generated but it is empty.
What should I do to write a command-file that is able to re-direct the R
output to a file?
Many thanks,
Giovanni Malerba



-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at
stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._