data( "ExampleSpatialVxSet" )
x <- ExampleSpatialVxSet$vx
xhat <- ExampleSpatialVxSet$fcst
q <- mean( c(c(x[x>0]),c(xhat[xhat>0])), na.rm=TRUE)
hold <- make.SpatialVx( x, xhat, field.type="contrived", units="none",
data.name = "Example", obs.name = "x", model.name = "xhat" )
hold2 <- FeatureFinder(hold, smoothpar=5, thresh=q)
if (FALSE) plot(hold2)
look <- saller(hold2)
summary(look)
Run the code above in your browser using DataLab