if (FALSE) {
library(RNCEP)
## Retrieve the temperature from a particular pressure level for
## a specified spatial and temporal extent
wx.extent <- NCEP.gather(variable='air', level=850,
months.minmax=c(8,9), years.minmax=c(2000,2001),
lat.southnorth=c(50,55), lon.westeast=c(0,5),
reanalysis2 = FALSE, return.units = TRUE)
## Retrive the temperature from a particular pressure level
## interpolated in space and time
wx.interp <- NCEP.interp(variable='air', level=850, lat=55.1,
lon=11.3, dt='2006-10-12 17:23:12')
## Simulate a flight trajectory using NCEP wind data
flight <- NCEP.flight(beg.loc=c(58.00,7.00),
end.loc=c(53.00,7.00), begin.dt='2007-10-01 18:00:00',
flow.assist='NCEP.Tailwind', fa.args=list(airspeed=12),
path='loxodrome', calibrate.dir=FALSE, calibrate.alt=FALSE,
cutoff=0, when2stop='latitude', levels2consider=c(850,925),
hours=12, evaluation.interval=60, id=1, land.if.bad=FALSE,
reanalysis2 = FALSE, query=TRUE)
}
Run the code above in your browser using DataLab