experiments with the variance

2026-02-11 19:00:56 +01:00
parent c2c759bb04
commit 9db48a9a33
4 changed files with 364 additions and 24 deletions
--- a/R/singular_values.R
+++ b/R/singular_values.R
@@ -192,6 +192,9 @@ compute_matrix <- function(
 #' @export
 compute_minmax_sv <- function(M) {
  s <- svd(M, nu=0, nv=0)$d
+  
+  # just a check if we compute the right thing
+  # s <- sqrt(eigen(M %*% t(M), symmetric = TRUE, only.value=TRUE)$values)

  list(
    largest_singular_value  = max(s),