3 files changed, 3 insertions, 1 deletions
diff --git a/R/estpoly.R b/R/estpoly.R
index 0671f01..79b6f5c 100644
--- a/R/estpoly.R
+++ b/R/estpoly.R
@@ -29,7 +29,7 @@ residplot <- function(model,newdata=NULL){
     u <- newdata$input
   }
   
-  acorr <- acf(e,plot = F); ccorr <- ccf(as.numeric(u),e,plot = F)
+  acorr <- acf(e,plot = F); ccorr <- ccf(u[,1],e,plot = F)
   par(mfrow=c(2,1),mar=c(3,4,3,2))
   plot(acorr,main="ACF of residuals")
   plot(ccorr,main="CCF between the input and residuals",ylab="CCF")
diff --git a/R/rbs.R b/R/rbs.R
index ef92608..98fa785 100644
--- a/R/rbs.R
+++ b/R/rbs.R
@@ -1,3 +1,4 @@
+#' @export
 idin.rbs <- function(n,band,levels){
   # Function to generate a random binary 
   # signal of given frequency band and levels
diff --git a/R/rgs.R b/R/rgs.R
index 1177177..ee1eca3 100644
--- a/R/rgs.R
+++ b/R/rgs.R
@@ -1,3 +1,4 @@
+#' @export
 idin.rgs <- function(n,band,var){
   # Function to generate a random Gaussian 
   # signal of given frequency band and variance