<div dir="ltr">Caro Elias, obrigado pela demonstração.<div><br></div><div>Estou com uma dificuldade, se puder dar uma ajuda, agradeço muito, desde já.</div><div><br></div><div>No CT do Carvalho e Vieira eles usamos resíduos ortonomais, da seguinte forma</div>
<div><br></div><div><b>Ek= dados$data-kc$pred/sqrt(kc$kr) </b>pelo menos foi o que entendi, me corrija se entendi errado.</div><div><br></div><div>No link que citei faz-se a regressão, que ao meu modo de entender seria isso:</div>
<div><br></div><div><b>reg=lm(dados$data~Ek)</b> , por favor, me corrija se entendi errado.</div><div><br></div><div>para depois calcular a correlação de filliben e comparar com o tabelado e assim verificar se o modelo atende a hipótese dos resíduos ortonomiais normalmente distribuídos, com:</div>
<div><br></div><div><b>filliben(rstandard(reg))</b><br></div><div><br></div><div>E por ultimo, uma dúvida de comando no R, se puder me dar uma luz, agradeço mais uma vez!</div><div><br></div><div>Vamos supor que meus dados possuam 50 pontos com coordenadas.</div>
<div>Minha Krigagem gerou 1000 pontos.</div><div><br></div><div>Evitando usar o <font size="4"><b>predict</b> </font>e <b style="font-size:large">krige.var </b>da validação, pergunto:</div><div><br></div><div>Teria uma função que separasse 50 pontos da krigagem com as mesmas coordenadas dos dados originais?</div>
<div><br></div><div>Não necessariamente entre os 1000 pontos da krigarem terão as mesmas coordenadas das coordenadas dos meus dadosoriginais,</div><div>Seria válido utilizar a coord da krig mais próxima possível da coord do dado original, se sim, qual o limite de distância?<br>
</div><div><br></div><div>Abraço</div><div><br></div><div>Hélio</div><div><br></div><div><br><div><br></div><div><br></div></div></div><div class="gmail_extra"><br><br><div class="gmail_quote">2013/12/6 Elias T Krainski [via R-br] <span dir="ltr"><<a href="mailto:ml-node+s2285057n4661205h23@n4.nabble.com" target="_blank">ml-node+s2285057n4661205h23@n4.nabble.com</a>></span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
apenas para ilustrar o poder desse tipo de teste:
<br><br>filliben = function(x) {
<br> y = sort(x)
<br> n = length(y)
<br> p = (1:n-0.3175)/(n+0.365)
<br> p[1] = 1-0.5^(1/n)
<br> p[n] = 0.5^(1/n)
<br> p = qnorm(p)
<br> cor(y,p)
<br>}
<br><br>e = replicate(1000, filliben(rexp(100, 1)))
<br>u = replicate(1000, filliben(runif(100)))
<br>n = replicate(1000, filliben(rnorm(100)))
<br><br>hist(n, xlim=range(e,u,n))
<br>hist(u, add=TRUE, border='blue')
<br>hist(e, add=TRUE, border='red')
<br><br>_______________________________________________
<br>R-br mailing list
<br><a href="http://user/SendEmail.jtp?type=node&node=4661205&i=0" rel="nofollow" link="external" target="_blank">[hidden email]</a>
<br><a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" rel="nofollow" link="external" 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" rel="nofollow" link="external" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.
<br>
<br>
<br>
<hr noshade size="1" color="#cccccc">
<div style="color:#444;font:12px tahoma,geneva,helvetica,arial,sans-serif">
<div style="font-weight:bold">If you reply to this email, your message will be added to the discussion below:</div>
<a href="http://r-br.2285057.n4.nabble.com/R-br-filliben-tp4661203p4661205.html" target="_blank">http://r-br.2285057.n4.nabble.com/R-br-filliben-tp4661203p4661205.html</a>
</div>
<div style="color:#666;font:11px tahoma,geneva,helvetica,arial,sans-serif;margin-top:.4em;line-height:1.5em">
To unsubscribe from R-br, <a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=3357982&code=aGVsaW9nYWxsb3JvY2hhQGdtYWlsLmNvbXwzMzU3OTgyfC0xMzQ3NTkwMDY4" target="_blank">click here</a>.<br>
<a href="http://r-br.2285057.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml" rel="nofollow" style="font:9px serif" target="_blank">NAML</a>
</div></blockquote></div><br><br clear="all"><div><br></div>-- <br>Hélio Gallo Rocha<br>IFSULDEMINAS - Câmpus Muzambinho<br>
</div>