data(UKobs6)
data(UKfcst6)
S1(UKobs6, xhat=UKfcst6)
ACC(UKobs6, xhat=UKfcst6)
data(obs0426)
data(wrf4ncar0425)
data(ICPg240Locs)
hold <- make.SpatialVx(obs0426, wrf4ncar0425, loc=ICPg240Locs,
projection=TRUE, map=TRUE,
field.type="Precipitation", units="mm/h",
data.name=c("ICP NSSL/SPC Spring 2005 Cases",
"obs0426", "wrf4ncar0425"))
plot(hold, set.pw=TRUE)
S1(hold)
ACC(hold)
Run the code above in your browser using DataLab