diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/idframe.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/idframe.R b/R/idframe.R index 527fa21..ff2e62b 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -177,7 +177,7 @@ plot.idfrd <- function(x,col="steelblue",lwd=1){ nout <- dim(mag)[1]; nin <- dim(mag)[2] dim(mag) <- c(nin*nout,nfreq) - temp <- aperm(Arg(x$resp),c(3,2,1));dim(temp) <- c(nfreq,4) + temp <- aperm(Arg(x$resp),c(3,2,1));dim(temp) <- c(nfreq,nin*nout) l <- t(split(temp, rep(1:ncol(temp), each = nrow(temp)))) phase <- 180/pi*t(sapply(l,signal::unwrap)) |