x <- runLinking(data_asq, method = "FIXEDPAR")
o <- getTheta(data_asq, x$ipar_linked, scale = 1)
o$theta
o$item_idx
o <- getTheta(data_asq, x$ipar_linked, scale = 2)
o$theta
o$item_idx
o <- getTheta(data_asq, x$ipar_linked, scale = "combined")
o$theta
o$item_idx
Run the code above in your browser using DataLab