[R-br] Fwd: Mover coordenadas em shapefile

[ASANTOS]

-------- Mensagem original --------
Assunto: 	Mover coordenadas em shapefile
Data: 	Tue, 29 Apr 2014 15:11:34 -0400
De: 	ASANTOS <alexandresantosbr em yahoo.com.br>
Para: 	r-br em listas.c3sl.ufpr.br



Bom tarde Pessoal,

             Estou tentando mover as coordenadas de um arquivo shapefile
sem sucesso, preciso mover as coordenadas do meu polígono (que esta em
UTM), 1032m à esquerda e 280m para cima, tentei fazer operações
trigonométricas sobre os pontos da extensão *bdf, mas não consegui a
visualização em formato *shp, alguém conhece  alguma função em algum
pacote para fazer isto ou teria alguma sugestão, segue CRM dos dados:

#Download do controno da área em shapefile
links <- c(
"https://www.dropbox.com/s/1oz5lhnk96jih3w/Tamandua288.dbf",
"https://www.dropbox.com/s/6b3uygyrjhq1bby/Tamandua288.shp",
"https://www.dropbox.com/s/wntluhn8bi7us2f/Tamandua288.shx")

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!"))}

## Abrir e visualizar contorno
require(rgdal)
plotRGB(landa)
contorno_line <- readOGR(dsn="/Documents and
Settings/ASANTOS/Desktop/Percevejo GIS", layer="Tamandua288")
CRS.new <- CRS("+proj=utm +zone=23 +south +datum=WGS84 +units=m +no_defs
+ellps=WGS84 +towgs84=0,0,0")
contorno_line.WGS84 <- spTransform(contorno_line, CRS.new)
projection(landa)
projection(contorno_line.WGS84)
lines(contorno_line.WGS84,col="red")



Obrigado,

-- 
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================







-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140429/4d543ded/attachment.html>