[R] Error.bars

[Sueli Rodrigues]

Hi,
I'm studying the Michael J. Crawley book (Statistics An Introduction using
R)and I'm trying to reproduce one example (page 168) for plot a barplot
with error bars, but when I put the function I receive the following
message. Please, could someone told me what's wrong?

error.bars=function(yv,z,nn){xv=barplot(yv,ylim=c(0,(max(yv)+max(z))),names=nn,ylab=deparse(substitute(yv)))g=(max(xv)-min(xv))/50
for(i in
1:length(xv)){lines(c(xv[i],xv[i]),c(yv[i]+z[i],yv[i]-z[i]))lines(c(xv[i]-g,xv[i]+g),c(yv[i]+z[i],yv[i]+z[i]))lines(c(xv[i]-g,xv[i]+g),c(yv[i]-z[i],yv[i]-z[i]))}}

Erro: unexpected symbol in
"error.bars=function(yv,z,nn){xv=barplot(yv,ylim=c(0,(max(yv)+max(z))),names=nn,ylab=deparse(substitute(yv)))g"


Sueli Rodrigues

Eng. Agrônoma - UNESP
Mestranda - USP/ESALQ
PPG-Solos e Nutrição de Plantas
Fones (19)93442981
      (19)33719762