Nothing
"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)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.