grid.newpage()

Hi,

I'm trying to customize a window with 2 graphs.

I'm able to do the first one with something like this general example

par(mfrow=c(1,2),cex.axis=0.85,cex.lab=0.80,mai=c(1.3,1,0.5,0),las=3)
bplot<-barplot(bar.values,names.arg=cf.names,width=0.5,ylab="% Area held")
abline(h=0.3,lty=3,col="red")
abline(h=0.1,lty=3,col="blue")
points(bplot,target$target/xi[nrow(xi),],pch=20)
text(bplot,target$target/xi[nrow(xi),],paste(target$target,"ha"),adj=c(-0.3,
0.5),cex=0.70,srt=90)

But it fails when I try to put it into a grid with something like this:

grid.newpage()
par(cex.axis=0.85,cex.lab=0.80,mai=c(1.3,1,0.5,0),las=3)
pushViewport(viewport(layout=grid.layout(1,2)))
pushViewport(viewport(layout.pos.row=1,layout.pos.col=1))
print(
bplot<-barplot(bar.values,width=0.5,ylab="% Area held",,names.arg=cf.names)
abline(h=0.3,lty=3,col="red"))
abline(h=0.1,lty=3,col="blue")
points(bplot,target$target/xi[nrow(xi),],pch=20) #!
,col=c(4,2,4,4,2,4,4,4,4,4,2,4)
text(bplot,target$target/xi[nrow(xi),],paste(target$target,"ha"),adj=c(-0.3,
0.5),cex=0.70,srt=90)
	)
popViewport(1)

It fails to print ablines, points and text.

Any idea?

----------------------------------------------------------------------------
-------------------------------------------------
This electronic mail transmission including any attachment hereof, contains
information that is private and confidential, and it is only for the use of
the person and at the e-mail address above indicated. If you have received
this electronic mail transmission in error, please destroy it and notify me
immediately through e-mail address: pecardoso at netcabo.pt