summaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorSuraj Yerramilli2016-02-23 08:20:25 +0530
committerSuraj Yerramilli2016-02-23 08:20:25 +0530
commit145057a1e4db56dc61608d2cca2c40f6fea836cb (patch)
tree7c44263328bf6873ec8deae04b87b04a88ea3ebb /R
parent3727cfb5b3a3b0cdeb75f958d8bdd123ea9e8d12 (diff)
downloadSysID-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.R21
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)