FQI(object, surr = NULL, ...)UIQI(Vx, Fcst, ...)
ampstats(Vx, Fcst, only.nonzero = FALSE)
## S3 method for class 'fqi':
summary(object, ...)
locmeasures2dPrep
. In the case of summary.fqi
, object
is the list object returned by FQI
.Vx
, e.g. as returned by surrogater2d
. If NULL, these will be calculated using surrogater2d
.FQI
, additional arguments to surrogater2d
. Only used if surr
is NULL. In the case of UIQI
, additional arguments to ampstats
. In the case of summary.fqi
, these FQI = (PHD_k(Vx, Fcst)/mean( PHD_k(Vx, surr_i); i in 1 to number of surrogates)) / (brightness * distortion)
where the numerator is a normalized partial Hausdorff distance (see help file for locperf), brightness (also called bias) is given by 2*(mu1*mu2)/(mu1^2+mu2^2), where mu1 (mu2) is the mean value of Vx (Fcst), and the distortion term is given by 2*(sig1*sig2)/(sig1^2+sig2^2), where sig1^2 (sig2^2) is the variance of Vx (Fcst) values. The denominator is a modified UIQI (Universal Image Quality Index; Wang and Bovik, 2002), which itself is given by
UIQI = cor(Vx,Fcst)*brightness*distortion.
Note that if only.nonzero
is TRUE
in the call to UIQI
, then the modified UIQI used in the FQI formulation is returned (i.e., without multiplying by the correlation term).
Wang, Z. and Bovik, A. C. (2002) A universal image quality index. IEEE Signal Process. Lett., 9, 81--84.
locperf
, surrogater2d
, locmeasures2d
, locmeasures2dPrep
data(ExampleSpatialVxSet)
x <- ExampleSpatialVxSet$vx
xhat <- ExampleSpatialVxSet$fcst
# Now, find surrogates of the simulated field.
z <- surrogater2d( x, zero.down=TRUE, n=10)
u <- cbind( quantile( c(xhat), c(0.75, 0.9)), quantile( c(x), c(0.75, 0.9)))
hold <- locmeasures2dPrep("x", "xhat", thresholds=u, k=c(4, 0.75))
FQI( hold, surr=z)
Run the code above in your browser using DataLab