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, locmeasures2dPrepdata(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