Few changes in R code

2025-01-15 10:51:52 +01:00
parent 7f1a9ad455
commit 7712f8396f
6 changed files with 2496 additions and 397 deletions
--- a/RProject/Scripts/Tools/generate_item_difficulties.R
+++ b/RProject/Scripts/Tools/generate_item_difficulties.R
@ -15,7 +15,7 @@ generate_diff_irt <- function(J=7,M=4) {
  }
  difficulties = matrix(c(0), J,M-1)
  rownames(difficulties)=paste("item",1:J)
-  colnames(difficulties)=paste("Moda", 1:(M-1))
+  colnames(difficulties)=paste("delta", 1:(M-1))
  for (j in 1:J){
    difficulties[j,1] = qnorm(j/(J+1))
  }