# NOT RUN {
data( "UKobs6" )
data( "UKfcst6" )
S1( UKobs6, xhat = UKfcst6 )
ACC( UKobs6, xhat = UKfcst6 )
# }
# NOT RUN {
data( "obs0426" )
data( "wrf4ncar0425" )
data( "ICPg240Locs" )
hold <- make.SpatialVx( obs0426, wrf4ncar0425, 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 = "obs0426", model.name = "wrf4ncar0425" )
plot( hold )
S1( hold )
ACC( hold )
# }
Run the code above in your browser using DataLab