out_eq_raw <- runEquateObserved(data_asq,
scale_to = 1, scale_from = 2,
eq_type = "equipercentile", smooth = "loglinear"
)
out_eq_raw$concordance
# \donttest{
out_link <- runLinking(data_asq, method = "FIXEDPAR")
out_rsss <- runRSSS(data_asq, out_link)
out_eq_tscore <- runEquateObserved(data_asq,
scale_to = 1, scale_from = 2,
type_to = "tscore", rsss = out_rsss,
eq_type = "equipercentile", smooth = "loglinear"
)
out_eq_tscore$concordance
# }
Run the code above in your browser using DataLab