[R-br] Mover os vértices de um polígono

[ASANTOS]

Caros Listeiros,

             Criei um polígono (c1) abaixo com os dados dos vértices da 
área em UTM e gostaria de saber se alguém conhece alguma função para 
mover todos os vértices 30m para dentro e reduzir a área do polígono?

#Contorno da área 
--------------------------------------------------------------
x.coords1<-c(371299.9,    371266.4,    371205.6,    371111.8, 
371047.6,    371018.2,    371014.0,
               371009.3,    370983.1,    370919.7,    370853.6, 
370785.6,    370748.8,    370711.8,
               370687.8,    370696.4,    370785.9,    370885.5, 
371035.8,    371148.1,    371205.2,
               371231.7,    371236.5,    371240.3,    371285.8, 
371326.5,    371397.2,    371417.1,
               371432.9,    371445.0,    371455.7,    371466.4, 
371476.6,    371502.6,    371536.0,
               371550.0,    371546.8,    371528.3,    371470.0, 
371393.3,    371299.9,    371299.9)

y.coords1<-c(8246589,    8246560,    8246508,    8246428, 8246373,    
8246349,    8246348,
              8246352,    8246385,    8246465,    8246551, 8246638,    
8246685,    8246732,
              8246764,    8246771,    8246846,    8246932, 8247062,    
8247160,    8247209,
              8247230,    8247224,    8247221,    8247160, 8247107,    
8247016,    8246991,
              8246967,    8246939,    8246914,    8246892, 8246875,    
8246846,    8246821,
              8246809,    8246802,    8246785,    8246735, 8246669,    
8246589,    8246589)


# Cria um poligono
t05<-unique(data.frame(x=rev(x.coords1),y=rev(y.coords1)))
c1 = cbind (t05$x, t05$y)
r1 = rbind (c1, c1[1, ])  # junta
plot(c1)
polygon(c1)
#

-- 
======================================================================
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
======================================================================


---
Este email foi escaneado pelo Avast antivírus.
http://www.avast.com