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