print: do not summarize per column, but overall

lschneiderbauer · Dec 27, 2024 · 4521cc2 · 4521cc2
1 parent 4cdb003
commit 4521cc2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fcwtr_scalogram.R b/R/fcwtr_scalogram.R
@@ -280,7 +280,7 @@ print.fcwtr_scalogram <- function(x, ...) {
   cat("<> Sigma: ", attr(x, "sigma"), "\n", sep = "")
 
   cat("Time/frequency matrix summary\n")
-  print(summary(as.matrix(x)))
+  print(summary(as.vector(as.matrix(x))))
 
   invisible(x)
 }