SymLine

SymLine ADDs a symmetric line, i.e. the principal component axis to an open plot. This line minimises the sum of the squares of the Euclidian distances between points and line.

SymLine(X, Y, COL = 4, LWD = 2, LTY = 1, LINE_THRESHOLD = 0.3)

Arguments

X

metric variable for x-axis
Y

metric variable for y-axis
COL

=4 line colour
LWD

=2 line width
LTY

=1 line type
LINE_THRESHOLD

=.3 only show lines iff |cor| >= LINE_THRESHOLD

Value

nothing

Examples

if (FALSE) {
x <- rnorm(100, 10, 2)
y <- rnorm(100, 100, 4) + 1.7 * x
graphics::plot(x, y)
SymLine(x,y)
}