Obrigado Daniel e Rodrigo, problema resolvido, segue CRM abaixo:
casal10<-c(16.03636,16.14,16.62,23.05)##Média 10 casais
sd.casal10<-(0.8402676,0.69461420,0.5656461,1.479279)#SD para 10 casais
casal1<-c(14.14000,14.21,17.37,17.26667)## Média 1casal
sd.casal1<-c(0.1166190,0.07520343,1.1059486,0.768739)#SD para 1 casal
ger<-c(3,6,9,12)## Geração
plot(ger,casal10,ylim=c(0,25),pch=16)
lines(ger,casal10)
points(ger,casal1, col='gray',pch=2)
lines(ger,casal1, col='gray')
arrows(x0=ger, x1=ger, y0=casal10+sd.casal10, y1=casal10-sd.casal10, code=3,
length=0.1, angle=90)
arrows(x0=ger, x1=ger, y0=casal1+sd.casal1, y1=casal1-sd.casal1, code=3,
length=0.1, angle=90, col='gray')
#
Alexandre
Em 11/01/2013 20:12, Daniel Marcelino escreveu:
Sim, pode ser. Você conseguiu plotar afinal?
Daniel
2013/1/11 Rodrigo Coster <[email protected]>:
No arrows() o teu x0 e x1 nao deveria ser ger ao invés de 1:12?
casal10<-c(0.8402676,0.69461420,0.5656461,1.479279)#SD para 10 casais
casal1<-c(14.14000,14.21,17.37,17.26667)## Média 1casal
sd.casal10<-c(0.1166190,0.07520343,1.1059486,0.768739)#SD para 1 casal (eu
troquei pra casal10 para o codigo funcionar)
ger<-c(3,6,9,12)## Geração
plot(ger,casal10,ylim=c(0,25),pch=16)
lines(ger,casal10)
points(ger,casal1, col='gray',pch=2)
lines(ger,casal1, col='gray')
arrows(x0=ger, x1=ger, y0=casal10+sd.casal10, y1=casal10-sd.casal10, code=3,
length=0.1, angle=90)
2013/1/11 ASANTOS <[email protected]>
Bom Dia Daniel,
Ñão usei os dados brutos pois fiz uma transformação com os dados para
análise. O problema com meu CRM foi a falta de concatenar (c) os erros
padrões
ficando:
casal10<-c(0.8402676,0.69461420,0.5656461,1.479279)#SD para 10 casais
casal1<-c(14.14000,14.21,17.37,17.26667)## Média 1casal
sd.casal1<-c(0.1166190,0.07520343,1.1059486,0.768739)#SD para 1 casal
ger<-c(3,6,9,12)## Geração
plot(ger,casal10,ylim=c(0,25),pch=16)
lines(ger,casal10)
points(ger,casal1, col='gray',pch=2)
lines(ger,casal1, col='gray')
arrows(x0=1:12, x1=1:12, y0=casal10+sd.casal10, y1=casal10-sd.casal10,
+ code=3, length=0.1, angle=90)
Mesmo assim os arrows não ficaram corretamente sobre os pontos,
Obrigado,
Alexandre
Em 10/01/2013 23:49, Daniel Marcelino escreveu:
plot(ger,casal10,ylim=c(0,25),pch=16)
lines(ger,casal10)
points(ger,casal1, col='gray',pch=2)
lines(ger,casal1, col='gray')
arrows(x0=1:12, x1=1:12, y0=casal10+sd.casal10, y1=casal10-sd.casal10,
code=3, length=0.1, angle=90)
--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Avenida dos Ramires, s/n
Caixa Postal 744
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
e-mails:[email protected]
[email protected]
======================================================================
_______________________________________________
R-br mailing list
[email protected]
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.
_______________________________________________
R-br mailing list
[email protected]
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.
--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Avenida dos Ramires, s/n
Caixa Postal 744
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
e-mails:[email protected]
[email protected]
======================================================================
_______________________________________________
R-br mailing list
[email protected]
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.
