Compare Data From Two Samples

Calculates measures of accuracy and agreement.

Usage

Compare(Sample1, Sample2)

Arguments

Sample1

A vector, 1-column matrix or data.frame with evapotranspiration or other variable.

Sample2

A vector, 1-column matrix or data.frame with evapotranspiration or other variable.

Value

A data.frame with:

• Absolute mean error (AME),

• square root of the mean squared error (RMSE),

• Willmott's indices of agreement:

  • original (dorig),

  • modified (dmod) and

  • refined (dref)

  , and

• Pearson determination coefficient (RQuad).

Examples

# See `?DataForCWB` for more on this data set
Tavg <- DataForCWB[, 2]
Tmax <- DataForCWB[, 3]
Tmin <- DataForCWB[, 4]
Rn <- DataForCWB[, 6]
WS <- DataForCWB[, 7]
RH <- DataForCWB[, 8]
G <- DataForCWB[, 9]
Sample1 <-
  ET0_PM(
    Tavg = Tavg,
    Tmax = Tmax,
    Tmin = Tmin,
    Rn = Rn,
    RH = RH,
    WS = WS,
    G = G,
    Alt = 700)
Sample2 <- ET0_PT(Tavg = Tavg, Rn = Rn, G = G)
Compare(Sample1 = Sample1, Sample2 = Sample2)
#>       AME     RMSE     dorig     dmod        dref     RQuad
#> 1 1.69222 1.813449 0.6403158 0.376103 -0.05737454 0.8675223