From fcc470e2712072d1ac88a42c37ed81aca8f46be7 Mon Sep 17 00:00:00 2001
From: dicook <visnut@gmail.com>
Date: Fri, 5 Jul 2024 23:22:28 +1000
Subject: [PATCH] save_history and lda_pp bug fix

---
 NEWS.md                 | 1 +
 R/interesting-indices.r | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/NEWS.md b/NEWS.md
index 003b3d2c..4cbeb51c 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,6 +2,7 @@
 
 * anomaly tour is initialised with a random basis
 * option to label only long axes
+* bug fix for save_history with lda_pp
 
 # tourr 1.2.0 
 
diff --git a/R/interesting-indices.r b/R/interesting-indices.r
index 3cb1997d..1eecf72d 100644
--- a/R/interesting-indices.r
+++ b/R/interesting-indices.r
@@ -150,7 +150,7 @@ lda_pp <- function(cl) {
 
       1 - summary(fit, test = "Wilks")$stats[[3]]
     } else {
-      summary(stats::aov(mat ~ cl))[[1]][4]
+      summary(stats::aov(mat ~ cl))[[1]][1,4]
     }
   }
 }