straight {compositions} | R Documentation

## Draws straight lines.

### Description

The function draws lines in a given direction `d` through points `x`.

### Usage

              straight(x,...)
              ## S3 method for class 'acomp':
              straight(x,d,...,steps=30)
              ## S3 method for class 'rcomp':
              straight(x,d,...,steps=30)
              ## S3 method for class 'aplus':
              straight(x,d,...,steps=30)
              ## S3 method for class 'rplus':
              straight(x,d,...,steps=30)
              ## S3 method for class 'rmult':
              straight(x,d,...,steps=30)

### Arguments

`x` | dataset of points of the given type to draw the line through
`d` | dataset of directions of the line
`...` | further graphical parameters
`steps` | the number of discretisation points to draw the segments, since the representation might not visually be a straight line

### Details

The functions add lines to the graphics generated with the corresponding plot functions.
Adding to multipaneled plots redraws the plot completely, and is only possible when the plot has been created with the plotting routines from this library.
Lines end when they leave the space (e.g. the simplex), which sometimes leads to the impression of premature end (specially in `rcomp` geometry).

### Author(s)

K.Gerald v.d. Boogaart http://www.stat.boogaart.de

### See Also

`plot.acomp`,`lines.acomp`

### Examples

    data(SimulatedAmounts)

    plot(acomp(sa.lognormals))
    straight(mean(acomp(sa.lognormals)),princomp(acomp(sa.lognormals))$Loadings[1,],col="red")
    straight(mean(rcomp(sa.lognormals)),princomp(rcomp(sa.lognormals))$loadings[,1],col="blue")

    plot(aplus(sa.lognormals[,1:2]))
    straight(mean(aplus(sa.lognormals[,1:2])),princomp(aplus(sa.lognormals[,1:2]))$Loadings[1,],col="red")
    straight(mean(rplus(sa.lognormals[,1:2])),princomp(rplus(sa.lognormals[,1:2]))$loadings[,1],col="blue")

    plot(rplus(sa.lognormals[,1:2]))
    straight(mean(aplus(sa.lognormals[,1:2])),princomp(aplus(sa.lognormals[,1:2]))$Loadings[1,],col="red")
    straight(mean(rplus(sa.lognormals[,1:2])),princomp(rplus(sa.lognormals[,1:2]))$loadings[,1],col="blue")

[Package compositions version 0.91-6 Index]