From a263a53deec7e3a0909b20207cf5629bd39a92c6 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Mon, 23 Mar 2015 00:30:11 +0530
Subject: corrected typos in demean.R file

---
 R/demean.R            | 8 ++++----
 man/demean.Rd         | 4 ++--
 man/predict.demean.Rd | 2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/R/demean.R b/R/demean.R
index 4ea5182..7759b08 100644
--- a/R/demean.R
+++ b/R/demean.R
@@ -10,13 +10,13 @@
 #' \tabular{ll}{
 #'    \code{fitted.values} \tab \code{idframe} object with mean-centered variables \cr
 #'    \code{output.mean} \tab \code{vector} containing means for each output variable \cr
-#'    \code{input.mean} \tab \code{vector} containing trend fits for each input variable
+#'    \code{input.mean} \tab \code{vector} containing means for each input variable
 #'  }
 #' 
 #' @examples
 #' data(cstr)
 #' fit.mean <- demean(cstr)
-#' cstr_detrend <- predict(fit.mean) 
+#' cstr_demean <- predict(fit.mean) 
 #' 
 #' @seealso \code{\link{predict.demean}}, \code{\link[stats]{colMeans}}
 #' @export
@@ -30,7 +30,7 @@ demean <- function(data){
   data_demean$output <- data$output - output.mean
   data_demean$input <- data$input - input.mean
   
-  est <- list(fitted.values=data_detrend,output.mean = output.mean,
+  est <- list(fitted.values=data_demean,output.mean = output.mean,
               input.mean = input.mean)
   
   class(est) <- "demean"
@@ -55,7 +55,7 @@ demean <- function(data){
 #' test <- splitList$validation # testing set
 #' fit.mean <- demean(train)
 #' train_demean <- predict(fit.mean)
-#' test_demean <- predict(fit,newdata=test)  
+#' test_demean <- predict(fit.mean,newdata=test)  
 #' @export
 predict.demean <- function(object,newdata=NULL,...){
   
diff --git a/man/demean.Rd b/man/demean.Rd
index 278f46a..7359222 100644
--- a/man/demean.Rd
+++ b/man/demean.Rd
@@ -15,7 +15,7 @@ A list containing the following elements
 \tabular{ll}{
    \code{fitted.values} \tab \code{idframe} object with mean-centered variables \cr
    \code{output.mean} \tab \code{vector} containing means for each output variable \cr
-   \code{input.mean} \tab \code{vector} containing trend fits for each input variable
+   \code{input.mean} \tab \code{vector} containing means for each input variable
  }
 }
 \description{
@@ -24,7 +24,7 @@ Mean Centers the input and output matrices.
 \examples{
 data(cstr)
 fit.mean <- demean(cstr)
-cstr_detrend <- predict(fit.mean)
+cstr_demean <- predict(fit.mean)
 }
 \seealso{
 \code{\link{predict.demean}}, \code{\link[stats]{colMeans}}
diff --git a/man/predict.demean.Rd b/man/predict.demean.Rd
index 0fd798b..9abea86 100644
--- a/man/predict.demean.Rd
+++ b/man/predict.demean.Rd
@@ -26,6 +26,6 @@ train <- splitList$estimation # training set
 test <- splitList$validation # testing set
 fit.mean <- demean(train)
 train_demean <- predict(fit.mean)
-test_demean <- predict(fit,newdata=test)
+test_demean <- predict(fit.mean,newdata=test)
 }
 
-- 
cgit