library(rgdal)
#1.1 buscando dados em utm
dados.utm=read.table("k:/2013/r/transforma/dados.utm.txt", head = T,blank.lines.skip=T)
#1.2 Transformando em "SpatialPointsDataFrame"
dados.utm.spdf <- SpatialPointsDataFrame(dados.utm[,3:4], data=dados.utm[2],proj4string= CRS("+proj=utm +zone=23+ x_0=0 +y_0=10000000 +south +datum=WGS84"))
#1.3 transformando utm em longlat
dados.longlat <- spTransform(dados.utm.spdf , CRS("+proj=longlat +datum=WGS84"))#+ellps=WGS84"))#+lat_0=0 +lon_0=0"))
dados.longlat
abraço
Hélio