save_history and lda_pp bug fix

ggobi · Jul 5, 2024 · fcc470e · fcc470e
1 parent e826a50
commit fcc470e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git 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
@@ -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]
  }
  }
 }