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=c("Example", "x", "xhat"))
hold2 <- convthresh(hold, smoothpar=5, thresh=q)
plot(hold2, set.pw=TRUE)
look <- saller(hold, hold2)
summary(look)
data(pert000)
data(pert004)
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"))
look <- convthresh(hold, smoothpar=10.5)
summary(look)
plot(look, set.pw=TRUE)
saller(hold, look)
Run the code above in your browser using DataLab