Made some functions internal-access only

2 files changed, 0 insertions, 8 deletions

diff --git a/NAMESPACE b/NAMESPACE
index 98805c4..60d48fc 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -2,8 +2,6 @@
 
 S3method("inputData<-",idframe)
 S3method("inputNames<-",idframe)
-S3method("outputData<-",idframe)
-S3method("outputNames<-",idframe)
 S3method(inputData,default)
 S3method(inputData,idframe)
 S3method(inputNames,default)
@@ -29,8 +27,6 @@ S3method(summary,estARX)
 S3method(summary,idframe)
 export("inputData<-")
 export("inputNames<-")
-export("outputData<-")
-export("outputNames<-")
 export(armax)
 export(arx)
 export(bj)
diff --git a/R/ioNamesData.R b/R/ioNamesData.R
index 19d82aa..49db02f 100644
--- a/R/ioNamesData.R
+++ b/R/ioNamesData.R
@@ -67,10 +67,8 @@ outputData.idframe <- function(x,series=seq(nOutputSeries(x))){
   else selectSeries(x$output,series=series)
 }
 
-#' @export
 "outputData<-" <- function(x,value) UseMethod("outputData<-")
 
-#' @export
 "outputData<-.idframe" <- function(x,value){
   x$output <- value
   x
@@ -89,10 +87,8 @@ outputNames.idframe <- function(x){
   seriesNames(outputData(x))
 }
 
-#' @export
 "outputNames<-" <- function(x,value) UseMethod("outputNames<-")
 
-#' @export
 "outputNames<-.idframe" <- function(x,value){
   seriesNames(outputData(x)) <- value
   x