remove double cancellation

philchalmers · Dec 17, 2024 · bd4a1f6 · bd4a1f6
1 parent 1d4ff01
commit bd4a1f6
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/R/reverse.score.R b/R/reverse.score.R
@@ -5,7 +5,8 @@
 #'
 #' @param data an object of class \code{data.frame}, \code{matrix}, or
 #'   \code{table} with the response patterns
-#' @param which names of items in \code{data} that should be rescored. If missing
+#' @param which names of items or column integer location
+#'   in \code{data} that should be rescored. If missing
 #'   the all columns in \code{data} will be reverse scored
 #' @param range (optional) a named \code{list} to specify the low and high
 #'   score ranges. Specified names must match the names found in
@@ -94,7 +95,7 @@ reverse.score <- function(data, which, range = NULL, append = ".RS"){
             max[pick] <- max(range[[i]])
         }
     }
-    subdat <- t((max - min) - t(subdat) + min)
+    subdat <- t(max - t(subdat) + min)
     data[,which] <- subdat
     nms <- colnames(data)
     nms[nms %in% which] <- paste0(nms[nms %in% which], append)

diff --git a/man/reverse.score.Rd b/man/reverse.score.Rd