# NOT RUN {
x <- y <- matrix(0, 100, 100)
x[2:3,c(3:6, 8:10)] <- 1
y[c(4:7, 9:10),c(7:9, 11:12)] <- 1
x[30:50,45:65] <- 1
y[c(22:24, 99:100),c(50:52, 99:100)] <- 1
hold <- make.SpatialVx( x, y, field.type="contrived", units="none",
data.name = "Example", obs.name = "x", model.name = "y" )
look <- FeatureFinder(hold, smoothpar=0.5)
look2 <- centmatch( look )
look2
look2 <- MergeForce( look2 )
look2
# plot( look2 )
# }
# NOT RUN {
look3 <- deltamm( look, N = 201 )
look3 <- MergeForce( look3 )
data( "pert000" )
data( "pert004" )
data( "ICPg240Locs" )
hold <- make.SpatialVx( pert000, pert004,
loc=ICPg240Locs, projection = TRUE, map = TRUE, loc.byrow = TRUE,
field.type = "Precipitation", units="mm/h",
data.name = "ICP Perturbed Cases", obs.name = "pert000",
model.name = "pert004" )
look <- FeatureFinder(hold, smoothpar=10.5, thresh = 5)
look2 <- centmatch( look, verbose = TRUE )
look2 <- MergeForce( look2 )
plot( look2 )
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab