Updated simirt.R

Modules/simirt.R

@@ -203,7 +203,7 @@ if (typediff=='uniform') {
   }
   for (d in seq(1,length(DIM))) {
     for (i in seq(1,DIM[d])) {
-      DIF[i] <- min[d]+(max[d]-min[d])*i/(DIM[d]+1)
+      DIF[(d-1)+i] <- min[d]+(max[d]-min[d])*i/(DIM[d]+1) # Pas compris, demander à JB
     }
   }
 }