<div dir="ltr"><p class="MsoNormal"><span style="font-family:Arial,sans-serif">Co-Krigagem
(Modelo Linear de Co-Regionalização)</span></p>
<p class="MsoNormal" 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>
<p class=""><b><span lang="EN-US" style="font-family:Arial,sans-serif">data(meuse)</span></b></p>
<p class=""><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></p>
<p class=""><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></p>
<p class=""><b><span style="font-family:Arial,sans-serif">#carregou os dados de zinco e chumbo</span></b></p>
<p class=""><b><span style="font-family:Arial,sans-serif">vm<-variogram(g)</span></b></p>
<p class=""><b><span style="font-family:Arial,sans-serif">#obteve os semivariogramas
experimentais univariados e cruzados</span></b></p>
<p class=""><b><span lang="EN-US" style="font-family:Arial,sans-serif">vm.fit <-
fit.lmc(vm,g, vgm(1, "Sph", 800, 1))</span></b></p>
<p class=""><b><span style="font-family:Arial,sans-serif">#ajustou</span></b></p>
<p class=""><b><span style="font-family:Arial,sans-serif">plot(vm,vm.fit)</span></b></p>
<p class=""><b><span lang="EN-US" style="font-family:Arial,sans-serif">ck<-predict(vm.fit,meuse.grid)</span></b></p>
<p class=""><b><span lang="EN-US" style="font-family:Arial,sans-serif">spplot(ck["ln.zinc.pred"],col.regions=bpy.colors(20),</span></b></p>
<p class=""><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></p>
<p class=""><b><span lang="EN-US" style="font-family:Arial,sans-serif"> </span></b></p>
<p class="MsoNormal"><span lang="EN-US" style="font-family:Arial,sans-serif"> </span></p></div><div class="gmail_extra"><br><br><div class="gmail_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="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div dir="ltr"><p class="MsoNormal" style="margin-bottom:0.0001pt"><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="MsoNormal" style="margin-bottom:0.0001pt"><span style="font-size:12pt"> </span></p>
<p class="MsoNormal" style="margin-bottom:0.0001pt"><span style="font-size:12pt">Alguém saberia me ajudar em como fazer
cokrigagem..</span></p><p class="MsoNormal" style="margin-bottom:0.0001pt"><span style="font-size:12pt"><br></span></p><p class="MsoNormal" style="margin-bottom:0.0001pt"><span style="font-size:12pt">Deste já agradeço a atenção.</span></p>
<p class="MsoNormal" style="margin-bottom:0.0001pt"><span style="font-size:12pt"><br></span></p><p class="MsoNormal" style="margin-bottom:0.0001pt"><span style="font-size:12pt">Grata, Jacqueline </span></p><p class="MsoNormal" style="margin-bottom:0.0001pt">
<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>