R/ncp.3pl.R

In cswells1/MeasInv: Collection of Methods to Detect Dichotomous and Polytomous Differential Item Functioning (DIF)

ncp.3pl <- function(delta.a, delta.b, delta.c, cov.Ref, cov.Foc.A){
  
  ncp <- matrix(-999, ncol=8)

  temp2 <- solve(cov.Foc.A + cov.Ref)
  
  delta <- c(delta.a,delta.b,delta.c)
  temp1 <- t(delta)
  ncp[1] <- (round(temp1 %*% temp2 %*% delta,2))

  delta <- c(-delta.a,delta.b,delta.c)
  temp1 <- t(delta)
  ncp[2] <- (round(temp1 %*% temp2 %*% delta,2))

  delta <- c(delta.a,-delta.b,delta.c)
  temp1 <- t(delta)
  ncp[3] <- (round(temp1 %*% temp2 %*% delta,2))

  delta <- c(delta.a,delta.b,-delta.c)
  temp1 <- t(delta)
  ncp[4] <- (round(temp1 %*% temp2 %*% delta,2))

  delta <- c(-delta.a,-delta.b,delta.c)
  temp1 <- t(delta)
  ncp[5] <- (round(temp1 %*% temp2 %*% delta,2))

  delta <- c(-delta.a,delta.b,-delta.c)
  temp1 <- t(delta)
  ncp[6] <- (round(temp1 %*% temp2 %*% delta,2))

  delta <- c(delta.a,-delta.b,-delta.c)
  temp1 <- t(delta)
  ncp[7] <- (round(temp1 %*% temp2 %*% delta,2))

  delta <- c(-delta.a,-delta.b,-delta.c)
  temp1 <- t(delta)
  ncp[8] <- (round(temp1 %*% temp2 %*% delta,2))

  max.ncp <- max(ncp)
  max.ncp <- ifelse(max.ncp < 0, 0, max.ncp)
  return(max.ncp)
  
}