# Simplify a (Principal Component) Vector to a Simple Component

### Description

Simplifies the vector `x`

to become a “simple” component vector
(of the same size).

### Usage

1 | ```
simpvector(x)
``` |

### Arguments

`x` |
numeric vector of length |

### Value

a “simplified” version of `x`

, i.e. an integer vector of the
same length and each entry with the same signs.

### See Also

`sca`

, also for references

### Examples

1 2 | ```
x0 <- c(-2:3, 3:-1,0:3,1,1)
cbind(x0, simpvector(x0)) # entries (-11, 0, 3)
``` |