Non-transitive dice: Difference between revisions

m
→‎{{header|R}}: Changed variable name.
(Added R.)
m (→‎{{header|R}}: Changed variable name.)
Line 1,846:
rowWinner <- ifelse(comparisonTable["X"] > comparisonTable["Y"], "X",
ifelse(comparisonTable["X"] == comparisonTable["Y"], "-", "Y"))
XWinCountnetXWins <- sum(rowWinner == "X") - sum(rowWinner == "Y")
if(XWinCountnetXWins > 0) "X" else if(XWinCountnetXWins == 0) "Draw" else "Y"
}
rows <- seq_len(nrow(diceSet)) #Recall that each row of diceSet is a dice.
331

edits