data_norm <- tibble::tibble(
sex = c("1", "1", "1", "1", "1"),
age_min = 18,
age_max = 35,
scale_r = 0:4,
scale_t = 20:24
)
data <- tibble::tibble(
var1 = c(0, 1, NA, 1, 2),
var2 = c(1, 2, 1, 2, 5),
age = c(18, 20, 25, 99, 35),
sex = c("1", "1", "1", "1", "1")
)
ss_tscore(
data = data,
data_norm = data_norm,
max_na = 0,
vars = c("var1", "var2")
)
Run the code above in your browser using DataLab