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 )
Run the code above in your browser using DataLab