---
title: "The Forbes Extension: Skip-Level Connections and Pruning"
output: rmarkdown::html_vignette
vignette: >
  %\VignetteIndexEntry{The Forbes Extension: Skip-Level Connections and Pruning}
  %\VignetteEngine{knitr::rmarkdown}
  %\VignetteEncoding{UTF-8}
---

<!-- Generated by vignettes/precompute.R; DO NOT EDIT BY HAND.
     Edit ackwards-forbes.Rmd.orig and re-run `Rscript vignettes/precompute.R`.
     Freshness is enforced by tools/check-vignette-freshness.R. -->
<!-- precompute-stamp: source=ackwards-forbes.Rmd.orig md5=d0d92a2dd1b2afce3fdb63b23e7c4a78 -->



The classic Goldberg (2006) method computes between-level factor-score
correlations only for *adjacent* levels: 1↔2, 2↔3, 3↔4, and so on. Forbes
(2023) extended this in two ways: computing correlations across *all* level
pairs (not just adjacent), and using those extra connections to identify and
flag **redundant** or **artifactual** factors in the hierarchy.

This vignette covers both extensions: `pairs = "all"` and `prune`. It teaches
the concepts on a small didactic dataset; for a full reproduction of the
paper's 155-variable applied example on the bundled `forbes2023` dataset, see
`vignette("ackwards-forbes2023")`.

## The limitation of adjacent-only edges

An adjacent-only hierarchy shows you the immediate parent–child relationships.
What it cannot tell you is whether a factor at level k is essentially the same
construct as a factor several levels up — a sign that the intermediate levels
are adding noise rather than resolution.

Consider a factor that appears at k = 2, k = 3, and k = 4 and correlates
> 0.97 with its counterpart at every adjacent level. The adjacent-only diagram
shows three consecutive arrows, each nearly perfect. But nothing in the diagram
directly flags that the k = 3 factor is redundant: you could skip straight from
k = 2 to k = 4 without losing any information.

**Skip-level correlations** make this visible by computing the correlation
between every pair of levels, not just neighbors.

## Setup


``` r
library(ackwards)
bfi <- na.omit(bfi25)
```

## Computing every between-level correlation with `pairs = "all"`

Adding `pairs = "all"` extends the edge table from adjacent pairs only to every
combination of levels.


``` r
# Classic adjacent-only
x_adj <- ackwards(bfi, k_max = 5, cor = "polychoric")

# All pairs
x_all <- ackwards(bfi, k_max = 5, cor = "polychoric", pairs = "all")

# How many edges?
nrow(tidy(x_adj, what = "edges")) # adjacent only
#> [1] 40
nrow(tidy(x_all, what = "edges")) # all pairs
#> [1] 85
```



With k = 5, the adjacent-only model has 40 edges (1×2 + 2×3 + 3×4 +
4×5). The all-pairs model adds every non-adjacent pair — 1↔3, 1↔4, 1↔5, 2↔4,
2↔5, 3↔5 — for 85 edges total.

### Reading the skip-level edge table

The table below keeps the non-adjacent edges (levels more than one apart) with
`|r| >= 0.5`, strongest first — drawn from `tidy(x_all, what = "edges")`:

<!--html_preserve--><div id="vlcwcmztyi" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
<style>#vlcwcmztyi table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#vlcwcmztyi thead, #vlcwcmztyi tbody, #vlcwcmztyi tfoot, #vlcwcmztyi tr, #vlcwcmztyi td, #vlcwcmztyi th {
  border-style: none;
}

#vlcwcmztyi p {
  margin: 0;
  padding: 0;
}

#vlcwcmztyi .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#vlcwcmztyi .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#vlcwcmztyi .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#vlcwcmztyi .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#vlcwcmztyi .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#vlcwcmztyi .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#vlcwcmztyi .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#vlcwcmztyi .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#vlcwcmztyi .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#vlcwcmztyi .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#vlcwcmztyi .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#vlcwcmztyi .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#vlcwcmztyi .gt_spanner_row {
  border-bottom-style: hidden;
}

#vlcwcmztyi .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#vlcwcmztyi .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#vlcwcmztyi .gt_from_md > :first-child {
  margin-top: 0;
}

#vlcwcmztyi .gt_from_md > :last-child {
  margin-bottom: 0;
}

#vlcwcmztyi .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#vlcwcmztyi .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#vlcwcmztyi .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#vlcwcmztyi .gt_row_group_first td {
  border-top-width: 2px;
}

#vlcwcmztyi .gt_row_group_first th {
  border-top-width: 2px;
}

#vlcwcmztyi .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#vlcwcmztyi .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#vlcwcmztyi .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#vlcwcmztyi .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#vlcwcmztyi .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#vlcwcmztyi .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#vlcwcmztyi .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#vlcwcmztyi .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#vlcwcmztyi .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#vlcwcmztyi .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#vlcwcmztyi .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#vlcwcmztyi .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#vlcwcmztyi .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#vlcwcmztyi .gt_left {
  text-align: left;
}

#vlcwcmztyi .gt_center {
  text-align: center;
}

#vlcwcmztyi .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#vlcwcmztyi .gt_font_normal {
  font-weight: normal;
}

#vlcwcmztyi .gt_font_bold {
  font-weight: bold;
}

#vlcwcmztyi .gt_font_italic {
  font-style: italic;
}

#vlcwcmztyi .gt_super {
  font-size: 65%;
}

#vlcwcmztyi .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#vlcwcmztyi .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#vlcwcmztyi .gt_indent_1 {
  text-indent: 5px;
}

#vlcwcmztyi .gt_indent_2 {
  text-indent: 10px;
}

#vlcwcmztyi .gt_indent_3 {
  text-indent: 15px;
}

#vlcwcmztyi .gt_indent_4 {
  text-indent: 20px;
}

#vlcwcmztyi .gt_indent_5 {
  text-indent: 25px;
}

#vlcwcmztyi .katex-display {
  display: inline-flex !important;
  margin-bottom: 0.75em !important;
}

#vlcwcmztyi div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
  height: 0px !important;
}
</style>
<table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    <tr class="gt_heading">
      <td colspan="5" class="gt_heading gt_title gt_font_normal" style>Strongest skip-level edges (|r| ≥ 0.5, non-adjacent levels)</td>
    </tr>
    <tr class="gt_heading">
      <td colspan="5" class="gt_heading gt_subtitle gt_font_normal gt_bottom_border" style>Sorted by |r|; shows at most 12 rows</td>
    </tr>
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="from">From</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="to">To</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="level_from">Level (from)</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="level_to">Level (to)</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="r">r</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="from" class="gt_row gt_left">m3f2</td>
<td headers="to" class="gt_row gt_left">m5f2</td>
<td headers="level_from" class="gt_row gt_right">3</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.98</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f2</td>
<td headers="to" class="gt_row gt_left">m4f2</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">4</td>
<td headers="r" class="gt_row gt_right">0.97</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f2</td>
<td headers="to" class="gt_row gt_left">m5f2</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.97</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f1</td>
<td headers="to" class="gt_row gt_left">m4f1</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">4</td>
<td headers="r" class="gt_row gt_right">0.85</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m3f1</td>
<td headers="to" class="gt_row gt_left">m5f1</td>
<td headers="level_from" class="gt_row gt_right">3</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.82</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m1f1</td>
<td headers="to" class="gt_row gt_left">m3f1</td>
<td headers="level_from" class="gt_row gt_right">1</td>
<td headers="level_to" class="gt_row gt_right">3</td>
<td headers="r" class="gt_row gt_right">0.77</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m1f1</td>
<td headers="to" class="gt_row gt_left">m4f1</td>
<td headers="level_from" class="gt_row gt_right">1</td>
<td headers="level_to" class="gt_row gt_right">4</td>
<td headers="r" class="gt_row gt_right">0.75</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m3f3</td>
<td headers="to" class="gt_row gt_left">m5f3</td>
<td headers="level_from" class="gt_row gt_right">3</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.73</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f1</td>
<td headers="to" class="gt_row gt_left">m5f1</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.69</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m3f3</td>
<td headers="to" class="gt_row gt_left">m5f5</td>
<td headers="level_from" class="gt_row gt_right">3</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.68</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m1f1</td>
<td headers="to" class="gt_row gt_left">m5f1</td>
<td headers="level_from" class="gt_row gt_right">1</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.61</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m3f1</td>
<td headers="to" class="gt_row gt_left">m5f4</td>
<td headers="level_from" class="gt_row gt_right">3</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.56</td></tr>
  </tbody>
  
</table>
</div><!--/html_preserve-->

Several factors connect across two or more levels with correlations above 0.90.
m3f2 (level 3, factor 2) correlates
0.98 with m5f2 (level 5, factor 2),
jumping *two* levels. This tells you that m3f2 and m5f2 are
essentially the same construct — the intermediate levels are just refinements
within a stable dimension.

### Reading the strongest edge with care

Reading the *strongest* edge off a table of many correlations is itself a form
of selection. With k = 5 the all-pairs table holds 85 edges, and the
maximum of that many correlations is biased upward even when every individual
estimate is honest. Treat a "strongest link" claim as descriptive rather than
inferential: if it is load-bearing, pre-specify which pair of factors you care
about rather than reporting whichever correlation came out largest.

## Pruning: identifying redundant factors

The `prune()` verb uses the skip-level correlations to automatically flag
factors that may not be adding genuine information to the hierarchy.

### Chains of near-identical factors with `prune(x, "redundant")`

A **redundant chain** is a sequence of factors connected by near-perfect
correlations (|r| ≥ 0.9 by default) across levels. If m2f2 → m3f2 → m4f2 →
m5f1 all share r > 0.97, the chain reaches the deepest level, so its bottom
node m5f1 — the most specific, best-defined manifestation — is retained and
the others (m2f2, m3f2, m4f2) are flagged as redundant: they repeat rather
than refine the same dimension. A chain that stops *short* of the deepest
level instead keeps its **top** node, the broadest manifestation (Forbes,
2023).

By default (`redundancy_criterion = "direct"`) the criterion is a **star
anchored on the chain's deepest factor**, not a walk. Every candidate ancestor
is judged by its own score correlation *directly* with that deepest leaf: the
chain forms while each shallower factor correlates `|r| ≥ 0.9` with the leaf
(sharing ≥ 81% of its variance directly) — the rule Forbes's own code uses, and
the honest reading of "the same construct". Two things it is **not**: it does
not require each consecutive pair to correlate (that adjacent-hop rule is
`redundancy_criterion = "adjacent"`), and it does not screen every ancestor pair
against every other. Because correlation is non-transitive, the star and the
adjacent-hop walk can disagree in deep hierarchies — an ancestor can join on a
strong direct link to the leaf even where its hop to the next chain member is
weak; on a shallow hierarchy like this one the two agree.


``` r
x_prune <- ackwards(bfi, k_max = 5, cor = "polychoric", pairs = "all") |>
  prune("redundant")
#> ℹ Redundancy pruning (direct criterion, |r| ≥ 0.9) flagged 6 nodes.
#> ℹ Nodes are retained in the object; inspect with `x$prune$nodes` and
#>   `x$prune$chains`.
```

<!--html_preserve--><div id="cqzvnyhkxv" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
<style>#cqzvnyhkxv table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#cqzvnyhkxv thead, #cqzvnyhkxv tbody, #cqzvnyhkxv tfoot, #cqzvnyhkxv tr, #cqzvnyhkxv td, #cqzvnyhkxv th {
  border-style: none;
}

#cqzvnyhkxv p {
  margin: 0;
  padding: 0;
}

#cqzvnyhkxv .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#cqzvnyhkxv .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#cqzvnyhkxv .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#cqzvnyhkxv .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#cqzvnyhkxv .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#cqzvnyhkxv .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#cqzvnyhkxv .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#cqzvnyhkxv .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#cqzvnyhkxv .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#cqzvnyhkxv .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#cqzvnyhkxv .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#cqzvnyhkxv .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#cqzvnyhkxv .gt_spanner_row {
  border-bottom-style: hidden;
}

#cqzvnyhkxv .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#cqzvnyhkxv .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#cqzvnyhkxv .gt_from_md > :first-child {
  margin-top: 0;
}

#cqzvnyhkxv .gt_from_md > :last-child {
  margin-bottom: 0;
}

#cqzvnyhkxv .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#cqzvnyhkxv .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#cqzvnyhkxv .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#cqzvnyhkxv .gt_row_group_first td {
  border-top-width: 2px;
}

#cqzvnyhkxv .gt_row_group_first th {
  border-top-width: 2px;
}

#cqzvnyhkxv .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#cqzvnyhkxv .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#cqzvnyhkxv .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#cqzvnyhkxv .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#cqzvnyhkxv .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#cqzvnyhkxv .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#cqzvnyhkxv .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#cqzvnyhkxv .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#cqzvnyhkxv .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#cqzvnyhkxv .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#cqzvnyhkxv .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#cqzvnyhkxv .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#cqzvnyhkxv .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#cqzvnyhkxv .gt_left {
  text-align: left;
}

#cqzvnyhkxv .gt_center {
  text-align: center;
}

#cqzvnyhkxv .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#cqzvnyhkxv .gt_font_normal {
  font-weight: normal;
}

#cqzvnyhkxv .gt_font_bold {
  font-weight: bold;
}

#cqzvnyhkxv .gt_font_italic {
  font-style: italic;
}

#cqzvnyhkxv .gt_super {
  font-size: 65%;
}

#cqzvnyhkxv .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#cqzvnyhkxv .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#cqzvnyhkxv .gt_indent_1 {
  text-indent: 5px;
}

#cqzvnyhkxv .gt_indent_2 {
  text-indent: 10px;
}

#cqzvnyhkxv .gt_indent_3 {
  text-indent: 15px;
}

#cqzvnyhkxv .gt_indent_4 {
  text-indent: 20px;
}

#cqzvnyhkxv .gt_indent_5 {
  text-indent: 25px;
}

#cqzvnyhkxv .katex-display {
  display: inline-flex !important;
  margin-bottom: 0.75em !important;
}

#cqzvnyhkxv div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
  height: 0px !important;
}
</style>
<table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    <tr class="gt_heading">
      <td colspan="4" class="gt_heading gt_title gt_font_normal" style>Node-level pruning annotation</td>
    </tr>
    <tr class="gt_heading">
      <td colspan="4" class="gt_heading gt_subtitle gt_font_normal gt_bottom_border" style>6 of 15 factors flagged as redundant</td>
    </tr>
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="id">Factor</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="level">Level</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_center" rowspan="1" colspan="1" scope="col" id="pruned">Flagged?</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="prune_reason">Reason</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="id" class="gt_row gt_left">m1f1</td>
<td headers="level" class="gt_row gt_right">1</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m2f1</td>
<td headers="level" class="gt_row gt_right">2</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
    <tr><td headers="id" class="gt_row gt_left" style="background-color: #FFF3CD; font-weight: bold;">m2f2</td>
<td headers="level" class="gt_row gt_right" style="background-color: #FFF3CD;">2</td>
<td headers="pruned" class="gt_row gt_center" style="background-color: #FFF3CD;">TRUE</td>
<td headers="prune_reason" class="gt_row gt_left" style="background-color: #FFF3CD;">redundant</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m3f1</td>
<td headers="level" class="gt_row gt_right">3</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
    <tr><td headers="id" class="gt_row gt_left" style="background-color: #FFF3CD; font-weight: bold;">m3f2</td>
<td headers="level" class="gt_row gt_right" style="background-color: #FFF3CD;">3</td>
<td headers="pruned" class="gt_row gt_center" style="background-color: #FFF3CD;">TRUE</td>
<td headers="prune_reason" class="gt_row gt_left" style="background-color: #FFF3CD;">redundant</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m3f3</td>
<td headers="level" class="gt_row gt_right">3</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
    <tr><td headers="id" class="gt_row gt_left" style="background-color: #FFF3CD; font-weight: bold;">m4f1</td>
<td headers="level" class="gt_row gt_right" style="background-color: #FFF3CD;">4</td>
<td headers="pruned" class="gt_row gt_center" style="background-color: #FFF3CD;">TRUE</td>
<td headers="prune_reason" class="gt_row gt_left" style="background-color: #FFF3CD;">redundant</td></tr>
    <tr><td headers="id" class="gt_row gt_left" style="background-color: #FFF3CD; font-weight: bold;">m4f2</td>
<td headers="level" class="gt_row gt_right" style="background-color: #FFF3CD;">4</td>
<td headers="pruned" class="gt_row gt_center" style="background-color: #FFF3CD;">TRUE</td>
<td headers="prune_reason" class="gt_row gt_left" style="background-color: #FFF3CD;">redundant</td></tr>
    <tr><td headers="id" class="gt_row gt_left" style="background-color: #FFF3CD; font-weight: bold;">m4f3</td>
<td headers="level" class="gt_row gt_right" style="background-color: #FFF3CD;">4</td>
<td headers="pruned" class="gt_row gt_center" style="background-color: #FFF3CD;">TRUE</td>
<td headers="prune_reason" class="gt_row gt_left" style="background-color: #FFF3CD;">redundant</td></tr>
    <tr><td headers="id" class="gt_row gt_left" style="background-color: #FFF3CD; font-weight: bold;">m4f4</td>
<td headers="level" class="gt_row gt_right" style="background-color: #FFF3CD;">4</td>
<td headers="pruned" class="gt_row gt_center" style="background-color: #FFF3CD;">TRUE</td>
<td headers="prune_reason" class="gt_row gt_left" style="background-color: #FFF3CD;">redundant</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f1</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f2</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f3</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f4</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f5</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="pruned" class="gt_row gt_center">FALSE</td>
<td headers="prune_reason" class="gt_row gt_left">—</td></tr>
  </tbody>
  
</table>
</div><!--/html_preserve-->

6 factors are flagged as redundant (m2f2, m3f2, m4f1, m4f2, m4f3, m4f4):
1 factor at k = 2, 1 factor at k = 3, the entire k = 4 level. This is a striking finding: for this dataset and this k, the
four-factor level adds little beyond what you already know from k = 3 and k = 5.

The flagged factors are not removed from the object — `prune()` is purely a
diagnostic annotation, not a deletion. You can still inspect their loadings, use
their scores, and include them in the diagram. Pruning flags guide interpretation;
they do not alter the model.

### The pruned-factor diagram

For presentations and publications it is cleaner to omit the flagged factors
entirely and draw direct connections from each retained factor to its single
strongest kept ancestor — even when that ancestor is several levels away. This
is the Forbes (2023) pruned-factor diagram, activated by `drop_pruned = TRUE`.

Forbes (2023) presents two variants: one with correlation labels on each arrow
and one without. The first is useful when the strength of each spanning
connection matters to the interpretation; the second is cleaner for
presentations. Both are reproduced below using the same publication style —
black lines, uniform width, plain line ends, and no legend.

**With correlation labels** (`show_r = TRUE`):


``` r
autoplot(x_prune,
  drop_pruned = TRUE, show_r = TRUE,
  color_pos = "black", color_neg = "black",
  edge_linewidth = 0.6, show_arrows = FALSE, legend = FALSE
)
```

![plot of chunk drop-pruned](assets/ackwards-forbes-drop-pruned-1.png)

**Without labels** (cleaner for slides or when the exact values are not the focus):


``` r
autoplot(x_prune,
  drop_pruned = TRUE,
  color_pos = "black", color_neg = "black",
  edge_linewidth = 0.6, show_arrows = FALSE, legend = FALSE
)
```

![plot of chunk drop-pruned-unlabeled](assets/ackwards-forbes-drop-pruned-unlabeled-1.png)

Level 4 is entirely pruned, leaving a visible gap in the y-axis. The gap is
intentional: it shows *which* level was removed. Spanning arrows bridge
directly from level 3 factors to level 5 factors (and from level 2 to level 5
where intermediate levels were flagged). In this publication style every drawn
line has the same uniform weight (`edge_linewidth = 0.6`); only connections
with |r| at or above the display threshold (`cut_show`, default 0.3) are drawn
at all.

To close the gaps and compact the layout while retaining the original level
numbers on the axis:


``` r
autoplot(x_prune,
  drop_pruned = TRUE, compress_levels = TRUE,
  color_pos = "black", color_neg = "black",
  edge_linewidth = 0.6, show_arrows = FALSE, legend = FALSE
)
```

![plot of chunk drop-pruned-compressed](assets/ackwards-forbes-drop-pruned-compressed-1.png)

The level labels still read "1 factor", "2 factors", "3 factors", "5 factors"
so readers know which levels were retained; the uniform vertical spacing makes
the diagram easier to read in constrained page layouts.

For further cosmetic customization — colours, node labels, arrowheads, and
more — see `vignette("ackwards-visualization")`.

### Inspecting structural similarity with `prune(x, "artifact")`

An **artifact** factor is one that looks like a *copy* of a factor from
another level rather than a genuine refinement — its loading pattern closely
resembles a factor elsewhere in the hierarchy. Similarity is measured by
Tucker's congruence coefficient (φ):

$$\phi(F_a, F_b) = \frac{\sum_i \lambda_{ia}\lambda_{ib}}
{\sqrt{\sum_i \lambda_{ia}^2 \cdot \sum_i \lambda_{ib}^2}}$$

φ ranges from −1 to +1, with values above 0.95 conventionally read as
near-identical loading patterns regardless of sign (Lorenzo-Seva & ten Berge,
2006).

Unlike `"redundant"`, the artifact mode **never drops anything
automatically**. The reason is not that flagging would add investigator degrees
of freedom — a standardized flag that is always computed the same way *removes*
researcher discretion rather than adding it. It is that the *decision* to drop a
factor as an artifact is substantive: Forbes (2023) is explicit that identifying
an artifact requires researcher judgment. So `prune(x, "artifact")` computes and
stores the evidence for *you* to weigh — Tucker's φ for **every** cross-level
factor pair in `x$prune$phi`, plus the structural signals of the next section in
`x$prune$structural` — and leaves the drop decision to you.


``` r
x_art <- ackwards(bfi, k_max = 5, cor = "polychoric", pairs = "all") |>
  prune("artifact")
#> ℹ Artifact mode: Tucker's φ computed for all cross-level factor pairs.
#> ℹ Structural signals computed: 2 factors flagged (few_items / orphan /
#>   split_merge).
#> ℹ Near-redundant band: 5 cross-level pairs just below the redundancy thresholds
#>   (|r| in [0.8, 0.9)).
#> ℹ Inspect `x$prune$phi`, `x$prune$structural`, and `x$prune$near_redundant`;
#>   removal is a researcher judgment (Forbes, 2023).
```

The table to read is `x$prune$phi`. The natural first cut is the
**non-adjacent** pairs with the highest |φ| — a deep factor whose loading
pattern nearly duplicates a factor two or more levels up is the classic
candidate:

<!--html_preserve--><div id="vixcpspfhs" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
<style>#vixcpspfhs table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#vixcpspfhs thead, #vixcpspfhs tbody, #vixcpspfhs tfoot, #vixcpspfhs tr, #vixcpspfhs td, #vixcpspfhs th {
  border-style: none;
}

#vixcpspfhs p {
  margin: 0;
  padding: 0;
}

#vixcpspfhs .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#vixcpspfhs .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#vixcpspfhs .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#vixcpspfhs .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#vixcpspfhs .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#vixcpspfhs .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#vixcpspfhs .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#vixcpspfhs .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#vixcpspfhs .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#vixcpspfhs .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#vixcpspfhs .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#vixcpspfhs .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#vixcpspfhs .gt_spanner_row {
  border-bottom-style: hidden;
}

#vixcpspfhs .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#vixcpspfhs .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#vixcpspfhs .gt_from_md > :first-child {
  margin-top: 0;
}

#vixcpspfhs .gt_from_md > :last-child {
  margin-bottom: 0;
}

#vixcpspfhs .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#vixcpspfhs .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#vixcpspfhs .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#vixcpspfhs .gt_row_group_first td {
  border-top-width: 2px;
}

#vixcpspfhs .gt_row_group_first th {
  border-top-width: 2px;
}

#vixcpspfhs .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#vixcpspfhs .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#vixcpspfhs .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#vixcpspfhs .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#vixcpspfhs .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#vixcpspfhs .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#vixcpspfhs .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#vixcpspfhs .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#vixcpspfhs .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#vixcpspfhs .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#vixcpspfhs .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#vixcpspfhs .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#vixcpspfhs .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#vixcpspfhs .gt_left {
  text-align: left;
}

#vixcpspfhs .gt_center {
  text-align: center;
}

#vixcpspfhs .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#vixcpspfhs .gt_font_normal {
  font-weight: normal;
}

#vixcpspfhs .gt_font_bold {
  font-weight: bold;
}

#vixcpspfhs .gt_font_italic {
  font-style: italic;
}

#vixcpspfhs .gt_super {
  font-size: 65%;
}

#vixcpspfhs .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#vixcpspfhs .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#vixcpspfhs .gt_indent_1 {
  text-indent: 5px;
}

#vixcpspfhs .gt_indent_2 {
  text-indent: 10px;
}

#vixcpspfhs .gt_indent_3 {
  text-indent: 15px;
}

#vixcpspfhs .gt_indent_4 {
  text-indent: 20px;
}

#vixcpspfhs .gt_indent_5 {
  text-indent: 25px;
}

#vixcpspfhs .katex-display {
  display: inline-flex !important;
  margin-bottom: 0.75em !important;
}

#vixcpspfhs div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
  height: 0px !important;
}
</style>
<table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    <tr class="gt_heading">
      <td colspan="5" class="gt_heading gt_title gt_font_normal" style>Strongest non-adjacent loading congruences</td>
    </tr>
    <tr class="gt_heading">
      <td colspan="5" class="gt_heading gt_subtitle gt_font_normal gt_bottom_border" style>Top 8 pairs by |φ|, from x$prune$phi — evidence, not flags</td>
    </tr>
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="from">From</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="to">To</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="level_from">Level (from)</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="level_to">Level (to)</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="phi">φ</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="from" class="gt_row gt_left">m3f2</td>
<td headers="to" class="gt_row gt_left">m5f2</td>
<td headers="level_from" class="gt_row gt_right">3</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="phi" class="gt_row gt_right">0.99</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f2</td>
<td headers="to" class="gt_row gt_left">m4f2</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">4</td>
<td headers="phi" class="gt_row gt_right">0.98</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f2</td>
<td headers="to" class="gt_row gt_left">m5f2</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="phi" class="gt_row gt_right">0.98</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f1</td>
<td headers="to" class="gt_row gt_left">m4f1</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">4</td>
<td headers="phi" class="gt_row gt_right">0.93</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m3f1</td>
<td headers="to" class="gt_row gt_left">m5f1</td>
<td headers="level_from" class="gt_row gt_right">3</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="phi" class="gt_row gt_right">0.92</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m1f1</td>
<td headers="to" class="gt_row gt_left">m3f1</td>
<td headers="level_from" class="gt_row gt_right">1</td>
<td headers="level_to" class="gt_row gt_right">3</td>
<td headers="phi" class="gt_row gt_right">0.88</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m1f1</td>
<td headers="to" class="gt_row gt_left">m4f1</td>
<td headers="level_from" class="gt_row gt_right">1</td>
<td headers="level_to" class="gt_row gt_right">4</td>
<td headers="phi" class="gt_row gt_right">0.86</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f1</td>
<td headers="to" class="gt_row gt_left">m5f1</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="phi" class="gt_row gt_right">0.85</td></tr>
  </tbody>
  
</table>
</div><!--/html_preserve-->

For these data the strongest non-adjacent congruence is |φ| = 0.99.
Values near 1 mean the deeper factor recycles an earlier loading pattern — but a
congruence *this* high travels with a near-perfect score correlation too, so
these top pairs are already the province of `prune(x, "redundant")`: the factor
they name is flagged (and dropped from the publication diagram) by the
redundancy rule above. The distinctive contribution of artifact mode is not
re-flagging what redundancy already caught; it is surfacing the messier band
*just below* the redundancy thresholds.

### The near-redundant band

Full redundancy — `|r| ≥ redundancy_r` — is dropped in the redundancy stage.
Forbes (2023) uses the artifact flags mainly for the pairs that sit *just under*
that line: a pair that correlates, say, `|r| = 0.89` and shares a loading pattern
`φ = 0.94` is not quite redundant, but it is a candidate re-rotation worth a
second look rather than a clean new level of resolution. `prune(x, "artifact")`
collects exactly these in `x$prune$near_redundant`: every cross-level pair that
is **not** itself fully redundant yet has its direct score correlation `|r|` (or,
off PCA, its Tucker `φ`) within `near_margin` (default `0.1`) *below* the
corresponding threshold.


```
#> ℹ Redundancy pruning (direct criterion, |r| ≥ 0.9) flagged 6 nodes.
#> ℹ Nodes are retained in the object; inspect with `x$prune$nodes` and
#>   `x$prune$chains`.
```

<!--html_preserve--><div id="enmimhltip" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
<style>#enmimhltip table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#enmimhltip thead, #enmimhltip tbody, #enmimhltip tfoot, #enmimhltip tr, #enmimhltip td, #enmimhltip th {
  border-style: none;
}

#enmimhltip p {
  margin: 0;
  padding: 0;
}

#enmimhltip .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#enmimhltip .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#enmimhltip .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#enmimhltip .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#enmimhltip .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#enmimhltip .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#enmimhltip .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#enmimhltip .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#enmimhltip .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#enmimhltip .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#enmimhltip .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#enmimhltip .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#enmimhltip .gt_spanner_row {
  border-bottom-style: hidden;
}

#enmimhltip .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#enmimhltip .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#enmimhltip .gt_from_md > :first-child {
  margin-top: 0;
}

#enmimhltip .gt_from_md > :last-child {
  margin-bottom: 0;
}

#enmimhltip .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#enmimhltip .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#enmimhltip .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#enmimhltip .gt_row_group_first td {
  border-top-width: 2px;
}

#enmimhltip .gt_row_group_first th {
  border-top-width: 2px;
}

#enmimhltip .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#enmimhltip .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#enmimhltip .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#enmimhltip .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#enmimhltip .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#enmimhltip .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#enmimhltip .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#enmimhltip .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#enmimhltip .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#enmimhltip .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#enmimhltip .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#enmimhltip .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#enmimhltip .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#enmimhltip .gt_left {
  text-align: left;
}

#enmimhltip .gt_center {
  text-align: center;
}

#enmimhltip .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#enmimhltip .gt_font_normal {
  font-weight: normal;
}

#enmimhltip .gt_font_bold {
  font-weight: bold;
}

#enmimhltip .gt_font_italic {
  font-style: italic;
}

#enmimhltip .gt_super {
  font-size: 65%;
}

#enmimhltip .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#enmimhltip .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#enmimhltip .gt_indent_1 {
  text-indent: 5px;
}

#enmimhltip .gt_indent_2 {
  text-indent: 10px;
}

#enmimhltip .gt_indent_3 {
  text-indent: 15px;
}

#enmimhltip .gt_indent_4 {
  text-indent: 20px;
}

#enmimhltip .gt_indent_5 {
  text-indent: 25px;
}

#enmimhltip .katex-display {
  display: inline-flex !important;
  margin-bottom: 0.75em !important;
}

#enmimhltip div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
  height: 0px !important;
}
</style>
<table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    <tr class="gt_heading">
      <td colspan="6" class="gt_heading gt_title gt_font_normal" style>Near-redundant band</td>
    </tr>
    <tr class="gt_heading">
      <td colspan="6" class="gt_heading gt_subtitle gt_font_normal gt_bottom_border" style>Cross-level pairs just below the redundancy thresholds — evidence, not flags</td>
    </tr>
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="from">From</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="to">To</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="level_from">Level (from)</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="level_to">Level (to)</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="r">r</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="phi">φ</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="from" class="gt_row gt_left">m1f1</td>
<td headers="to" class="gt_row gt_left">m2f1</td>
<td headers="level_from" class="gt_row gt_right">1</td>
<td headers="level_to" class="gt_row gt_right">2</td>
<td headers="r" class="gt_row gt_right">0.89</td>
<td headers="phi" class="gt_row gt_right">0.94</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f1</td>
<td headers="to" class="gt_row gt_left">m3f1</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">3</td>
<td headers="r" class="gt_row gt_right">0.87</td>
<td headers="phi" class="gt_row gt_right">0.94</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m2f1</td>
<td headers="to" class="gt_row gt_left">m4f1</td>
<td headers="level_from" class="gt_row gt_right">2</td>
<td headers="level_to" class="gt_row gt_right">4</td>
<td headers="r" class="gt_row gt_right">0.85</td>
<td headers="phi" class="gt_row gt_right">0.93</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m4f1</td>
<td headers="to" class="gt_row gt_left">m5f1</td>
<td headers="level_from" class="gt_row gt_right">4</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.84</td>
<td headers="phi" class="gt_row gt_right">0.93</td></tr>
    <tr><td headers="from" class="gt_row gt_left">m3f1</td>
<td headers="to" class="gt_row gt_left">m5f1</td>
<td headers="level_from" class="gt_row gt_right">3</td>
<td headers="level_to" class="gt_row gt_right">5</td>
<td headers="r" class="gt_row gt_right">0.82</td>
<td headers="phi" class="gt_row gt_right">0.92</td></tr>
  </tbody>
  
</table>
</div><!--/html_preserve-->

The strongest near-redundant pair here is m1f1 ↔ m2f1
(r = 0.89, φ = 0.94) —
and, unlike the top-φ pairs above, neither factor is flagged by prune(x, "redundant"): this pair is a genuine near-miss, not something redundancy already drops.
The examples here use the default PCA engine, so `redundancy_phi` is `NULL` and
only the `|r|` band is active; on an EFA or ESEM fit `redundancy_phi`
auto-resolves to `0.95` and the `φ` band switches on too (`prune()` announces
this). Widen or narrow the band with `near_margin`. Like the φ table, the band is
**report-only** — no factor is dropped on its basis.

The two modes surface different fingerprints of the same underlying question:

- `"redundant"`: this factor appears at multiple levels with near-identical
  *score correlations* — it persists unchanged as k increases. Auto-flagged
  (with Forbes's retention rule), because the score-correlation chain is a
  sharp, replicable criterion.
- `"artifact"`: this factor's *loading pattern* closely resembles a factor
  elsewhere in the hierarchy, or its structure looks under-identified (next
  section). Reported only — the call is yours.

### Structural artifact signals

Congruence (φ) is not the only fingerprint of an artifactual factor. Forbes
(2023, Fig. 2) describes several *structural* signatures, and
`prune(x, "artifact")` reports three of them per factor in `x$prune$structural`:

- **`few_items`** — the factor is the primary (highest-loading) home for fewer
  than `min_items` items (default `3`). A factor anchored by one or two items is
  under-identified and often an extraction artifact rather than a replicable
  construct.
- **`orphan`** — the factor's strongest correlation to the immediately
  neighbouring levels is below `orphan_r` (default `0.5`). It does not connect to
  the solutions on either side, so it does not replicate across the hierarchy.
- **`split_merge`** — the factor's primary items were spread across *two or more
  different* parent factors at the level above. Items that were separated at the
  coarser solution have been merged under one factor at the finer solution — the
  split-then-merge anomaly of Forbes Fig. 2.

<!--html_preserve--><div id="ijvoequvti" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
<style>#ijvoequvti table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#ijvoequvti thead, #ijvoequvti tbody, #ijvoequvti tfoot, #ijvoequvti tr, #ijvoequvti td, #ijvoequvti th {
  border-style: none;
}

#ijvoequvti p {
  margin: 0;
  padding: 0;
}

#ijvoequvti .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#ijvoequvti .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#ijvoequvti .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#ijvoequvti .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#ijvoequvti .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#ijvoequvti .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#ijvoequvti .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#ijvoequvti .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#ijvoequvti .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#ijvoequvti .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#ijvoequvti .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#ijvoequvti .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#ijvoequvti .gt_spanner_row {
  border-bottom-style: hidden;
}

#ijvoequvti .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#ijvoequvti .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#ijvoequvti .gt_from_md > :first-child {
  margin-top: 0;
}

#ijvoequvti .gt_from_md > :last-child {
  margin-bottom: 0;
}

#ijvoequvti .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#ijvoequvti .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#ijvoequvti .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#ijvoequvti .gt_row_group_first td {
  border-top-width: 2px;
}

#ijvoequvti .gt_row_group_first th {
  border-top-width: 2px;
}

#ijvoequvti .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#ijvoequvti .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#ijvoequvti .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#ijvoequvti .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#ijvoequvti .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#ijvoequvti .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#ijvoequvti .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#ijvoequvti .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#ijvoequvti .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#ijvoequvti .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#ijvoequvti .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#ijvoequvti .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#ijvoequvti .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#ijvoequvti .gt_left {
  text-align: left;
}

#ijvoequvti .gt_center {
  text-align: center;
}

#ijvoequvti .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#ijvoequvti .gt_font_normal {
  font-weight: normal;
}

#ijvoequvti .gt_font_bold {
  font-weight: bold;
}

#ijvoequvti .gt_font_italic {
  font-style: italic;
}

#ijvoequvti .gt_super {
  font-size: 65%;
}

#ijvoequvti .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#ijvoequvti .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#ijvoequvti .gt_indent_1 {
  text-indent: 5px;
}

#ijvoequvti .gt_indent_2 {
  text-indent: 10px;
}

#ijvoequvti .gt_indent_3 {
  text-indent: 15px;
}

#ijvoequvti .gt_indent_4 {
  text-indent: 20px;
}

#ijvoequvti .gt_indent_5 {
  text-indent: 25px;
}

#ijvoequvti .katex-display {
  display: inline-flex !important;
  margin-bottom: 0.75em !important;
}

#ijvoequvti div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
  height: 0px !important;
}
</style>
<table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    <tr class="gt_heading">
      <td colspan="5" class="gt_heading gt_title gt_font_normal" style>Structural artifact signals</td>
    </tr>
    <tr class="gt_heading">
      <td colspan="5" class="gt_heading gt_subtitle gt_font_normal gt_bottom_border" style>2 of 15 factors raise a structural signal</td>
    </tr>
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_left" rowspan="1" colspan="1" scope="col" id="id">Factor</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="level">Level</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_center" rowspan="1" colspan="1" scope="col" id="few_items">Few items</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_center" rowspan="1" colspan="1" scope="col" id="orphan">Orphan</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_center" rowspan="1" colspan="1" scope="col" id="split_merge">Split/merge</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="id" class="gt_row gt_left">m1f1</td>
<td headers="level" class="gt_row gt_right">1</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m2f1</td>
<td headers="level" class="gt_row gt_right">2</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m2f2</td>
<td headers="level" class="gt_row gt_right">2</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m3f1</td>
<td headers="level" class="gt_row gt_right">3</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m3f2</td>
<td headers="level" class="gt_row gt_right">3</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m3f3</td>
<td headers="level" class="gt_row gt_right">3</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center" style="background-color: #FFF3CD;">TRUE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m4f1</td>
<td headers="level" class="gt_row gt_right">4</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m4f2</td>
<td headers="level" class="gt_row gt_right">4</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m4f3</td>
<td headers="level" class="gt_row gt_right">4</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m4f4</td>
<td headers="level" class="gt_row gt_right">4</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center" style="background-color: #FFF3CD;">TRUE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f1</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f2</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f3</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f4</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
    <tr><td headers="id" class="gt_row gt_left">m5f5</td>
<td headers="level" class="gt_row gt_right">5</td>
<td headers="few_items" class="gt_row gt_center">FALSE</td>
<td headers="orphan" class="gt_row gt_center">FALSE</td>
<td headers="split_merge" class="gt_row gt_center">FALSE</td></tr>
  </tbody>
  
</table>
</div><!--/html_preserve-->

Like Tucker's φ, these signals are **flag-and-report only** — `prune()` never
removes a factor on their basis. As before, a standardized signal *removes*
researcher discretion rather than adding it; what requires judgment is the
substantive *decision* to treat a factor as an artifact, which the signals
simply point you toward. The two thresholds, `min_items` and `orphan_r`, are
arguments to `prune()`.

## Tuning the thresholds

The redundancy criterion has an adjustable `redundancy_r` threshold (default
`0.90`) matching Forbes (2023). The artifact criterion has no auto-flag
threshold — `prune(x, "artifact")` computes Tucker's φ for researcher
inspection; no factors are auto-flagged.

**The `redundancy_phi` companion criterion.** Redundancy can optionally require
that linked factors also share a loading pattern (Tucker's φ above a threshold),
not just a high score correlation. The `redundancy_phi` argument controls this,
and its default (`NULL`) *auto-resolves based on the engine*:

- **PCA** — no φ filter. Component scores are **determinate**: unlike factor
  scores they are exact linear functions of the observed data, so the score
  correlation `|r|` *is* the correlation between the components themselves and
  suffices as the redundancy signal.
- **EFA / ESEM** — φ is required to exceed `0.95` (Lorenzo-Seva & ten Berge,
  2006). Factor scores are **indeterminate** — any factor admits infinitely
  many score series consistent with the model — which makes an `|r|`-only rule
  too liberal; the loading-congruence guard makes the criterion conservative.
  `prune()` announces this auto-resolution in the console.

The examples here use the default PCA engine, so no φ filter is applied. To
disable the φ guard on an EFA/ESEM run, pass `redundancy_phi = NA`; to set your
own threshold, pass a number in `(0, 1]`.

For the BFI, the result is the same across a wide range of thresholds because
the redundant chains all have correlations > 0.97 — the flagging is unambiguous.
With your own data you may find borderline cases where the threshold matters:

Because `prune()` is a cheap, standalone step, checking a few `redundancy_r`
thresholds does not require refitting `ackwards()` each time — the already-fit
`x_all` object is re-pruned directly:


``` r
thresholds <- c(0.80, 0.85, 0.90, 0.95)
counts <- sapply(thresholds, function(thr) {
  x <- prune(x_all, "redundant", redundancy_r = thr)
  sum(tidy(x, what = "nodes")$pruned)
})
#> ℹ Redundancy pruning (direct criterion, |r| ≥ 0.8) flagged 9 nodes.
#> ℹ Nodes are retained in the object; inspect with `x$prune$nodes` and
#>   `x$prune$chains`.
#> ℹ Redundancy pruning (direct criterion, |r| ≥ 0.85) flagged 8 nodes.
#> ℹ Nodes are retained in the object; inspect with `x$prune$nodes` and
#>   `x$prune$chains`.
#> ℹ Redundancy pruning (direct criterion, |r| ≥ 0.9) flagged 6 nodes.
#> ℹ Nodes are retained in the object; inspect with `x$prune$nodes` and
#>   `x$prune$chains`.
#> ℹ Redundancy pruning (direct criterion, |r| ≥ 0.95) flagged 6 nodes.
#> ℹ Nodes are retained in the object; inspect with `x$prune$nodes` and
#>   `x$prune$chains`.
thr_df <- data.frame(redundancy_r = thresholds, n_flagged = counts)
```

<!--html_preserve--><div id="zpgymzpzyw" style="padding-left:0px;padding-right:0px;padding-top:10px;padding-bottom:10px;overflow-x:auto;overflow-y:auto;width:auto;height:auto;">
<style>#zpgymzpzyw table {
  font-family: system-ui, 'Segoe UI', Roboto, Helvetica, Arial, sans-serif, 'Apple Color Emoji', 'Segoe UI Emoji', 'Segoe UI Symbol', 'Noto Color Emoji';
  -webkit-font-smoothing: antialiased;
  -moz-osx-font-smoothing: grayscale;
}

#zpgymzpzyw thead, #zpgymzpzyw tbody, #zpgymzpzyw tfoot, #zpgymzpzyw tr, #zpgymzpzyw td, #zpgymzpzyw th {
  border-style: none;
}

#zpgymzpzyw p {
  margin: 0;
  padding: 0;
}

#zpgymzpzyw .gt_table {
  display: table;
  border-collapse: collapse;
  line-height: normal;
  margin-left: auto;
  margin-right: auto;
  color: #333333;
  font-size: 16px;
  font-weight: normal;
  font-style: normal;
  background-color: #FFFFFF;
  width: auto;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #A8A8A8;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #A8A8A8;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
}

#zpgymzpzyw .gt_caption {
  padding-top: 4px;
  padding-bottom: 4px;
}

#zpgymzpzyw .gt_title {
  color: #333333;
  font-size: 125%;
  font-weight: initial;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-color: #FFFFFF;
  border-bottom-width: 0;
}

#zpgymzpzyw .gt_subtitle {
  color: #333333;
  font-size: 85%;
  font-weight: initial;
  padding-top: 3px;
  padding-bottom: 5px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-color: #FFFFFF;
  border-top-width: 0;
}

#zpgymzpzyw .gt_heading {
  background-color: #FFFFFF;
  text-align: center;
  border-bottom-color: #FFFFFF;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#zpgymzpzyw .gt_bottom_border {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#zpgymzpzyw .gt_col_headings {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
}

#zpgymzpzyw .gt_col_heading {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 6px;
  padding-left: 5px;
  padding-right: 5px;
  overflow-x: hidden;
}

#zpgymzpzyw .gt_column_spanner_outer {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: normal;
  text-transform: inherit;
  padding-top: 0;
  padding-bottom: 0;
  padding-left: 4px;
  padding-right: 4px;
}

#zpgymzpzyw .gt_column_spanner_outer:first-child {
  padding-left: 0;
}

#zpgymzpzyw .gt_column_spanner_outer:last-child {
  padding-right: 0;
}

#zpgymzpzyw .gt_column_spanner {
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: bottom;
  padding-top: 5px;
  padding-bottom: 5px;
  overflow-x: hidden;
  display: inline-block;
  width: 100%;
}

#zpgymzpzyw .gt_spanner_row {
  border-bottom-style: hidden;
}

#zpgymzpzyw .gt_group_heading {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  text-align: left;
}

#zpgymzpzyw .gt_empty_group_heading {
  padding: 0.5px;
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  vertical-align: middle;
}

#zpgymzpzyw .gt_from_md > :first-child {
  margin-top: 0;
}

#zpgymzpzyw .gt_from_md > :last-child {
  margin-bottom: 0;
}

#zpgymzpzyw .gt_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  margin: 10px;
  border-top-style: solid;
  border-top-width: 1px;
  border-top-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 1px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 1px;
  border-right-color: #D3D3D3;
  vertical-align: middle;
  overflow-x: hidden;
}

#zpgymzpzyw .gt_stub {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
}

#zpgymzpzyw .gt_stub_row_group {
  color: #333333;
  background-color: #FFFFFF;
  font-size: 100%;
  font-weight: initial;
  text-transform: inherit;
  border-right-style: solid;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
  padding-left: 5px;
  padding-right: 5px;
  vertical-align: top;
}

#zpgymzpzyw .gt_row_group_first td {
  border-top-width: 2px;
}

#zpgymzpzyw .gt_row_group_first th {
  border-top-width: 2px;
}

#zpgymzpzyw .gt_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#zpgymzpzyw .gt_first_summary_row {
  border-top-style: solid;
  border-top-color: #D3D3D3;
}

#zpgymzpzyw .gt_first_summary_row.thick {
  border-top-width: 2px;
}

#zpgymzpzyw .gt_last_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#zpgymzpzyw .gt_grand_summary_row {
  color: #333333;
  background-color: #FFFFFF;
  text-transform: inherit;
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
}

#zpgymzpzyw .gt_first_grand_summary_row {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-top-style: double;
  border-top-width: 6px;
  border-top-color: #D3D3D3;
}

#zpgymzpzyw .gt_last_grand_summary_row_top {
  padding-top: 8px;
  padding-bottom: 8px;
  padding-left: 5px;
  padding-right: 5px;
  border-bottom-style: double;
  border-bottom-width: 6px;
  border-bottom-color: #D3D3D3;
}

#zpgymzpzyw .gt_striped {
  background-color: rgba(128, 128, 128, 0.05);
}

#zpgymzpzyw .gt_table_body {
  border-top-style: solid;
  border-top-width: 2px;
  border-top-color: #D3D3D3;
  border-bottom-style: solid;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
}

#zpgymzpzyw .gt_footnotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#zpgymzpzyw .gt_footnote {
  margin: 0px;
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#zpgymzpzyw .gt_sourcenotes {
  color: #333333;
  background-color: #FFFFFF;
  border-bottom-style: none;
  border-bottom-width: 2px;
  border-bottom-color: #D3D3D3;
  border-left-style: none;
  border-left-width: 2px;
  border-left-color: #D3D3D3;
  border-right-style: none;
  border-right-width: 2px;
  border-right-color: #D3D3D3;
}

#zpgymzpzyw .gt_sourcenote {
  font-size: 90%;
  padding-top: 4px;
  padding-bottom: 4px;
  padding-left: 5px;
  padding-right: 5px;
}

#zpgymzpzyw .gt_left {
  text-align: left;
}

#zpgymzpzyw .gt_center {
  text-align: center;
}

#zpgymzpzyw .gt_right {
  text-align: right;
  font-variant-numeric: tabular-nums;
}

#zpgymzpzyw .gt_font_normal {
  font-weight: normal;
}

#zpgymzpzyw .gt_font_bold {
  font-weight: bold;
}

#zpgymzpzyw .gt_font_italic {
  font-style: italic;
}

#zpgymzpzyw .gt_super {
  font-size: 65%;
}

#zpgymzpzyw .gt_footnote_marks {
  font-size: 75%;
  vertical-align: 0.4em;
  position: initial;
}

#zpgymzpzyw .gt_asterisk {
  font-size: 100%;
  vertical-align: 0;
}

#zpgymzpzyw .gt_indent_1 {
  text-indent: 5px;
}

#zpgymzpzyw .gt_indent_2 {
  text-indent: 10px;
}

#zpgymzpzyw .gt_indent_3 {
  text-indent: 15px;
}

#zpgymzpzyw .gt_indent_4 {
  text-indent: 20px;
}

#zpgymzpzyw .gt_indent_5 {
  text-indent: 25px;
}

#zpgymzpzyw .katex-display {
  display: inline-flex !important;
  margin-bottom: 0.75em !important;
}

#zpgymzpzyw div.Reactable > div.rt-table > div.rt-thead > div.rt-tr.rt-tr-group-header > div.rt-th-group:after {
  height: 0px !important;
}
</style>
<table class="gt_table" data-quarto-disable-processing="false" data-quarto-bootstrap="false">
  <thead>
    <tr class="gt_heading">
      <td colspan="2" class="gt_heading gt_title gt_font_normal gt_bottom_border" style>Factors flagged redundant at each redundancy_r threshold</td>
    </tr>
    
    <tr class="gt_col_headings">
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="redundancy_r">redundancy_r</th>
      <th class="gt_col_heading gt_columns_bottom_border gt_right" rowspan="1" colspan="1" scope="col" id="n_flagged">Factors flagged</th>
    </tr>
  </thead>
  <tbody class="gt_table_body">
    <tr><td headers="redundancy_r" class="gt_row gt_right">0.80</td>
<td headers="n_flagged" class="gt_row gt_right">9</td></tr>
    <tr><td headers="redundancy_r" class="gt_row gt_right">0.85</td>
<td headers="n_flagged" class="gt_row gt_right">8</td></tr>
    <tr><td headers="redundancy_r" class="gt_row gt_right">0.90</td>
<td headers="n_flagged" class="gt_row gt_right">6</td></tr>
    <tr><td headers="redundancy_r" class="gt_row gt_right">0.95</td>
<td headers="n_flagged" class="gt_row gt_right">6</td></tr>
  </tbody>
  
</table>
</div><!--/html_preserve-->

For the BFI all thresholds agree: the flagged factors are robustly redundant, not
borderline cases. In noisier datasets or smaller samples you will typically see
the count increase as you lower the threshold.

## Practical interpretation

The Forbes extension does not change the core bass-ackwards analysis. It
enriches it with two questions:

1. **Do any factors persist unchanged across multiple levels?** (`pairs = "all"`)
   Skip-level correlations near 1.0 indicate stable dimensions that survive
   changes in k — exactly the kind of robust construct you want to report.

2. **Are there levels where the factor structure is just reorganizing rather
   than genuinely differentiating?** (`prune(x, "redundant")`)
   Flagged levels can often be removed from the k range without losing
   interpretive content.

A common workflow: fit with `pairs = "all"` first to examine the full picture,
then pipe the result through `prune(x, "redundant")` to identify which levels
add the most new information, and use that to guide your focus in reporting.
For where redundancy pruning sits in the full recommended workflow — alongside
a split-half replicability gate on hierarchy depth (`comparability()`) — see
`vignette("ackwards-girard")`.

## References

Forbes, M. K. (2023). Improving hierarchical models of individual differences:
An extension of Goldberg's bass-ackward method. *Psychological Methods*.
https://doi.org/10.1037/met0000546

Goldberg, L. R. (2006). Doing it all Bass-Ackwards: The development of
hierarchical factor structures from the top down. *Journal of Research in
Personality*, *40*(4), 347–358.

Lorenzo-Seva, U., & ten Berge, J. M. F. (2006). Tucker's congruence coefficient
as a meaningful index of factor similarity. *Methodology*, *2*(2), 57–64.
https://doi.org/10.1027/1614-2241.2.2.57

Tucker, L. R. (1951). *A method for synthesis of factor analysis studies*
(Personnel Research Section Report No. 984). Department of the Army.
