add matrix_X argument

R/singular_value_plot.R

@@ -3,6 +3,7 @@ source(here::here("R", "singular_values.R"))
 source(here::here("R", "graphon_distribution.R"))
 
 
+# expr_to_label ----------------------------------------------------------------
 # Convert a call or character to a nicely formatted character string.
 #   * If the user supplied a character, we keep it unchanged.
 #   * If the user supplied a call (e.g. quote(20 / sqrt(x))) we deparse it
@@ -17,6 +18,7 @@ expr_to_label <- function(expr) {
 }
 
 
+# smallest_sv_sequence ---------------------------------------------------------
 #' Compute the smallest singular value of a sequence of matrices Q(K)
 #'
 #' @title Smallest singular values for a family of matrices Q(K)
@@ -149,10 +151,10 @@ smallest_sv_sequence <- function(
       sample_X_fn = sampler_fn,
       fv = fv,
       Fv = Fv,
-      guard = guard
+      guard = guard,
+      scaled = FALSE
     )
     
-    Q <- 1 /sqrt(n) * Q
     
     sv_res <- compute_minmax_sv(Q)
     if (!is.list(sv_res) || is.null(sv_res$smallest_singular_value)) {