<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: 12pt">
<DIV> </DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV style="font-color: black"><B>From:</B> <A title=nsmbarreto@gmail.com
href="mailto:nsmbarreto@gmail.com">Natalia Martins</A> </DIV>
<DIV><B>Sent:</B> Saturday, June 16, 2012 8:26 PM</DIV>
<DIV><B>To:</B> <A title=r-br@listas.c3sl.ufpr.br
href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</A> </DIV>
<DIV><B>Subject:</B> Re: [R-br] simulação da normal bivariada</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">Bem
os valores médios e da matriz de covariancia são provenientes dos dados reais,
ou seja, calculei as médias das duas variaveis e matriz de covariancia e as
utilizei na simulação.<BR><BR>
<DIV class=gmail_quote>Em 16 de junho de 2012 20:18, Sandro Sperandei <SPAN
dir=ltr><<A href="mailto:ssperandei@hotmail.com"
target=_blank>ssperandei@hotmail.com</A>></SPAN> escreveu:<BR>
<BLOCKQUOTE
style="BORDER-LEFT: #ccc 1px solid; MARGIN: 0px 0px 0px 0.8ex; PADDING-LEFT: 1ex"
class=gmail_quote>
<DIV dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; FONT-SIZE: 12pt">
<DIV>Natalia,</DIV>
<DIV> </DIV>
<DIV>Provavelmente, o problema está na sua matriz de correlação. Se vc fizer
cor(bnorm), verá que os dados gerados apresentam sempre correlação próxima a
0,19. De onde vieram os valores usados na matriz?</DIV>
<DIV> </DIV>
<DIV>S</DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV style="FONT: 10pt tahoma">
<DIV> </DIV>
<DIV style="BACKGROUND: #f5f5f5">
<DIV><B>From:</B> <A title=nsmbarreto@gmail.com
href="mailto:nsmbarreto@gmail.com" target=_blank>Natalia Martins</A> </DIV>
<DIV><B>Sent:</B> Saturday, June 16, 2012 7:39 PM</DIV>
<DIV><B>To:</B> <A title=R-br@listas.c3sl.ufpr.br
href="mailto:R-br@listas.c3sl.ufpr.br"
target=_blank>R-br@listas.c3sl.ufpr.br</A> </DIV>
<DIV><B>Subject:</B> [R-br] simulação da normal bivariada</DIV></DIV></DIV>
<DIV> </DIV></DIV>
<DIV
style="FONT-STYLE: normal; DISPLAY: inline; FONT-FAMILY: 'Calibri'; FONT-SIZE: small; FONT-WEIGHT: normal; TEXT-DECORATION: none">
<DIV>
<DIV>Boa noite pessoal,
<DIV>estou tentando simular dados diários de temperatura e radiação solar
usando uma normal bivariada e após a simulação eu tentei fazer uma reta de
regressão para verificar se minha simulação esta de acordo, ou seja, eu
esperaria uma reta pois os valores deveriam ser iguais. No entanto quando a
faço o meu R^2 ajustado é ruim (sei que tambem devo fazer testes e não apenas
olhar o R), alguem pode me ajudar, pois acredito que estou fazendo algo
errado?</DIV>
<DIV> </DIV>
<DIV>a programação que estou utilizando segue a baixo:</DIV>
<DIV> </DIV>
<DIV>
<DIV># gerando os dados normal bivariada</DIV>
<DIV>set.seed(1234) #semente</DIV>
<DIV>sigma <- matrix(c<A href="tel:%2819260.71398" target=_blank
value="+551926071398">(19260.71398</A>,28.92129,28.92129,2.173789),
ncol=2)</DIV>
<DIV>sim_bnorm <- rmvnorm(n=1000, mean=c(mean(RST$RS),mean(RST$Temp)),
sigma=sigma)</DIV>
<DIV>bnorm <- data.frame(sim_bnorm)</DIV>
<DIV> </DIV>
<DIV>simulado <- sample(bnorm$X2,31)</DIV>
<DIV> </DIV>
<DIV>
<DIV>modelo <- lm(simulado~RST$Temp)</DIV>
<DIV>summary(modelo)</DIV>
<DIV> </DIV>
<DIV>plot( RST$Temp , simulado,xlab="Valores reais",ylab="Valores
simulados")</DIV>
<DIV>abline(modelo,col="red")</DIV></DIV>
<DIV> </DIV>
<DIV>Muito obrigada</DIV>-- <BR><BR
style="FONT-FAMILY: tahoma; FONT-SIZE: 13px"><FONT size=4
face="Times New Roman"><BR></FONT>
<DIV> </DIV>
<DIV> </DIV></DIV></DIV></DIV>
<HR>
_______________________________________________<BR>R-br mailing list<BR><A
href="mailto:R-br@listas.c3sl.ufpr.br"
target=_blank>R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia
o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia"
target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código mínimo
reproduzível.
</DIV></DIV></DIV></DIV><BR>_______________________________________________<BR>R-br
mailing list<BR><A href="mailto:R-br@listas.c3sl.ufpr.br"
target=_blank>R-br@listas.c3sl.ufpr.br</A><BR><A
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target=_blank>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</A><BR>Leia
o guia de postagem (<A href="http://www.leg.ufpr.br/r-br-guia"
target=_blank>http://www.leg.ufpr.br/r-br-guia</A>) e forneça código mínimo
reproduzível.<BR></BLOCKQUOTE></DIV><BR><BR clear=all>
<DIV> </DIV>-- <BR><BR style="FONT-FAMILY: tahoma; FONT-SIZE: 13px"><FONT
size=4 face="'Times New Roman'">Natália da Silva Martins<BR>Bacharel em
Estatística - Universidade Estadual de Maringá/ UEM<BR>Mestranda em Estatística
e Experimentação Agronômica - ESALQ/ USP<BR>Contato: <A
href="tel:%2819%29%208306-4743" target=_blank value="+551983064743">(19)
8306-4743</A></FONT> <BR>
<DIV> </DIV><BR>
<P>
<HR>
_______________________________________________<BR>R-br mailing
list<BR>R-br@listas.c3sl.ufpr.br<BR>https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br<BR>Leia
o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo
reproduzível.</DIV></DIV></DIV></BODY></HTML>