### Observations of year 1967
#data(temperature)
#names(temperature)
# Locations of 939 weather stations
#latlon <- temperature$latlon[temperature$year == 1967, ]
#netlab <- reg.grid(x=3, latlon)
#netlab <- red.grid(x=3, latlon)
#netlab <- gotreg.grid(x=2, latlon)
#netlab <- gotred.grid(x=2, latlon)
#netlab <- hsreg.grid(x=5, latlon)
#netlab <- hsred.grid(x=5, latlon)
Run the code above in your browser using DataLab