Fix and complete the canonical vignette ports

Repair the failures in the full R vignette port suite:

- 01_overview: replace the thin delegate shim with a full nine-section
  instructional port of NNSvignette_01_Overview.Rmd, including figures for
  the partial-moment decomposition, mode estimation, copula surfaces,
  nonlinear regression, ARMA forecasting, and Monte Carlo replicates.
- 04_normalization: pass a list instead of a generator to np.column_stack,
  which numpy rejects at runtime.
- 05_sampling: replace the assertion-style smoke script with a full
  section-by-section port of NNSvignette_05_Sampling.Rmd with CDF,
  inverse-CDF, Monte Carlo, and dependence-transfer figures.
- 06_comparing_distributions: replace the smoke script with a full port of
  NNSvignette_06_Comparing_Distributions.Rmd, reconstructing the R ANOVA
  plot side effects from the returned statistics and adding superiority,
  dominance, and SD-cluster figures.
- 07_clustering_and_regression: restore the file body that was committed
  truncated after its module docstring, porting every R section including
  partition orders, X-only partitioning, multivariate regression over the
  full grid, dimension reduction, stacking, smoothing, and imputation.
- 08_classification and _vignette_support: stop rounding non-numeric arrays
  in the compact result renderer, and display rhs.partitions now that the
  multivariate result exposes it (correcting the stale gap note).
- PARITY.md: update the 07/08 ledger entries to match the ports.
- Lint compliance for ruff check across the examples tree, with a scoped
  E402 ignore for the sys.path bootstrap in instructional scripts, and
  ignore the generated figure output directory.

All nine canonical scripts pass tests/docs/test_vignette_examples.py in
fast mode and run clean in full mode; ruff and mypy pass.

Co-Authored-By: Claude Fable 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_014q6V4fJ7zz6KLAgu3ddhDp

Author: claude

.gitignore

@@ -35,3 +35,6 @@ Rplots.pdf
 
 # MkDocs build output
 /site/
+
+# Generated vignette figures
+/examples/vignettes/output/

examples/_vignette_support.py

@@ -9,9 +9,10 @@
 
 import csv
 import os
+from collections.abc import Iterable, Sequence
 from pathlib import Path
 from pprint import pformat
-from typing import Any, Iterable, Sequence
+from typing import Any
 
 import matplotlib
 
@@ -68,12 +69,17 @@ def show(label: str, value: Any, *, precision: int = 6) -> None:
 
 def _compact(value: Any) -> Any:
     if isinstance(value, np.ndarray):
+        numeric = np.issubdtype(value.dtype, np.number)
         if value.size <= 20:
-            return np.round(value, 6).tolist()
+            return np.round(value, 6).tolist() if numeric else value.tolist()
+        flat = value.reshape(-1)
+        head, tail = flat[:5], flat[-5:]
+        if numeric:
+            head, tail = np.round(head, 6), np.round(tail, 6)
         return {
             "shape": list(value.shape),
-            "head": np.round(value.reshape(-1)[:5], 6).tolist(),
-            "tail": np.round(value.reshape(-1)[-5:], 6).tolist(),
+            "head": head.tolist(),
+            "tail": tail.tolist(),
         }
     if isinstance(value, dict):
         return {key: _compact(item) for key, item in value.items()}
@@ -86,12 +92,17 @@ def table(headers: Sequence[str], rows: Iterable[Sequence[Any]], *, precision: i
     rendered = []
     for row in rows:
         rendered.append(
-            [f"{item:.{precision}f}" if isinstance(item, (float, np.floating)) else str(item) for item in row]
+            [
+                f"{item:.{precision}f}" if isinstance(item, (float, np.floating)) else str(item)
+                for item in row
+            ]
         )
     widths = [len(str(header)) for header in headers]
     for row in rendered:
         widths = [max(width, len(cell)) for width, cell in zip(widths, row, strict=True)]
-    print("  ".join(str(header).ljust(width) for header, width in zip(headers, widths, strict=True)))
+    print(
+        "  ".join(str(header).ljust(width) for header, width in zip(headers, widths, strict=True))
+    )
     print("  ".join("-" * width for width in widths))
     for row in rendered:
         print("  ".join(cell.ljust(width) for cell, width in zip(row, widths, strict=True)))