From 04aaff9b07586c30a1ae069dbb11ffae9b363c61 Mon Sep 17 00:00:00 2001
From: Michel Crucifix <michel.crucifix@uclouvain.be>
Date: Thu, 30 Jan 2025 16:33:41 +0100
Subject: [PATCH] minor mistakes

---
 R/develop.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/develop.R b/R/develop.R
index 311c55a..932ddf3 100644
--- a/R/develop.R
+++ b/R/develop.R
@@ -125,8 +125,8 @@ lines.discreteSpectrum <- function (M,...){
 #' @rdname discreteSpectrum
 #' @export
 print.discreteSpectrum <- function (M,...){
-  N <- nrows(as.data.frame(M))
-  print.data.frame(cbind(as.data.frame(M[:,min(10,N)]), Period=2*pi/M$Freq))
+  N <- nrow(as.data.frame(M))
+  print.data.frame(cbind(as.data.frame(M[min(10,N),]), Period=2*pi/M$Freq))
   if (N > 10) print(sprintf("... + %d other rows \n", N-10))
 }
 
-- 
GitLab