# NOT RUN {
ci.file <<- tempfile(fileext='.nc')
ClimDown::ci.netcdf.wrapper('./tiny_gcm.nc', './tiny_obs.nc', ci.file, 'tasmax')
out.nc <- tempfile(fileext='.nc')
options(
calibration.end=as.POSIXct('1972-12-31', tz='GMT'),
cend=as.POSIXct('1972-12-31', tz='GMT')
)
ClimDown::qdm.netcdf.wrapper('./tiny_obs.nc', ci.file, out.nc, 'tasmax')
unlink(ci.file)
unlink(out.nc)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab