View difference between Paste ID: Uh5qY0dr and hvHTQaaZ

-comparison.pvalue <- function(index1, index2){
+comparison.pvalue <- function(method1, method2){
-  if (index1 != index2){
+	if (method1 == method2) {
-    for (i in 1:length(index.rank.dunn.test$comparisons)){
+		return 1
-      if ((index1 %in% index.rank.dunn.test$comparisons[i]) &
+	}
-          (index2 %in% index.rank.dunn.test$comparisons[i])){
+
-        j <- i
+	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])
-    # i <- which(str_detect(index.rank.dunn.test$comparisons, index1) &
+		) {
-    #              str_detect(index.rank.dunn.test$comparisons, index2))
+			p.value <- index.rank.dunn.test$P.adjusted[i]
-    p.value <- index.rank.dunn.test$P.adjusted[j]
+			continue
-  } else{
+		}
-    p.value <- 1
+	}
-  }
+
-
+	return(p.value)
-  output <- p.value
+