From 024582b50524125cf942bd6e7279b8db1a6bc5d1 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Fri, 12 Jun 2015 09:23:03 +0530
Subject: Minor Changes

---
 R/estpoly.R | 2 +-
 R/rbs.R     | 1 +
 R/rgs.R     | 1 +
 3 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'R')

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
-- 
cgit