data(coso_sta_LLZ)
### or read in from file:
## fsta = "staLLZ.txt"
## stas = scan(file=fsta,what=list(name="", lat=0, lon=0, z=0))
## stas$z = stas$z/1000
stas = coso_sta_LLZ
STA = doAmap(stas, doproj = TRUE)
Run the code above in your browser using DataLab