data( "UKobs6" )
data( "UKfcst6" )
S1( UKobs6, xhat = UKfcst6 )
ACC( UKobs6, xhat = UKfcst6 )
if (FALSE) {
data( "obs0601" )
data( "wrf4ncar0531" )
data( "ICPg240Locs" )
hold <- make.SpatialVx( obs0601, wrf4ncar0531, loc = ICPg240Locs,
projection = TRUE, map = TRUE, loc.byrow = TRUE,
field.type = "Precipitation", units = "mm/h",
data.name = "ICP NSSL/SPC Spring 2005 Cases",
obs.name = "obs0601", model.name = "wrf4ncar0531" )
plot( hold )
S1( hold )
ACC( hold )
}
Run the code above in your browser using DataLab