diff options
| author | Suraj Yerramilli | 2016-02-23 15:23:06 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-02-23 15:23:06 +0530 |
| commit | 2a6363027ec671af60dd25127c938affb7c2285e (patch) | |
| tree | 59989dd051a1455d4a9195631ca3fc4ff8f14b04 | |
| parent | d398e7a820ade3a577a4d6c5c57e83e518468c82 (diff) | |
| download | SysID-R-code-2a6363027ec671af60dd25127c938affb7c2285e.tar.gz SysID-R-code-2a6363027ec671af60dd25127c938affb7c2285e.tar.bz2 SysID-R-code-2a6363027ec671af60dd25127c938affb7c2285e.zip | |
minor error fix
| -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)) |