comparison.pvalue <- function(method1, method2){
    if (method1 == method2) {
        return 1
    }

    for (i in 1:length(index.rank.dunn.test$comparisons)){
        if ((method1 %in% index.rank.dunn.test$comparisons[i]) &
            (method2 %in% index.rank.dunn.test$comparisons[i])
        ) {
            p.value <- index.rank.dunn.test$P.adjusted[i]
            continue
        }
    }

    return(p.value)
}