data(UKobs6)
data(UKfcst6)
data(UKloc)
hold <- hoods2dPrep( "UKfcst6", "UKobs6", thresholds=c(0.1,0.2,0.5,1,2,5,10,20,50), levels=2^(8-1:8), loc=UKloc, units="mm/h")
look <- waveIS(hold, J=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 <- hoods2dPrep( "pert004", "pert000", thresholds=c(1,10,50), levels=1:4, loc=ICPg240Locs, units="mm/h")
look <- hoods2d( hold, verbose=TRUE)
plot( look)
Run the code above in your browser using DataLab