reorder_fa {lazy.tools} R Documentation

## Reorder the rows and columns of factor pattern matrix

### Description

Reorder the rows and columns of factor pattern matrix

### Usage

```reorder_fa(A, unclass = 0, sortcols = 1, print = 0)
```

### Arguments

 `A` Factor Pattern matrix or an object with \$loadings. `unclass` = 1 to unclass the result `sortcols` = 0 not to sort factors (columns of A) according to factor contributions. `print` = 1 to print the result

### Details

First, if sortcols == 1, the columns of A are reordered according to the magnitude of `diag(t(A)%*%A)`.
Then, for each row, the column number of the maximum elements of abs(A) is recorded (as max.col(abs(A))) and the rows of A are sorted according to these column numbers.
Finally, within each max.col group, the rows are again sorted according to the magnitude of A.

### Value

A list of
row_order = sort order of the rows
col_order = sort order of the cols

### Examples

```set.seed(1701)
n <- 20; ndim <- 4
A0 <- matrix(runif(n*ndim),n,ndim)
resr <- reorder_fa(A0v)
Print(A0v,A0vr, fmt="6.3", fuzz=0.7)

# reordered matrix from original
dif1 <- A0vr-A0v[resr\$row_order,resr\$col_order]

# original from reordered matrix
A0v2 <- A0vr; A0v2[resr\$row_order,resr\$col_order] <- A0vr
rownames(A0v2)[resr\$row_order] <- rownames(A0vr)
Print(A0v,A0v2, fmt="6.3")
dif2 <- A0v2-A0v
Print(dif1, dif2)

# attributes
print(A0vr)
print(reorder_fa(A0v, unclass=1))

```

[Package lazy.tools version 0.1.3 Index]