R help - Sep 2003 - Graph window is not available any more

Hi all,

I have currently been using the book Modern Applied Statistics with S from
Venables and Ripley. At chapter 6 on Linear Statistical models I wanted to
produce the plot as shown by "Figure 6.1" using Whiteside's data.
xyplot
command seems not to work on my version of "R"(version 1.7.0) running
on
different environments (Win XP, Win 98 and Win 2000). I then used the
scripts for "R" provided with the package MASS pasting the following
lines
into the R console:

library(MASS)
library(lattice)
options(echo = T,width=65, digits=5, height=9999)
trellis.device(postscript, file="ch06.ps", width=8, height=6,
pointsize=9)
options(contrasts = c("contr.helmert", "contr.poly"))
xyplot(Gas ~ Temp | Insul, whiteside, panel   function(x, y, ...) {
    panel.xyplot(x, y, ...)
    panel.lmline(x, y, ...)
  }, xlab = "Average external temperature (deg. C)",
  ylab = "Gas consumption  (1000 cubic feet)", aspect =
"xy",
  strip = function(...) strip.default(..., style = 1))

After this no graph shows up, no error message is displayed and other siple
commands like hist(x) or plot(y,x) do not produce any graphs. The Graph
window seems to be disabled until I close the session without saving the
workspace image.

Thank you very much for any reply or comments.

Jean-Marie Jungblut.

+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-
Jean-Marie Jungblut
Wissenschaftlicher Mitarbeiter
Mannheimer Zentrum f?r Europ?ische Sozialforschung
Abt. A & Forschungsarchiv EURODATA

Universit?t Mannheim, MZES
D-68131 Mannheim

Fon: +49/(0)621 181 2830
Fax: +49/(0)621 181 2834
jean-marie at jungblut@mzes.uni-mannheim.de

Obviously, when you call the function "trellis.device(postscript,
......)"
you have set current output device to postscript, look at the file *.ps !
Try the same call with "windows" at the place of
"postscript"!
Best!

A.S.

----------------------------

Alessandro Semeria 
Models and Simulations Laboratory
Montecatini Environmental Research Center (Edison Group), 
Via Ciro Menotti 48,
48023 Marina di Ravenna (RA), Italy
Tel. +39 544 536811
Fax. +39 544 538663
E-mail: alessandro.semeria@cramont.it

	[[alternative HTML version deleted]]