<div dir="ltr">Uma solução usando o gstat<div><br></div><div><p class=""><b>data(meuse)</b></p>
<p class=""><b>g <- gstat(id =
"ln.zinc", formula = log(zinc)~1, locations = ~x+y, data = meuse)</b></p>
<p class=""><b>g <- gstat(g,
id = "ln.lead", formula = log(lead)~1, locations = ~x+y, data =
meuse)</b></p>
<p class=""><b>#carregou os dados
de zinco e chumbo</b></p>
<p class=""><b>vm<-variogram(g)</b></p>
<p class=""><b>#obteve os
semivariogramas experimentais univariados e cruzados</b></p>
<p class=""><b><span lang="EN-US">vm.fit <- fit.lmc(vm,g, vgm(1,
"Sph", 800, 1))</span></b></p>
<p class=""><b>#ajustou</b></p>
<p class=""><b><span lang="EN-US">plot(vm,vm.fit)</span></b></p>
<p class=""><b><span lang="EN-US">ck<-predict(vm.fit,meuse.grid)</span></b></p>
<p class=""><b><span lang="EN-US">spplot(ck["ln.zinc.pred"],col.regions=bpy.colors(20),</span></b></p>
<p class=""><b><span lang="EN-US">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></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">Em 22 de julho de 2014 22:38, Maria de Fatima Ferreira Almeida <span dir="ltr"><<a href="mailto:fairam2006@yahoo.com.br" target="_blank">fairam2006@yahoo.com.br</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="color:#000;background-color:#fff;font-family:bookman old style,new york,times,serif;font-size:10pt"><div>
<span><br></span></div><div></div><div> </div><div>Maria de Fátima Ferreira Almeida<br>Professora de Matemática do Instituto Federal de Educação, Ciência e Tecnologia do Norte de Minas Gerais<br>Fone:(38)99931010 </div><div>
<br><br></div><div style="display:block"> <div style="font-family:'bookman old style','new york',times,serif;font-size:10pt"> <div style="font-family:HelveticaNeue,'Helvetica Neue',Helvetica,Arial,'Lucida Grande',sans-serif;font-size:12pt">
<div dir="ltr"> <font face="Arial"> Em Terça-feira, 22 de Julho de 2014 11:17, Jacqueline Cantú <<a href="mailto:jacqueline.cantu@hotmail.com" target="_blank">jacqueline.cantu@hotmail.com</a>> escreveu:<br> </font> </div>
<br><br> <div><div>
<div><div dir="ltr"><div class="">Olá pessoal,<div>Construí o semivariograma cruzado, ajustei modelo e escolhi o melhor modelo e preciso fazer o mapa temático para cada uma das variáveis. </div><div>Alguém sabe me dizer como fazer o mapa temático?</div>
</div><div> Utilize Krigagem Ordinária e considere cada variável com primária, rode uma análise para cada uma delas.</div><div class=""><div><br></div><div>Muio obrigada pela atenção.</div><div>Att, Jacqueline</div> </div>
</div></div>
</div><br><div class="">_______________________________________________<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>
</div>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><br></div> </div> </div> </div> </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>