Sha256: 25233e3d76f4a97168a32579813d83287aa41632ca20c70bfbd65c3d0270e72f
Contents?: true
Size: 1.04 KB
Versions: 28
Compression:
Stored size: 1.04 KB
Contents
tournament <- function(input) {
results <- data.frame(Team = "tempTeam", MP = 0, W = 0, D = 0, L = 0, P = 0)
for (item in input) {
match <- unlist(strsplit(item, ";"))
# Check that match result is valid
if (length(match) != 3 || !(match[3] %in% c("draw", "win", "loss"))) {
next
}
else {
# Process result
if (match[3]=="draw") {
results <- rbind(results, c(match[1], 1, 0, 1, 0, 1), c(match[2], 1, 0, 1, 0, 1))
} else if (match[3]=="win") {
results <- rbind(results, c(match[1], 1, 1, 0, 0, 3), c(match[2], 1, 0, 0, 1, 0))
} else {
results <- rbind(results, c(match[2], 1, 1, 0, 0, 3), c(match[1], 1, 0, 0, 1, 0))
}
}
}
results$MP <- as.numeric(results$MP)
results$W <- as.numeric(results$W)
results$D <- as.numeric(results$D)
results$L <- as.numeric(results$L)
results$P <- as.numeric(results$P)
output <- aggregate(.~Team, results[-1,], sum)
output <- output[order(-output$P,output$Team), ]
row.names(output) <- 1:nrow(output)
output
}
Version data entries
28 entries across 28 versions & 1 rubygems