tpeqd(rbind(c(0,0), c(10,50)))
data('netherlands')
tcrs = tpeqd(nldCities[1:2,])
tcrs
nldT = spTransform(nldCities, tcrs)
projection(nldT)
map.new(nldT)
text(nldT,labels=nldT$name)
scaleBar(nldT, 'topright')
Run the code above in your browser using DataLab