diff options
author | Suraj Yerramilli | 2016-02-23 08:20:25 +0530 |
---|---|---|
committer | Suraj Yerramilli | 2016-02-23 08:20:25 +0530 |
commit | 145057a1e4db56dc61608d2cca2c40f6fea836cb (patch) | |
tree | 7c44263328bf6873ec8deae04b87b04a88ea3ebb /R | |
parent | 3727cfb5b3a3b0cdeb75f958d8bdd123ea9e8d12 (diff) | |
download | SysID-R-code-145057a1e4db56dc61608d2cca2c40f6fea836cb.tar.gz SysID-R-code-145057a1e4db56dc61608d2cca2c40f6fea836cb.tar.bz2 SysID-R-code-145057a1e4db56dc61608d2cca2c40f6fea836cb.zip |
updating idfrd documentation
Diffstat (limited to 'R')
-rw-r--r-- | R/idframe.R | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/R/idframe.R b/R/idframe.R index e633177..60d8093 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -117,24 +117,25 @@ deltat.idframe <- function(data){ deltat(data$output) } -#' S3 class for storing frequency response data +#' S3 class constructor for storing frequency response data #' -#' @param response complex vector/matrix containing the response -#' @param freq the frequencies at which the response is observed/estimated +#' @param response frequency response data. For SISO systems, supply a +#' vector of frequency response values. For MIMO systems with Ny +#' outputs and Nu inputs, supply an array of size c(Ny,Nu,Nw). +#' @param freq frequency points of the response #' @param Ts sampling time of data +#' @param spec power spectra and cross spectra of the system +#' output disturbances (noise). Supply an array of size (Ny,Ny,Nw) #' #' @return an idfrd object #' -#' @note -#' The class can currently store only SISO Responses. Future versions will -#' have support for multivariate data -#' #' @seealso -#' \code{\link{plot.idfrd}} for generating bode plots; \code{\link{spa}} and -#' \code{\link{etfe}} for estimating the frequency response given input/output data +#' \code{\link{plot.idfrd}} for generating bode plots, +#' \code{\link{spa}} and \code{\link{etfe}} for estimating the +#' frequency response given input/output data #' #' @export -idfrd <- function(response,freq,Ts){ +idfrd <- function(response,freq,Ts,specdata){ out <- list(response=response,freq=freq,Ts=Ts) class(out) <- "idfrd" return(out) |