diff options
| author | Suraj Yerramilli | 2015-08-22 00:34:31 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-08-22 00:34:31 +0530 |
| commit | 8d1796073a427a2deb5812b644d2feea5cddc8ef (patch) | |
| tree | 486999d81747bbdbf4999f07b60b7ce98e8f87ea /R | |
| parent | 69ad9db663069c513f504149b520de5ba8e39f32 (diff) | |
| download | SysID-R-code-8d1796073a427a2deb5812b644d2feea5cddc8ef.tar.gz SysID-R-code-8d1796073a427a2deb5812b644d2feea5cddc8ef.tar.bz2 SysID-R-code-8d1796073a427a2deb5812b644d2feea5cddc8ef.zip | |
Added dependencies
Diffstat (limited to 'R')
| -rw-r--r-- | R/ioNamesData.R | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/R/ioNamesData.R b/R/ioNamesData.R index a734525..a17cca5 100644 --- a/R/ioNamesData.R +++ b/R/ioNamesData.R @@ -1,5 +1,3 @@ -require(tframe) - #' @export nInputSeries <- function(data) ncol(data$input) @@ -14,6 +12,7 @@ inputData.default <- function(x,series=NULL){ print("Not defined for this datatype") } +#' @import tframe #' @export inputData.idframe <- function(x,series=seq(nInputSeries(x))){ if (is.null(x$input)) @@ -36,6 +35,7 @@ inputNames.default <- function(x){ print("Not defined for this datatype") } +#' @import tframe #' @export inputNames.idframe <- function(x){ seriesNames(inputData(x)) @@ -44,6 +44,7 @@ inputNames.idframe <- function(x){ #' @export "inputNames<-" <- function(x,value) UseMethod("inputNames<-") +#' @import tframe #' @export "inputNames<-.idframe" <- function(x,value){ seriesNames(inputData(x)) <- value @@ -58,6 +59,7 @@ outputData.default <- function(x,series=NULL){ print("Not defined for this datatype") } +#' @import tframe #' @export outputData.idframe <- function(x,series=seq(nOutputSeries(x))){ if (is.null(x$output)) @@ -80,6 +82,7 @@ outputNames.default <- function(x){ print("Not defined for this datatype") } +#' @import tframe #' @export outputNames.idframe <- function(x){ seriesNames(outputData(x)) @@ -88,6 +91,7 @@ outputNames.idframe <- function(x){ #' @export "outputNames<-" <- function(x,value) UseMethod("outputNames<-") +#' @import tframe #' @export "outputNames<-.idframe" <- function(x,value){ seriesNames(outputData(x)) <- value |