FeatureMatchAnalyzer(x, y = NULL, matches = NULL, object = NULL,
which.comps = c("cent.dist", "angle.diff", "area.ratio", "int.area",
"bdelta", "haus", "ph", "mhd", "med", "msd", "fom", "minsep", "bearing"),
sizefac = 1, alpha = 0.1, k = 4, p = 2, c = Inf, distfun = "distmapfun", ...)## S3 method for class 'FeatureMatchAnalyzer':
summary(object, ...)
## S3 method for class 'FeatureMatchAnalyzer':
plot(x, ..., type = c("all", "ph", "mhd", "med", "msd",
"fom", "minsep", "cent.dist", "angle.diff", "area.ratio",
"int.area", "bearing", "bdelta", "haus"), set.pw = FALSE)
## S3 method for class 'FeatureMatchAnalyzer':
print(x, ...)
FeatureComps(Y, X, which.comps=c("cent.dist", "angle.diff", "area.ratio", "int.area",
"bdelta", "haus", "ph", "mhd", "med", "msd", "fom", "minsep", "bearing"),
sizefac=1, alpha=0.1, k=4, p=2, c=Inf, distfun="distmapfun", deg = TRUE,
aty = "compass", ...)
x
, y
and matches
are list objects with components as output by deltamm
or similar function. Only one is used, and it first checks for matches
, then y
, and finally x
solutionset
from package locperf
function.FeatureSuite
function. Not used by FeatureMatchAnalyzer
(so far). For the summary
method function for FeatureMatchAnalyzer
, this is the returned value from the self-samwhich.comps
) or plotted (type
).locperf
.bearing
function.deltametric
from package summary
method function, additional optional arguments may be passed, which include silent
(logical, should the information be priprint
returns a named vector invisibly.FeatureMatchAnalyzer
is designed to be used with FeatureSuite
. It is set up to calculate the values discussed in sec. 4 of Davis et al. (2006) for a single verification set (i.e., mean and standard deviation are not computed because it is only a single case). If criteria is 1, then features separated by a distance D < the sum of the sizes of the two features (size of a feature is defined as the square root of its area) are considered a match. If criteria is 2, then a match is made if D < the average of the sizes of the two features. Finally, criteria 3 decides a match as being anything less than a pre-determined constant.FeatureComps
is the primary function called by FeatureMatchAnalyzer
, and is designed as a more stand-alone type of function. Several of the measures that can be calculated are simply the binary image measures/metrics available via, e.g., locperf
. It calculates comparisons between two matched features (i.e., between the verification and forecast fields).
The summary
method function for FeatureMatchAnalyzer
allows for passing a function, con, to determine confidence for each interest value. The idea being to set the interest to zero when the particular interest value does not make sense. For example, angle difference makes no sense if both objects are circles. Currently, no functions are included in this package for actually doing this, and so the functionality itself has not been tested.
The print
method function for FeatureMatchAnalyzer
first converts the object to a simple named matrix, then prints the matrix out. The resulting matrix is returned invisibly.
locperf
, FeatureSuite
, convthresh
, deltamm
, deltametric
, bearing
data(ExampleSpatialVxSet)
x <- ExampleSpatialVxSet$vx
xhat <- ExampleSpatialVxSet$fcst
hold <- make.SpatialVx(x, xhat, field.type="Example",
units="units", data.name=c("Example", "x", "xhat"))
look <- convthresh(hold, smoothpar=1.5)
look2 <- centmatch(look, object=hold)
tmp <- FeatureMatchAnalyzer(matches=look2)
tmp
summary(tmp)
plot(tmp)
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)
look2 <- centmatch(look, object=hold)
tmp <- FeatureMatchAnalyzer(matches=look2)
summary(tmp)
plot(tmp)
Run the code above in your browser using DataLab