lmrloc: Line-of-Organic Correlation
In lmomco: L-Moments, Censored L-Moments, Trimmed L-Moments, L-Comoments, and Many Distributions
lmrloc R Documentation
Line-of-Organic Correlation
Description
Compute the line-of-organic correlation (LOC) (Helsel and others, 2020, sec. 10.2.2, p. 280). The LOC is estimated by both L-moments and product moments. The LOC has other names in the literature including reduced major axis and line of diagonal correlation. When describing a functional relations between two variables without trying to predict one from the other, LOC is more appropriate than ordinary least squares (OLS).
The LOC is a regression line whose slope is computed by the ratio between respective variations of the predictor variable and the response variable. The intercept of the line is computed such that the line passes through the familiar arithmetic mean (first L-moment) (\lambda_1) each for the two variables. Relative variation is readily computed by the ratio of standard deviations or for more robust and less biased estimation by the ratio of the L-variations (second L-moment) (\lambda_2) of the two variables.
The \lambda_2 is generically based on the so-called Gini mean difference statistic (GMD) (\mathcal{G}) by \lambda_2 = \mathcal{G}/2 (gini.mean.diff). Incidentally for the normal distribution, the well-known standard deviation is the product \lambda_2\sqrt{\pi} (see also lmomnor). Mathematically, GMD is defined as the linear combination
\mathcal{G} = \frac{2}{n(n-1)}\sum_{i=1}^n (2i - n - 1) x_{i:n}\mbox{,}
where x_{i:n} are the sample ascending order statistics.
Returning to the need to estimate the LOC slope, algebra shows the slope is the ratio of the \mathcal{G} values as
m = \mathrm{sign[} \rho \mathrm{]}\cdot\frac{\sum_{i=1}^n (2i - n - 1) X_{i:n}}{\sum_{i=1}^n (2i - n - 1) Y_{i:n}}\mbox{,}
where X_{i:n} is an ordered (ascending) vector of random variable X, Y_{i:n} is an ordered (ascending) vector of random variable Y, and the slope sign can be computed by a correlation coefficient sign (Pearson R, Kendall Tau [computationally slowest], Spearman Rho would all work [implemented for the function, \rho]). For applications, it is critical that the correlation coefficient is computed using the original correlated-ordering of X and Y and not after individual vector sorting that is needed for the GMD (L-moments). A developer, therefore, must be cognizant of the placement in code when the two variables are sorted to the order statistics for \mathcal{G} computations.
The LOC intercept is given by algebra by
b = \frac{1}{n}\biggl(\sum_{i=1}^n X_{i:n} - m \cdot \sum_{i=1}^n Y_{i:n}\biggr)\mbox{.}
Helsel and others (2020, p. 281) enumerate some advantages to the use of the LOC: (1) it minimizes errors in both x and y directions, (2) it provides a single line regardless of which variable (x or y) is used as the response variable, and (3) its cumulative distribution function of the predictions, including the variance and probabilities, is correct (meaning not compressed as in OLS). The LOC is particularly useful for modeling the intrinsic functional relation between two variables, both of which are measured with error and (or) when neither variable is considered an independent variable appropriate to predict the other.
Usage
lmrloc(x, y=NULL, terse=TRUE)
Arguments
x
A numeric vector, matrix or data frame.
y
NULL (default) or a vector of same length of x.
terse
A logical triggering only return of the coefficients of the two lines; otherwise, the intermediate computations are also returned.
Value
An R list is returned with terse=TRUE with two vectors of the intercept and slope coefficients for the L-moment and the product moment versions. The names on the vectors, respectively, are "LMR_Intercept", "LMR_Slope" and "PMR_Intercept", "PMR_Slope" for LMR (L-moment ratio) and PMR (product moment ratio) are monikers for the two approaches. An expanded R list is returned with terse=FALSE with the intermediate computations also provided.
loc_lmr
The LOC by L-moments (L-variations or equivalently Gini Mean Differences).
loc_pmr
The LOC by product moments (standard deviations).
srho
The sign on Spearman Rho.
mu_x
The arithmetic mean of the x variable.
mu_y
The arithmetic mean of the y variable.
gini_x
The GMD of the x variable.
gini_y
The GMD of the y variable.
sd_x
The standard deviation of the x variable.
sd_y
The standard deviation of the y variable.
Author(s)
W.H. Asquith
References
Helsel, D.R., Hirsch, R.M., Ryberg, K.R., Archfield, S.A., and Gilroy, E.J., 2020, Statistical methods in water resources: U.S. Geological Survey Techniques and Methods, book 4, chap. A3, 458 p., \Sexpr[results=rd]{tools:::Rd_expr_doi("10.3133/tm4a3")}.
Hosking, J.R.M., 1990, L-moments—Analysis and estimation of
distributions using linear combinations of order statistics: Journal of the Royal Statistical Society, Series B, v. 52, pp. 105–124.
Jurečková, J., and Picek, J., 2006, Robust statistical methods with R: Boca Raton, Fla., Chapman and Hall/CRC, ISBN 1–58488–454–1.
See Also
gini.mean.diff
Examples
n <- 100; x <- rnorm(n); y <- -0.4 * x + rnorm(n, sd=0.2)
y[x == min(x)] <- 2 * min(y) # throw in an outlier to help separate two lines
loc <- lmrloc(x, y, terse=FALSE)
plot(x, y)
abline(loc$loc_lmr, lty=1)
abline(loc$loc_pmr, lty=2)
legend("topright", c("LOC by L-moments", "LOC by product moments"), lty=c(1,2))
olsxy <- 1 / coefficients(stats::lm(x~y))[2] # yes inversion needed to show
olsyx <- coefficients(stats::lm(y~x))[2] # geometric mean in proper way
mstar <- loc$srho * sqrt(abs(olsxy) * abs(olsyx)); names(mstar) <- NULL
m_pmr <- loc$loc_pmr[2]; names(m_pmr) <- NULL
m_lmr <- loc$loc_lmr[2]; names(m_lmr) <- NULL
message("Geometric mean OLS slopes = ", mstar) # see that these two are
message(" PMR LOC slope = ", m_pmr) # equivalent by theory
message(" LMR LOC slope = ", m_lmr) # this one is not
lmomco documentation built on Aug. 30, 2023, 5:10 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
| lmrloc | R Documentation |
Line-of-Organic Correlation
Description
Compute the line-of-organic correlation (LOC) (Helsel and others, 2020, sec. 10.2.2, p. 280). The LOC is estimated by both L-moments and product moments. The LOC has other names in the literature including reduced major axis and line of diagonal correlation. When describing a functional relations between two variables without trying to predict one from the other, LOC is more appropriate than ordinary least squares (OLS).
The LOC is a regression line whose slope is computed by the ratio between respective variations of the predictor variable and the response variable. The intercept of the line is computed such that the line passes through the familiar arithmetic mean (first L-moment) (\lambda_1) each for the two variables. Relative variation is readily computed by the ratio of standard deviations or for more robust and less biased estimation by the ratio of the L-variations (second L-moment) (\lambda_2) of the two variables.
The \lambda_2 is generically based on the so-called Gini mean difference statistic (GMD) (\mathcal{G}) by \lambda_2 = \mathcal{G}/2 (gini.mean.diff). Incidentally for the normal distribution, the well-known standard deviation is the product \lambda_2\sqrt{\pi} (see also lmomnor). Mathematically, GMD is defined as the linear combination
\mathcal{G} = \frac{2}{n(n-1)}\sum_{i=1}^n (2i - n - 1) x_{i:n}\mbox{,}
where x_{i:n} are the sample ascending order statistics.
Returning to the need to estimate the LOC slope, algebra shows the slope is the ratio of the \mathcal{G} values as
m = \mathrm{sign[} \rho \mathrm{]}\cdot\frac{\sum_{i=1}^n (2i - n - 1) X_{i:n}}{\sum_{i=1}^n (2i - n - 1) Y_{i:n}}\mbox{,}
where X_{i:n} is an ordered (ascending) vector of random variable X, Y_{i:n} is an ordered (ascending) vector of random variable Y, and the slope sign can be computed by a correlation coefficient sign (Pearson R, Kendall Tau [computationally slowest], Spearman Rho would all work [implemented for the function, \rho]). For applications, it is critical that the correlation coefficient is computed using the original correlated-ordering of X and Y and not after individual vector sorting that is needed for the GMD (L-moments). A developer, therefore, must be cognizant of the placement in code when the two variables are sorted to the order statistics for \mathcal{G} computations.
The LOC intercept is given by algebra by
b = \frac{1}{n}\biggl(\sum_{i=1}^n X_{i:n} - m \cdot \sum_{i=1}^n Y_{i:n}\biggr)\mbox{.}
Helsel and others (2020, p. 281) enumerate some advantages to the use of the LOC: (1) it minimizes errors in both x and y directions, (2) it provides a single line regardless of which variable (x or y) is used as the response variable, and (3) its cumulative distribution function of the predictions, including the variance and probabilities, is correct (meaning not compressed as in OLS). The LOC is particularly useful for modeling the intrinsic functional relation between two variables, both of which are measured with error and (or) when neither variable is considered an independent variable appropriate to predict the other.
Usage
lmrloc(x, y=NULL, terse=TRUE)
Arguments
x |
A numeric vector, matrix or data frame. |
y |
|
terse |
A logical triggering only return of the coefficients of the two lines; otherwise, the intermediate computations are also returned. |
Value
An R list is returned with terse=TRUE with two vectors of the intercept and slope coefficients for the L-moment and the product moment versions. The names on the vectors, respectively, are "LMR_Intercept", "LMR_Slope" and "PMR_Intercept", "PMR_Slope" for LMR (L-moment ratio) and PMR (product moment ratio) are monikers for the two approaches. An expanded R list is returned with terse=FALSE with the intermediate computations also provided.
loc_lmr |
The LOC by L-moments (L-variations or equivalently Gini Mean Differences). |
loc_pmr |
The LOC by product moments (standard deviations). |
srho |
The sign on Spearman Rho. |
mu_x |
The arithmetic mean of the |
mu_y |
The arithmetic mean of the |
gini_x |
The GMD of the |
gini_y |
The GMD of the |
sd_x |
The standard deviation of the |
sd_y |
The standard deviation of the |
Author(s)
W.H. Asquith
References
Helsel, D.R., Hirsch, R.M., Ryberg, K.R., Archfield, S.A., and Gilroy, E.J., 2020, Statistical methods in water resources: U.S. Geological Survey Techniques and Methods, book 4, chap. A3, 458 p., \Sexpr[results=rd]{tools:::Rd_expr_doi("10.3133/tm4a3")}.
Hosking, J.R.M., 1990, L-moments—Analysis and estimation of distributions using linear combinations of order statistics: Journal of the Royal Statistical Society, Series B, v. 52, pp. 105–124.
Jurečková, J., and Picek, J., 2006, Robust statistical methods with R: Boca Raton, Fla., Chapman and Hall/CRC, ISBN 1–58488–454–1.
See Also
gini.mean.diff
Examples
n <- 100; x <- rnorm(n); y <- -0.4 * x + rnorm(n, sd=0.2)
y[x == min(x)] <- 2 * min(y) # throw in an outlier to help separate two lines
loc <- lmrloc(x, y, terse=FALSE)
plot(x, y)
abline(loc$loc_lmr, lty=1)
abline(loc$loc_pmr, lty=2)
legend("topright", c("LOC by L-moments", "LOC by product moments"), lty=c(1,2))
olsxy <- 1 / coefficients(stats::lm(x~y))[2] # yes inversion needed to show
olsyx <- coefficients(stats::lm(y~x))[2] # geometric mean in proper way
mstar <- loc$srho * sqrt(abs(olsxy) * abs(olsyx)); names(mstar) <- NULL
m_pmr <- loc$loc_pmr[2]; names(m_pmr) <- NULL
m_lmr <- loc$loc_lmr[2]; names(m_lmr) <- NULL
message("Geometric mean OLS slopes = ", mstar) # see that these two are
message(" PMR LOC slope = ", m_pmr) # equivalent by theory
message(" LMR LOC slope = ", m_lmr) # this one is not
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.