1 files changed, 129 insertions, 0 deletions
diff --git a/R/ioNamesData.R b/R/ioNamesData.R
new file mode 100644
index 0000000..f28f7ae
--- /dev/null
+++ b/R/ioNamesData.R
@@ -0,0 +1,129 @@
+#' Number of series in input or output
+#' 
+#' Number of series in input or output in a idframe object
+#' 
+#' 
+#' @param data \code{idframe} object
+#' 
+#' @aliases nOutputSeries
+#' 
+#' @export
+nInputSeries <- function(data) {
+  ifelse(is.null(data$input),0,ncol(data$input))
+}
+
+#' @export
+nOutputSeries <- function(data) ncol(data$output)
+
+#' Output or Input-data 
+#' 
+#' Extract output-data or input-data in idframe objects
+#' 
+#' @param x \code{idframe} object
+#' @param series the indices to extract
+#' 
+#' @aliases inputData.idframe outputData outputData.idframe
+#' 
+#' @export
+inputData <- function(x,series) UseMethod("inputData")
+
+#' @export
+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))
+    NULL
+  else selectSeries(x$input,series=series)
+}
+
+"inputData<-" <- function(x,value) UseMethod("inputData<-")
+
+"inputData<-.idframe" <- function(x,value){
+  x$input <- value
+  x
+}
+
+
+#' @export
+inputNames <- function(x) UseMethod("inputNames")
+
+#' @export
+inputNames.default <- function(x){
+  print("Not defined for this datatype")
+}
+
+#' @import tframe
+#' @export
+inputNames.idframe <- function(x){
+  seriesNames(inputData(x))
+}
+
+#' Extract or set series' names
+#' 
+#' Extract or set names of series in input or output
+#' 
+#' @param x \code{idframe} object
+#' @param value vector of strings
+#' 
+#' @aliases inputNames inputNames<-.idframe outputNames outputNames outputNames<- outputNames<-.idframe
+#' 
+#' @export
+"inputNames<-" <- function(x,value) UseMethod("inputNames<-")
+
+#' @import tframe
+#' @export
+"inputNames<-.idframe" <- function(x,value){
+  seriesNames(inputData(x)) <- value
+  x
+}
+
+#' @export
+outputData <- function(x,series) UseMethod("outputData")
+
+#' @export
+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))
+    NULL
+  else selectSeries(x$output,series=series)
+}
+
+"outputData<-" <- function(x,value) UseMethod("outputData<-")
+
+"outputData<-.idframe" <- function(x,value){
+  x$output <- value
+  x
+}
+
+#' @export
+outputNames <- function(x) UseMethod("outputNames")
+
+#' @export
+outputNames.default <- function(x){
+  print("Not defined for this datatype")
+}
+
+#' @import tframe
+#' @export
+outputNames.idframe <- function(x){
+  seriesNames(outputData(x))
+}
+
+#' @export 
+"outputNames<-" <- function(x,value) UseMethod("outputNames<-")
+
+#' @import tframe
+#' @export
+"outputNames<-.idframe" <- function(x,value){
+  seriesNames(outputData(x)) <- value
+  x
+}