Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Tournois Mount & Blade
### A remplir par l'organisateur pour la création et la mise à jour du tableau de tournois ### # Liste des participants participants <- c("Ryou", "Nass", "Opu", "HB", "DD", "Nicault", "yvus", "Samet") # Numéro de la manche (1 pour créer le tableau, puis 2 à 4 pour mettre à joueur) manche <- 1 # Liste des vainqueurs par manche (uniquement pour la mise à jour) vainqueurs <- list() vainqueurs$manche1 <- c("Ryou", "Opu", "DD", "yvus") vainqueurs$manche2 <- c("Ryou", "DD") vainqueurs$manche3 <- "Ryou" #### Code pour le calcul et l'affichage ### # Réorganization aléatoire de la liste pour faire les matchs, # mais seulement si c'est la première manche if (manche == "quarts") participants <- participants[sample(1:8,8)] # Création d'un matrice de distance permettant de créer le dendrogramme # 01: même 8ème, 02: même quart, 03: autre moitié du tableau dist <- matrix(data = c(00, 01, 02, 02, 03, 03, 03, 03, 01, 00, 02, 02, 03, 03, 03, 03, 02, 02, 00, 01, 03, 03, 03, 03, 02, 02, 01, 00, 03, 03, 03, 03,03, 03, 03, 03, 00, 01, 02, 02, 03, 03, 03, 03, 01, 00, 02, 02, 03, 03, 03, 03, 02, 02, 00, 01, 03, 03, 03, 03, 02, 02, 01, 00), nrow = 8, ncol = 8, byrow = TRUE, dimnames = list(participants, participants)) dist <- dist(dist) # Calcul d'une matrice de distance à partir de la matrice ci-dessus dist <- hclust(dist) # Calcul du dendrogramme # Affichage du dendrogramme et formattage par(mar = c(4,4,3,1)) plot(as.dendrogram(dist), las = 3, xlab = "", yaxt = "n", leaflab = "none") text(y = -0.1, x = c(1:8), srt = 30, xpd = TRUE, adj = c(1,1), labels = participants) text(x = 0, y = c(1.5, 3.3, 5.5), xpd = TRUE, adj = c(0.5,1), labels = c("Quarts", "Demi", "Finale")) # Update à la première manche, à éditer avant d'executer la suite if (manche > 1) { vainqueurs$manche1 <- which(participants %in% vainqueurs$manche2) text(y = 1.55, x = seq(1.5, 7.5, 2)+0.2, srt = 30, xpd = TRUE, adj = c(0,0), labels = participants[vainqueurs$manche1]) } # Update à la deuxième manche, à éditer avant d'executer la suite if (manche > 2) { vainqueurs$manche2 <- which(participants %in% vainqueurs$manche2) text(y = 3.35, x = c(2.5, 6.5)+0.2, srt = 30, xpd = TRUE, adj = c(0,0), labels = participants[vainqueurs$manche2]) } # And the winner is! if (manche > 3) { vainqueurs$manche3 <- which(participants %in% vainqueurs$manche3) text(y = 5.8, x = 4.5, xpd = TRUE, adj = c(0.5,0), cex = 2, labels = participants[vainqueurs$manche3]) }
run
|
edit
|
history
|
help
0
AjusteLinearizado-09-01-21
Gab1A(resumido)
Assig
23-09-2020InterpolaçãoNewtonform
Practice
Scatterplot using ggplot Sample
Iron exp suco fatorial
Simple Examples in ggplot2
Zerlina L Bi-variate Regression
iris