diff options
| -rw-r--r-- | R/demean.R | 8 | ||||
| -rw-r--r-- | man/demean.Rd | 4 | ||||
| -rw-r--r-- | man/predict.demean.Rd | 2 |
3 files changed, 7 insertions, 7 deletions
@@ -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) } |