# NOT RUN {
if(interactive()){
# Create grid
sp1 <- seq(-16, 115, length = 10)
sp2 <- seq(25, 59, length = 10)
sp <- expand.grid(x = sp1, y = sp2)
# Extract data using grid
sp.df0 <- extractWCdata(sp, long = 'x', lat = 'y', var = 'tavg')
sp.df <- na.omit(sp.df0)
}
# }
Run the code above in your browser using DataLab