R/summary.monotonicity.class.R

"summary.monotonicity.class" <-
function(object, ...){
  if(length(object) == 2) {
    object2l <- object 
    summarymat2l <- list()
    for(i in 1:2){
      object <- object2l[[i]]
      results <- object$results
      I.labels <- object$I.labels
      Hi <- object$Hi
      m <- object$m
      J <- length(results)
      j <- 0
      summary.matrix <- matrix(nrow=J,ncol=10)
      dimnames(summary.matrix) <- list(I.labels,c("ItemH","#ac","#vi","#vi/#ac","maxvi","sum","sum/#ac","zmax","#zsig","crit"))
      summary.matrix[,1] <- Hi
      for (j in 1:J) summary.matrix[j,2:9] <- results[[j]][[3]][m,c(1:7,10)]
      Crit <- 50 * (.30 - summary.matrix[,1]) + 
        sqrt(summary.matrix[,3]) + 
        100 * summary.matrix[,4]  + 
        100 * summary.matrix[,5]  + 
        10 * sqrt(summary.matrix[,6]) + 
        1000 * summary.matrix[,7]  + 
        5 * summary.matrix[,8]  + 
        10 * sqrt(summary.matrix[,9])  + 
        100 * summary.matrix[,9]/summary.matrix[,2] 
      # 11-6-2019: Moeten onderstaande twee regels aangepast worden: #1 verwijderd, en Regel 2 afgerond in plaats van floor.
      Crit[summary.matrix[,3]==0] <- 0
      summary.matrix[,10] <- floor(Crit)
      summary.matrix[,c(1:6,8:10)] <- round(summary.matrix[,c(1:6,8:10)],2)
      summary.matrix[,c(7)] <- round(summary.matrix[,c(7)],4)
      summarymat2l[[i]] <- summary.matrix
    }
    names(summarymat2l) <- c("Level.1", "Level.2")
    summary.matrix <- summarymat2l
  } else {
    results <- object$results
    I.labels <- object$I.labels
    Hi <- object$Hi
    m <- object$m
    J <- length(results)
    j <- 0
    summary.matrix <- matrix(nrow=J,ncol=10)
    dimnames(summary.matrix) <- list(I.labels,c("ItemH","#ac","#vi","#vi/#ac","maxvi","sum","sum/#ac","zmax","#zsig","crit"))
    summary.matrix[,1] <- Hi
    for (j in 1:J) summary.matrix[j,2:9] <- results[[j]][[3]][m,c(1:7,10)]
    Crit <- 50 * (.30 - summary.matrix[,1]) + 
      sqrt(summary.matrix[,3]) + 
      100 * summary.matrix[,4]  + 
      100 * summary.matrix[,5]  + 
      10 * sqrt(summary.matrix[,6]) + 
      1000 * summary.matrix[,7]  + 
      5 * summary.matrix[,8]  + 
      10 * sqrt(summary.matrix[,9])  + 
      100 * summary.matrix[,9]/summary.matrix[,2] 
    # 11-6-2019: Moeten onderstaande twee regels aangepast worden: #1 verwijderd, en Regel 2 afgerond in plaats van floor.
    Crit[summary.matrix[,3]==0] <- 0
    summary.matrix[,10] <- floor(Crit)
    summary.matrix[,c(1:6,8:10)] <- round(summary.matrix[,c(1:6,8:10)],2)
    summary.matrix[,c(7)] <- round(summary.matrix[,c(7)],4)
  }
   
   return(summary.matrix)
}

Try the mokken package in your browser

Any scripts or data that you put into this service are public.

mokken documentation built on July 9, 2023, 7:24 p.m.