data(UKobs6)
data(UKfcst6)
data(UKloc)
hold <- make.SpatialVx( UKobs6, UKfcst6, thresholds=c(0.1,0.2,0.5,1,2,5,10,20,50),
loc=UKloc, map=TRUE, field.type="Rainfall", units="mm/h",
data.name=c("Nimrod", "UKobs6", "UKfcst6"))
look <- waveIS(hold, J=8, levels=2^(8-1:8), verbose=TRUE)
plot(look, which.plots="mse")
plot(look, which.plots="ss")
plot(look, which.plots="energy")
summary(look)
data(pert004)
data(pert000)
hold <- make.SpatialVx( pert000, pert004, thresholds=c(1,10,50),
loc=ICPg240Locs, projection=TRUE, map=TRUE, loc.byrow = TRUE,
field.type="Precipitation", units="mm/h",
data.name=c("Perturbed ICP", "pert000", "pert004"))
look <- waveIS(hold, levels=1:4, verbose=TRUE)
plot(look, which.plots="mse")
plot(look, which.plots="ss")
plot(look, which.plots="energy")
summary(look)
Run the code above in your browser using DataLab