The REG is a 10-item Likert-type measure of the ability of self-regulation. Items are rated on a scale of 1 (completely disagree) to 4 (completely agree). A total sum score ranging from 10 to 40 may be calculated.

scoring_reg(data, items = 1:10, keep = TRUE, nvalid = 8, digits = NULL)



a data.frame containing the REG items orderd from 1 to 10


A character vector with the REG item names ordered from 1 to 10, or a numeric vector indicating the column numbers of the REG items in data.


Logical, whether to keep the single items and whether to return variables containing the number of non-missing items on each scale for each respondent. The default is TRUE.


A numeric value indicating the number of non-missing items required for score calculations. The default is 8.


Integer of length one: value to round to. No rounding by default.


The function returns 2 variables:

  • nvalid.reg: Number of valid values (MAX=10)

  • score.reg: Summary Score


  • Number of items: 10

  • Item range: 1 to 4

  • Reverse items: none

  • Score range: 10 to 40

  • Cut-off-values: none

  • Minimal clinically important difference: none

  • Treatment of missing values: The summary score is calculated as long as at least 8 questions have been answered.



if (FALSE) { library(dplyr) items.reg <- paste0("REG_", seq(1, 10, 1)) scoring_reg(mydata, items = items.reg) }