rm deadcode

Author: philchalmers

R/M2.R

@@ -449,7 +449,7 @@ M2 <- function(obj, type="M2*", calcNull = TRUE, quadpts = NULL, theta_lim = c(-
     Ns.ratio <- do.call(c, lapply(ret, function(x) x$N.ratio))
     C2 <- outer(sqrt(Ns.ratio), sqrt(Ns.ratio)) * C2
     M2 <- abs(t(p - e) %*% C2 %*% (p - e))
-    df <- length(p) - extract.mirt(obj, 'nest')
+    df <- length(p) - extract.mirt(obj, 'nestpars')
     # df <- qr(deltac)$rank
     newret <- list(M2=M2, df=df)
     newret$p <- 1 - pchisq(M2, df)

R/SingleGroup-methods.R

@@ -705,15 +705,15 @@ setMethod(
 #' full_table <- residuals(x, type = 'expfull')
 #' head(full_table)
 #' X2 <- with(full_table, sum((freq - exp)^2 / exp))
-#' df <- nrow(full_table) - extract.mirt(x, 'nest') - 1
+#' df <- nrow(full_table) - extract.mirt(x, 'nestpars') - 1
 #' p <- pchisq(X2, df = df, lower.tail=FALSE)
 #' data.frame(X2, df, p, row.names='Pearson-X2')
 #'
 #' # above FOG test as a function
 #' PearsonX2 <- function(x){
 #'    full_table <- residuals(x, type = 'expfull')
 #'    X2 <- with(full_table, sum((freq - exp)^2 / exp))
-#'    df <- nrow(full_table) - extract.mirt(x, 'nest') - 1
+#'    df <- nrow(full_table) - extract.mirt(x, 'nestpars') - 1
 #'    p <- pchisq(X2, df = df, lower.tail=FALSE)
 #'    data.frame(X2, df, p, row.names='Pearson-X2')
 #' }