Enquanto o Walmes não posta algo, vai se contentando com isso. Dê uma olhada na ggplot2, pois é outra opção à graphics.
y <- rnorm(20)
x <- rep(c(0,10,20,30),rep(5,4))
medias <- tapply(y,x,mean)
desv <- tapply(y,x,sd)
plot(tapply(y,x,mean) ~ seq(0,30,10),ylim=c(-2,2))
segments(0,medias[1],0,medias[1]-desv[1])
segments(0,medias[1],0,medias[1]+desv[1])
segments(10,medias[2],10,medias[2]-desv[2])
segments(10,medias[2],10,medias[2]+desv[2])
segments(20,medias[3],20,medias[3]-desv[3])
segments(20,medias[3],20,medias[3]+desv[3])
segments(30,medias[4],30,medias[4]-desv[4])
segments(30,medias[4],30,medias[4]+desv[4])
\begin{signature}<<>>=Prof. Dr. Ivan Bezerra AllamanUniversidade Estadual de Santa CruzDepartamento de Ciências Exatas e TecnológicasIlhéus/BA - BrasilFone: +55 73 3680-5596@\end{signature}
_______________________________________________ R-br mailing list R-br@listas.c3sl.ufpr.br https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.
--
***************************************************
STEPHAN M. CARVALHO
"Honeybee protection and ecotoxicology"
Universidade Estadual Paulista
Centro de Estudo de Insetos Sociais
Av. 24A, 1515
Bela Vista
13.506-900 Rio Claro/SP
Brazil
smalfitano@uol.com.br
msn: pefasmc@hotmail.com / Skype: smalfitano
+55 19 3526-4284 (university)
+55 19 3534-8523 (fax)
+55 35 9103-9822 (mobile)
+55 35 9949-0707 (mobile)
Antes de imprimir, pense no ambiente!
Before printing, think in the environment!
Avant d'imprimer, pensez à l'environnement!
***************************************************