#  meta.nacd<-read.fwf('appendix.2',
#               width=c(4,6,3,7,21,3,3,2,4,3,2,5,5,4,5,2),
#                 col.names=c("i","station.number","country","wmo.number",
#                   "location","degN","minN","N/S","degE","minE","E/W",
#                   "alt","start","element","year.1","quality"))
#  save(file="meta.nacd.Rdata",meta.nacd)
 
load("meta.nacd.Rdata")
