.setUp <- function() {
ci.file <<- tempfile(fileext='.nc')
ClimDown::ci.netcdf.wrapper('./tiny_gcm.nc', './tiny_obs.nc', ci.file, 'tasmax')
}
.tearDown <- function() {
unlink(ci.file)
}
test.qdm <- function() {
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(out.nc)
checkTrue(TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.