save_history and lda_pp bug fix

Author: dicook

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 
 

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]
     }
   }
 }