summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSuraj Yerramilli2015-03-23 00:30:11 +0530
committerSuraj Yerramilli2015-03-23 00:30:11 +0530
commita263a53deec7e3a0909b20207cf5629bd39a92c6 (patch)
treefd1a997831db477ebbbbbce1588eb186e217ecc7
parentb1940de02177fc501d66048a01bb150e9113d6fb (diff)
downloadSysID-R-code-a263a53deec7e3a0909b20207cf5629bd39a92c6.tar.gz
SysID-R-code-a263a53deec7e3a0909b20207cf5629bd39a92c6.tar.bz2
SysID-R-code-a263a53deec7e3a0909b20207cf5629bd39a92c6.zip
corrected typos in demean.R file
-rw-r--r--R/demean.R8
-rw-r--r--man/demean.Rd4
-rw-r--r--man/predict.demean.Rd2
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)
}