From 3080a67dae6d004bf43a7b4dce878c97fc0e951c Mon Sep 17 00:00:00 2001 From: Phil Chalmers Date: Sat, 22 Jul 2017 01:49:35 -0400 Subject: [PATCH] closes #116 --- R/fscores.internal.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/fscores.internal.R b/R/fscores.internal.R index 1b0958a64..67625bf85 100644 --- 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)