pwa: Player with advantage

Description

Commonly, when considering competitive situations we suspect that one player has an advantage of some type which we would like to quantify in terms of an additional strength. Examples might include racing at pole position, playing white in chess, or playing soccer at one's home ground. Function pwa() (“player with advantage”) returns a modified hyper2 object with the additional strength represented as a reified entity.

Usage

pwa(H, pwa, chameleon = "S")

Arguments

A hyper2 object

pwa

A list of the players with the supposed advantage; may be character in the case of a named hyper2 object, or an integer vector

chameleon

String representing the advantage

Value

Returns an object of class hyper2.

Details

Given an object of class hyper2 and a competitor a, we replace every occurence of a with a+S, with S representing the extra strength conferred.

However, the function also takes a vector of competitors. If there is more than one competitor, the resulting likelihood function does not seem to instantiate any simple situation.

Nice examples of pwa() are given in inst/cook.Rmd and inst/universities.Rmd.

Examples

Run this code

# NOT RUN {
H <- ordervec2supp(c(a = 2, b = 3, c = 1, d = 5, e = 4))
pwa(H,'a')


formula1 %>% pwa("Hamilton","pole")


## Three five-way races:
H1 <- ordervec2supp(c(a = 1, b = 5, c = 3, d = 4, e = 2))
H2 <- ordervec2supp(c(a = 2, b = 3, c = 1, d = 4, e = 5))
H3 <- ordervec2supp(c(a = 4, b = 3, c = 0, d = 1, e = 2))

## Now it is revealed that a,b,c had some advantage in races 1,2,3 respectively:
Ht <- pwa(H1,'a') + pwa(H2,'b') + pwa(H2,'c')

specificp.test(Ht,"S")

# }