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><br></div><div>a programação que estou utilizando segue a baixo:</div><div><br></div><div><div># gerando os dados normal bivariada</div><div>set.seed(1234) #semente</div><div>sigma <- matrix(c<a href="tel:%2819260.71398" value="+551926071398" target="_blank">(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><br></div><div>simulado <- sample(bnorm$X2,31)</div><div><br></div><div><div>
modelo <- lm(simulado~RST$Temp)</div><div>summary(modelo)</div>
<div><br></div><div>plot(
RST$Temp ,
simulado,xlab="Valores reais",ylab="Valores simulados")</div><div>abline(modelo,col="red")</div></div><div><br></div><div>Muito obrigada</div>-- <br><br style="font-family:Tahoma;font-size:13px">
<font face="Times New Roman" size="4"><br>

</font><div><br></div><br>
</div>