More description

tmsalab · Jun 13, 2024 · 6cb9994 · 6cb9994
1 parent 50f9eb7
commit 6cb9994
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/R/slcm-wrapper.R b/R/slcm-wrapper.R
@@ -13,12 +13,17 @@ new_slcm_model = function(model_mcmc,
     colnames(estimates$beta$mean) <- paste0("B_", attribute_description)
     rownames(estimates$beta$mean) <- paste0("Item", seq_len(details$j))
 
+    colnames(estimates$theta$mean) <- paste0("Theta_", attribute_description)
+    rownames(estimates$theta$mean) <- paste0("Item", seq_len(details$j))
+
     colnames(estimates$delta) <- paste0("D_", attribute_description)
     rownames(estimates$delta) <- paste0("Item", seq_len(details$j))
 
     colnames(estimates$q) <- paste0("Q_", seq_len(details$k))
     rownames(estimates$q) <- paste0("Item", seq_len(details$j))
 
+    names(estimates$pi$mean) <- attribute_description
+
     structure(
         list(
             estimates = estimates, # Iterates over each parameter and obtains summary information