Fixed errors in the demean function

1 files changed, 1 insertions, 1 deletions

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)