data(ExampleSpatialVxSet)
x <- ExampleSpatialVxSet$vx
xhat <- ExampleSpatialVxSet$fcst
hold <- make.SpatialVx(x, xhat, field.type="contrived",
units="none", data.name=c("Example", "x", "xhat"))
res <- griddedVgram(hold,R=8)
plot(res, set.pw=TRUE)
data(pert004)
data(pert000)
data(ICPg240Locs)
hold <- make.SpatialVx(pert000, pert004, loc=ICPg240Locs,
projection=TRUE, map=TRUE,
field.type="Precipitation", units="mm/h",
data.name=c("Perturbed ICP Cases", "pert000", "pert004"))
res <- griddedVgram(hold, R=8)
plot(res, set.pw=TRUE)
Run the code above in your browser using DataLab