This document shows you the competitive pressure map for each round for both universes. It shows the influence. For e.g. look at the first one which is very symmetrical. Each one has the influence on other. As rounds progress the relative influence keeps coming down. The origin arc shows the amount of influences being exerted on the others.
## `summarise()` has grouped output by 'player_list1'. You can override using the
## `.groups` argument.universe 1
r0 <- comppressuremap(universeno=1,roundno=0)## team1 team2 team3 team4 team5 team6
## team1 NA 0.1666667 0.1666667 0.1666667 0.1666667 0.1666667
## team2 0.1666667 NA 0.1666667 0.1666667 0.1666667 0.1666667
## team3 0.1666667 0.1666667 NA 0.1666667 0.1666667 0.1666667
## team4 0.1666667 0.1666667 0.1666667 NA 0.1666667 0.1666667
## team5 0.1666667 0.1666667 0.1666667 0.1666667 NA 0.1666667
## team6 0.1666667 0.1666667 0.1666667 0.1666667 0.1666667 NA
## [1] "min=0.166666666666667"
## [1] "team2" "team3" "team4" "team5" "team6" "team1" "team3" "team4" "team5"
## [10] "team6" "team1" "team2" "team4" "team5" "team6" "team1" "team2" "team3"
## [19] "team5" "team6" "team1" "team2" "team3" "team4" "team6" "team1" "team2"
## [28] "team3" "team4" "team5"
## [1] "team1" "team1" "team1" "team1" "team1" "team2" "team2" "team2" "team2"
## [10] "team2" "team3" "team3" "team3" "team3" "team3" "team4" "team4" "team4"
## [19] "team4" "team4" "team5" "team5" "team5" "team5" "team5" "team6" "team6"
## [28] "team6" "team6" "team6"
## [1] "max=0.166666666666667"
## [1] "team2" "team3" "team4" "team5" "team6" "team1" "team3" "team4" "team5"
## [10] "team6" "team1" "team2" "team4" "team5" "team6" "team1" "team2" "team3"
## [19] "team5" "team6" "team1" "team2" "team3" "team4" "team6" "team1" "team2"
## [28] "team3" "team4" "team5"
## [1] "team1" "team1" "team1" "team1" "team1" "team2" "team2" "team2" "team2"
## [10] "team2" "team3" "team3" "team3" "team3" "team3" "team4" "team4" "team4"
## [19] "team4" "team4" "team5" "team5" "team5" "team5" "team5" "team6" "team6"
## [28] "team6" "team6" "team6"chorddiag(r0,groupnamePadding = 20, groupColors = c("green", "red", "blue","darkorange", "grey", "yellow"))r1 <- comppressuremap(universeno=1,roundno=1)## team1 team2 team3 team4 team5 team6
## team1 NA 0.1371373 0.1345121 0.1351274 0.1400273 0.1397193
## team2 0.1455531 NA 0.1494967 0.1404479 0.1453213 0.1446559
## team3 0.1807188 0.1892377 NA 0.1822062 0.1794132 0.1811753
## team4 0.2216577 0.2170645 0.2224643 NA 0.2192125 0.2194954
## team5 0.1817662 0.1777313 0.1733456 0.1734709 NA 0.1831941
## team6 0.1303540 0.1271563 0.1258128 0.1248400 0.1316675 NA
## [1] "min=0.124840042144746"
## [1] "team6"
## [1] "team4"
## [1] "max=0.222464338521678"
## [1] "team4"
## [1] "team3"chorddiag(r1,groupnamePadding = 20, groupColors = c("green", "red", "blue","darkorange", "grey", "yellow"))r2 <- comppressuremap(universeno=1,roundno=2)## team1 team2 team3 team4 team5 team6
## team1 NA 0.1497943 0.1501511 0.1502483 0.1489332 0.1525471
## team2 0.1571686 NA 0.1583518 0.1581371 0.1587269 0.1560869
## team3 0.1722290 0.1731132 NA 0.1717731 0.1743916 0.1700321
## team4 0.2033729 0.2040078 0.2027034 NA 0.2032136 0.2040464
## team5 0.1766864 0.1794700 0.1803680 0.1781070 NA 0.1742300
## team6 0.1381331 0.1347069 0.1342293 0.1365021 0.1329858 NA
## [1] "min=0.132985752268568"
## [1] "team6"
## [1] "team5"
## [1] "max=0.204046384334643"
## [1] "team4"
## [1] "team6"chorddiag(r2,groupnamePadding = 20, groupColors = c("green", "red", "blue","darkorange", "grey", "yellow"))r3 <- comppressuremap(universeno=1,roundno=3)## team1 team2 team3 team4 team5 team6
## team1 NA 0.22744688 0.13690798 0.14144060 0.12098411 0.11976261
## team2 0.1316390 NA 0.03234186 0.04114899 0.02995189 0.03693249
## team3 0.1654500 0.06753026 NA 0.19967709 0.20353713 0.20523877
## team4 0.1977869 0.09942099 0.23105413 NA 0.23009060 0.22684488
## team5 0.1578792 0.06753302 0.21978706 0.21471967 NA 0.21287177
## team6 0.1234536 0.06577887 0.17506680 0.16721987 0.16815276 NA
## [1] "min=0.0299518916244024"
## [1] "team2"
## [1] "team5"
## [1] "max=0.231054125862879"
## [1] "team4"
## [1] "team3"chorddiag(r3,groupnamePadding = 20, groupColors = c("green", "red", "blue","darkorange", "grey", "yellow"))r4 <- comppressuremap(universeno=1,roundno=4)## team1 team2 team3 team4 team5 team6
## team1 NA 0.11510339 0.10044637 0.09460461 0.08957773 0.1547445
## team2 0.08957185 NA 0.05021616 0.05127543 0.04079263 0.0335995
## team3 0.16596957 0.10662382 NA 0.23666603 0.23627776 0.2114324
## team4 0.16225969 0.11301190 0.24566315 NA 0.25101883 0.2167781
## team5 0.12714146 0.07440214 0.20296248 0.20772805 NA 0.1866786
## team6 0.19568925 0.05460105 0.16181880 0.15983388 0.16632556 NA
## [1] "min=0.0335994956266924"
## [1] "team2"
## [1] "team6"
## [1] "max=0.251018829392428"
## [1] "team4"
## [1] "team5"chorddiag(r4,groupnamePadding = 20, groupColors = c("green", "red", "blue","darkorange", "grey", "yellow"))r5 <- comppressuremap(universeno=1,roundno=5)## team1 team2 team3 team4 team5 team6
## team1 NA 0.06053126 0.09542923 0.16511081 0.13777534 0.06517755
## team2 0.04508577 NA 0.12573025 0.07326101 0.11302800 0.08774437
## team3 0.13869472 0.24533443 NA 0.21411078 0.29669056 0.27864646
## team4 0.11533804 0.06870846 0.10290989 NA 0.09538235 0.16012579
## team5 0.16885148 0.18597717 0.25018347 0.16734175 NA 0.19683846
## team6 0.03952223 0.07143365 0.11625680 0.13899768 0.09739125 NA
## [1] "min=0.0395222258321417"
## [1] "team6"
## [1] "team1"
## [1] "max=0.296690564444367"
## [1] "team3"
## [1] "team5"chorddiag(r5,groupnamePadding = 20, groupColors = c("green", "red", "blue","darkorange", "grey", "yellow"))# comppressuremap(universeno=1,roundno=6)
# comppressuremap(universeno=1,roundno=7)
# comppressuremap(universeno=1,roundno=8)
# comppressuremap(universeno=1,roundno=9)universe 2
# comppressuremap(universeno=2,roundno=0)
# comppressuremap(universeno=2,roundno=1)
# comppressuremap(universeno=2,roundno=2)
# comppressuremap(universeno=2,roundno=3)
# comppressuremap(universeno=2,roundno=4)
# comppressuremap(universeno=2,roundno=5)
# comppressuremap(universeno=2,roundno=6)
# comppressuremap(universeno=2,roundno=7)
# comppressuremap(universeno=2,roundno=8)
# comppressuremap(universeno=2,roundno=9)