<HTML><HEAD></HEAD>
<BODY dir=ltr>
<DIV dir=ltr>
<DIV style="FONT-FAMILY: 'Calibri'; COLOR: #000000; 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'; 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 7:39 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> [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">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>
<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>