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