<div dir="ltr"><div>Olá Rodrigo,</div><div><br></div><div>O arquivo são as coordenadas da borda de uma área, em seguida pretendo delimitar a área e calcular sua área em ha, mas está ocorrendo o seguinte erro:</div><div><br>
</div><div><div>Error in storage.mode(poly) <- "double" : </div><div> (list) object cannot be coerced to type 'double'</div></div><div><br></div><div>Segue o código:</div><div><span style="font-family:arial,sans-serif;font-size:10.666666984558105px">### <code r></span><br>
</div>borda<-print(borda, digits = 10)<div><div>plot(bor)</div><div>polygon(bor)</div><div>class(bor)</div><div><div>if (!"classInt" %in% installed.packages()) {install.packages("classInt", dep=T)}</div>
<div>require(classInt)</div><div><br></div><div># Área total em ha</div><div>areatotal<-areapl(borda)/10000</div><div>areatotal</div></div><div><span style="font-family:arial,sans-serif;font-size:10.666666984558105px">### <code r></span><br>
</div><div><span style="font-family:arial,sans-serif;font-size:10.666666984558105px"><br></span></div><div> obrigado</div></div></div><div class="gmail_extra"><br clear="all"><div><div dir="ltr"><div style="text-align:center">
<font size="1"><i><b>Hélder Gramacho </b></i></font></div><div style="text-align:center"><font size="1">Recife-PE / </font><i style="font-size:x-small;color:rgb(51,51,255)"><div style="display:inline!important"><i><a href="mailto:agrohelder@hotmail.com" target="_blank">agrohelder@gmail.com</a></i></div>
</i></div><div style="text-align:center"><br></div></div></div>
<br><br><div class="gmail_quote">Em 9 de maio de 2014 09:56, Rodrigo Coster <span dir="ltr"><<a href="mailto:rcoster@gmail.com" target="_blank">rcoster@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div dir="ltr">Helder,<div><br></div><div>O arquivo está sendo baixado e lido corretamente, o R só oculta as casas decimais para melhorar a visualização. Da para aumentar o numero de casas decimais usando o parâmetro digits do print()</div>
<div><br></div><font face="courier new, monospace">> print(borda, digits = 10)<br> V1 V2<br>1 733986.51 9071335.22<br>2 734009.45 9071338.72<br>3 734015.46 9071306.39<br>4 734021.79 9071274.28<br>
5 733996.02 9071269.04<br>
6 733966.42 9071263.69<br>7 733960.19 9071296.56<br>8 733954.19 9071328.78<br>9 733968.36 9071331.48<br>10 733983.10 9071334.43<br>11 733986.51 9071335.22</font><br></div><div class="gmail_extra"><br><br><div class="gmail_quote">
2014-05-09 9:52 GMT-03:00 Helder Gramacho <span dir="ltr"><<a href="mailto:agrohelder@gmail.com" target="_blank">agrohelder@gmail.com</a>></span>:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<div><div class="h5">
<div dir="ltr">Bom dia pessoal,<div><br></div><div>O arquivo txt abaixo deve ser importado com duas casas decimais nas duas colunas, entretanto na primeira, aparece com apenas 1 e na segunda nenhuma, tentei após a importação utilizar o comando signif() para exibir a quantidade correta de algarismos significativos sem sucesso, ao que parece o problema está na importação, como indicar a quantidade de caracteres a serem reconhecidos no comando read.table?</div>
<div><br></div><div>Segue o código e o arquivo disponibilizado no dropbox:</div><div><br><div>### <code r><br></div><div><div>links <- c("<a href="https://www.dropbox.com/s/o5i1vjua7ggniny/borda_pesq_r.txt" target="_blank">https://www.dropbox.com/s/o5i1vjua7ggniny/borda_pesq_r.txt</a>")</div>
<div><br></div><div>tokens <- gsub("^.*/s/","",dirname(links))</div><div>fileNames <- basename(links)</div><div>newLinks <- file.path("<a href="http://dl.dropbox.com/s" target="_blank">http://dl.dropbox.com/s</a>", tokens, fileNames);</div>
<div>newLinks</div><div><br></div><div>for (a in newLinks) {</div><div> tryCatch(download.file(a, dest=basename(a), mode='wb'),</div><div> error=function(...) print("Falha no download!"))}</div>
<div><br></div><div>borda=read.table(file="borda_pesq_r.txt",header=F)</div><div>borda</div><div>class(borda)</div><div>### </code><br></div><div><br></div><div>Obrigado,</div><div><div dir="ltr"><div style="text-align:center">
<font size="1"><i><b>Hélder Gramacho </b></i></font></div><div style="text-align:center"><font size="1">Recife-PE / </font><i style="font-size:x-small;color:rgb(51,51,255)"><div style="display:inline!important"><i><a href="mailto:agrohelder@hotmail.com" target="_blank">agrohelder@gmail.com</a></i></div>
</i></div><div style="text-align:center"><br></div></div></div>
</div></div></div>
<br></div></div>_______________________________________________<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>
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>_______________________________________________<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>