From b1940de02177fc501d66048a01bb150e9113d6fb Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Mon, 23 Mar 2015 00:23:36 +0530
Subject: Fixed errors in the demean function

---
 R/demean.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/demean.R b/R/demean.R
index 3a5a9ab..4ea5182 100644
--- a/R/demean.R
+++ b/R/demean.R
@@ -28,7 +28,7 @@ demean <- function(data){
   
   
   data_demean$output <- data$output - output.mean
-  data_demean$input <- data$input - input
+  data_demean$input <- data$input - input.mean
   
   est <- list(fitted.values=data_detrend,output.mean = output.mean,
               input.mean = input.mean)
-- 
cgit