<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 12pt;
font-family:Calibri
}
--></style></head>
<body class='hmmessage'><div dir='ltr'><a class="t_atc ICName c_nobdr t_prs" id="ReadMessageContacticTmReadMessageContact2_senderName" style="line-height: 19.99359893798828px; cursor: pointer; outline: none; padding-right: 2px; font-family: 'Segoe UI', 'Segoe UI Web Regular', 'Segoe UI Symbol', 'Helvetica Neue', 'BBAlpha Sans', 'S60 Sans', Arial, sans-serif; font-size: 14px; white-space: nowrap; background-color: rgb(255, 255, 255);">Muito obrigada Luis Paulo Braga.</a><div><font face="Segoe UI, Segoe UI Web Regular, Segoe UI Symbol, Helvetica Neue, BBAlpha Sans, S60 Sans, Arial, sans-serif"><span style="font-size: 14px; line-height: 19.99359893798828px; white-space: nowrap;"><br></span></font></div><div><font face="Segoe UI, Segoe UI Web Regular, Segoe UI Symbol, Helvetica Neue, BBAlpha Sans, S60 Sans, Arial, sans-serif"><span style="font-size: 14px; line-height: 19.99359893798828px; white-space: nowrap;">Att, Jacqueline<br></span></font><br><div><hr id="stopSpelling">Date: Wed, 2 Jul 2014 13:29:18 -0300<br>From: lpbraga@geologia.ufrj.br<br>To: r-br@listas.c3sl.ufpr.br<br>Subject: Re: [R-br] Como fazer cokrigagem<br><br><div dir="ltr"><p class="ecxMsoNormal"><span style="font-family:Arial,sans-serif;">Co-Krigagem
(Modelo Linear de Co-Regionalização)</span></p>
<p class="ecxMsoNormal" style="text-align:justify;"><span style="font-family:Arial,sans-serif;">A
Co-Krigagem é recomendada quando uma variável secundária correlacionada
espacialmente à variável primária contribui para a melhoria das predições. Isso
ocorre particularmente para o caso em que o modelo para cada variável e para a
variável cruzada é um Modelo Linear de Corregionalização.</span></p>
<b><span lang="EN-US" style="font-family:Arial,sans-serif;">data(meuse)</span></b><BR>
<b><span lang="EN-US" style="font-family:Arial,sans-serif;">g <-
gstat(id = "ln.zinc", formula = log(zinc)~1, locations = ~x+y, data =
meuse)</span></b><BR>
<b><span lang="EN-US" style="font-family:Arial,sans-serif;">g <-
gstat(g, id = "ln.lead", formula = log(lead)~1, locations = ~x+y,
data = meuse)</span></b><BR>
<b><span style="font-family:Arial,sans-serif;">#carregou os dados de zinco e chumbo</span></b><BR>
<b><span style="font-family:Arial,sans-serif;">vm<-variogram(g)</span></b><BR>
<b><span style="font-family:Arial,sans-serif;">#obteve os semivariogramas
experimentais univariados e cruzados</span></b><BR>
<b><span lang="EN-US" style="font-family:Arial,sans-serif;">vm.fit <-
fit.lmc(vm,g, vgm(1, "Sph", 800, 1))</span></b><BR>
<b><span style="font-family:Arial,sans-serif;">#ajustou</span></b><BR>
<b><span style="font-family:Arial,sans-serif;">plot(vm,vm.fit)</span></b><BR>
<b><span lang="EN-US" style="font-family:Arial,sans-serif;">ck<-predict(vm.fit,meuse.grid)</span></b><BR>
<b><span lang="EN-US" style="font-family:Arial,sans-serif;">spplot(ck["ln.zinc.pred"],col.regions=bpy.colors(20),</span></b><BR>
<b><span lang="EN-US" style="font-family:Arial,sans-serif;">key.space=list(x=0.1,y=.95,corner=c(0,1)),
main = "co kriging predictions(ln(Zn))", xlab="Xloc",ylab=
"Yloc ")</span></b><BR>
<b><span lang="EN-US" style="font-family:Arial,sans-serif;"> </span></b><BR>
<p class="ecxMsoNormal"><span lang="EN-US" style="font-family:Arial,sans-serif;"> </span></p></div><div class="ecxgmail_extra"><br><br><div class="ecxgmail_quote">Em 2 de julho de 2014 10:52, Jacqueline Cantú <span dir="ltr"><<a href="mailto:jacqueline.cantu@hotmail.com" target="_blank">jacqueline.cantu@hotmail.com</a>></span> escreveu:<br>
<blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex;">
<div><div dir="ltr"><p class="ecxMsoNormal" style=""><span style="font-size:12pt;">Olá pessoal,</span><span style="font-size:12.0pt;font-family:"Times New Roman","serif";"><u></u><u></u></span></p>
<p class="ecxMsoNormal" style=""><span style="font-size:12pt;"> </span></p>
<p class="ecxMsoNormal" style=""><span style="font-size:12pt;">Alguém saberia me ajudar em como fazer
cokrigagem..</span></p><p class="ecxMsoNormal" style=""><span style="font-size:12pt;"><br></span></p><p class="ecxMsoNormal" style=""><span style="font-size:12pt;">Deste já agradeço a atenção.</span></p>
<p class="ecxMsoNormal" style=""><span style="font-size:12pt;"><br></span></p><p class="ecxMsoNormal" style=""><span style="font-size:12pt;">Grata, Jacqueline </span></p><p class="ecxMsoNormal" style="">
<span style="font-size:12pt;"> <u></u><u></u></span></p> </div></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">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></div>
<br>_______________________________________________
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.</div></div> </div></body>
</html>