closes #116

philchalmers · Jul 22, 2017 · 3080a67 · 3080a67
1 parent f0e168c
commit 3080a67
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/fscores.internal.R b/R/fscores.internal.R
@@ -668,7 +668,7 @@ EAPsum <- function(x, full.scores = FALSE, full.scores.SE = FALSE,
         Sum.Scores <- 1L:nrow(L0)-1L
         MAX.Scores <- cumsum(K-1L)
         for(i in seq_len(J-1L)){
-            T <- itemtrace[itemloc[i+1L]:(itemloc[i+2L] - 1L), ]
+            T <- itemtrace[itemloc[i+1L]:(itemloc[i+2L] - 1L), , drop=FALSE]
             L1[1L, ] <- L0[1L, ] * T[1L, ]
             for(j in 1L:nstar+1L){
                 sums <- 0
@@ -743,8 +743,8 @@ EAPsum <- function(x, full.scores = FALSE, full.scores.SE = FALSE,
         Elist <- vector('list', J)
         for(i in which.items){
             KK <- K[-i]
-            T <- itemtrace[c(itemloc[i]:(itemloc[i+1L]-1L)), ]
-            itemtrace2 <- itemtrace[-c(itemloc[i]:(itemloc[i+1L]-1L)), ]
+            T <- itemtrace[c(itemloc[i]:(itemloc[i+1L]-1L)), , drop=FALSE]
+            itemtrace2 <- itemtrace[-c(itemloc[i]:(itemloc[i+1L]-1L)), , drop=FALSE]
             if(i != J){
                 itemloc2 <- itemloc[-i]
                 itemloc2[i:J] <- itemloc2[i:J] - nrow(T)