[R-br] Número de caracteres no comando read.table

[Helder Gramacho]

Olá Rodrigo,

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:

Error in storage.mode(poly) <- "double" :
  (list) object cannot be coerced to type 'double'

Segue o código:
### <code r>
borda<-print(borda, digits = 10)
plot(bor)
polygon(bor)
class(bor)
if (!"classInt" %in% installed.packages()) {install.packages("classInt",
dep=T)}
require(classInt)

# Área total em ha
areatotal<-areapl(borda)/10000
areatotal
### <code r>

 obrigado

*Hélder Gramacho *
Recife-PE /
*agrohelder em gmail.com <agrohelder em hotmail.com>*



Em 9 de maio de 2014 09:56, Rodrigo Coster <rcoster em gmail.com> escreveu:

> Helder,
>
> 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()
>
> > print(borda, digits = 10)
>           V1         V2
> 1  733986.51 9071335.22
> 2  734009.45 9071338.72
> 3  734015.46 9071306.39
> 4  734021.79 9071274.28
> 5  733996.02 9071269.04
> 6  733966.42 9071263.69
> 7  733960.19 9071296.56
> 8  733954.19 9071328.78
> 9  733968.36 9071331.48
> 10 733983.10 9071334.43
> 11 733986.51 9071335.22
>
>
> 2014-05-09 9:52 GMT-03:00 Helder Gramacho <agrohelder em gmail.com>:
>
>> Bom dia pessoal,
>>
>> 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?
>>
>> Segue o código e o arquivo disponibilizado no dropbox:
>>
>> ### <code r>
>> links <- c("https://www.dropbox.com/s/o5i1vjua7ggniny/borda_pesq_r.txt")
>>
>> tokens    <- gsub("^.*/s/","",dirname(links))
>> fileNames <- basename(links)
>> newLinks  <- file.path("http://dl.dropbox.com/s", tokens, fileNames);
>> newLinks
>>
>> for (a in newLinks) {
>>   tryCatch(download.file(a, dest=basename(a), mode='wb'),
>>            error=function(...) print("Falha no download!"))}
>>
>> borda=read.table(file="borda_pesq_r.txt",header=F)
>> borda
>> class(borda)
>> ### </code>
>>
>> Obrigado,
>> *Hélder Gramacho *
>> Recife-PE /
>> *agrohelder em gmail.com <agrohelder em hotmail.com> *
>>
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em 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.
>>
>
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140509/0f2e468e/attachment.html>