socialranking
The package socialranking offers functions to represent ordinal information of coalitions and calculate the power relation between elements or players.
Install the package directly from CRAN with:
You can also install the development version of socialranking from GitHub with:
The package socialranking offers functions to represent ordinal information of coalitions and calculate the power relation between elements or players.
Once installed, call library(socialranking) to load the package into your current environment.
newPowerRelation() and newPowerRelationFromString() creates a PowerRelation object. createPowerset() is a convenient function to generate a newPowerRelation() function call for all possible coalitions.
library(socialranking)
if(interactive()) {
createPowerset(1:3, copyToClipboard = TRUE)
}
# pasted, rearranged, adjusted comparators
pr <- newPowerRelation(
c(1,2,3),
">", c(1,2),
"~", c(1,3),
">", c(2),
"~", c(2,3),
">", c(1),
">", c(3)
)
# equivalent
pr <- newPowerRelation(
rankingCoalitions = list(c(1,2,3), c(1,2), c(1,3), c(2), c(2,3), c(1), c(3)),
rankingComparators = c(">", "~", ">", "~", ">", ">")
)
# equivalent
pr <- newPowerRelationFromString("123 > 12 ~ 13 > 2 ~ 23 > 1 > 3", asWhat = as.numeric)
pr
#> Elements: 1 2 3
#> 123 > (12 ~ 13) > (2 ~ 23) > 1 > 3
pr$elements
#> [1] 1 2 3
pr$equivalenceClasses[[2]]
#> [[1]]
#> {1, 2}
#>
#> [[2]]
#> {1, 3}The functions used to analyze power relations can be grouped into comparison functions, score functions and ranking solutions. Ranking solutions produce a SocialRankingSolution object.
| Comparison Functions | Score Functions | Ranking Solutions |
|---|---|---|
dominates() |
||
cumulativelyDominates() |
cumulativeScores() |
|
cpMajorityComparison()^1 |
copelandScores() |
copelandRanking() |
kramerSimpsonScores() |
kramerSimpsonRanking() |
|
lexcelScores() |
lexcelRanking() |
|
dualLexcelRanking() |
||
ordinalBanzhafScores() |
ordinalBanzhafRanking() |
^1 cpMajorityComparisonScore() is a faster alternative to cpMajorityComparison(), but it produces less data.
dominates(pr, 1, 2)
#> [1] FALSE
copelandRanking(pr)
#> 1 ~ 2 > 3
lexcelScores(pr, 1)
#> $`1`
#> [1] 1 2 0 1 0
#>
#> attr(,"class")
#> [1] "LexcelScores"PowerRelation objects can be turned into relations objects from the relations package using powerRelationMatrix() or as.relation().
Use browseVignettes("socialranking") for further information.
This package is licensed under GPL-3.