if (FALSE) {
library(RNCEP)
## First query the U component of the wind from the 850mb
## pressure level
uwnd <- NCEP.gather(variable='uwnd', level=850,
months.minmax=c(5,7), years.minmax=c(2000,2001),
lat.southnorth=c(50,55), lon.westeast=c(0,5))
## Then remove all observations except those made at midnight from
## the first half of either May or July
uwnd.r <- NCEP.restrict(wx.data=uwnd, hours2remove=c(6,12,18),
days2remove=seq(17,31), months2remove=6, set2na=FALSE)
## Then remove the observation from 1 May 2000 at midnight ##
uwnd.r2 <- NCEP.restrict(wx.data=uwnd.r,
other2remove="2000-05-01 00", set2na=FALSE)
}
Run the code above in your browser using DataLab