Substitute players of a hyper2 object

Given a hyper2 object, substitute some players

psubs(H, from, to)
psubs_single(H, from, to)

Arguments

H

hyper2 object

from,to

Character vector of players to substitute and their substitutes

Details

Function psubs() substitutes one or more player names, replacing player from[i] with to[i]. If argument to is missing, all players are substituted, the second argument taken to be the replacement: interpret psubs(H,vec) as psubs(H,from=pnames(H),to=vec).

Compare pnames<-(), which can only add players, or reorder existing players.

Function psubs_single() is a low-level helper function that takes a single player and its substitute; it is not intended for direct use.

Value

Returns a hyper2 object

Author

Robin K. S. Hankin

Examples

psubs(icons,c("L","NB"),c("London","Norfolk Broads"))
#> log(London^24 * (London + Norfolk Broads + OA + THC)^-20 * (London +
#> Norfolk Broads + OA + WAIS)^-9 * (London + Norfolk Broads + THC +
#> WAIS)^-15 * (London + OA + PB + THC)^-11 * (London + OA + PB +
#> WAIS)^-18 * (London + PB + THC + WAIS)^-16 * Norfolk Broads^32 *
#> (Norfolk Broads + OA + PB + THC)^-18 * (Norfolk Broads + OA + PB +
#> WAIS)^-8 * (Norfolk Broads + PB + THC + WAIS)^-18 * OA^14 * PB^30 *
#> THC^24 * WAIS^9)

rhyper2() |> psubs(letters,LETTERS)   # ignore i,j,k,...,z
#> log(A^6 * (A + B + C + D) * (A + B + C + D + E)^-1 * (A + B + C + D + E
#> + F + G)^-1 * (A + B + C + D + E + F + G + H)^-10 * (A + B + C + D + E
#> + F + H)^-1 * (A + B + C + D + E + G)^-1 * (A + B + D + E + F + G +
#> H)^-1 * (A + B + D + E + G + H)^-1 * (A + C + D + E + F + G + H)^-1 *
#> (A + C + D + E + F + H)^-1 * (A + C + F + H) * (A + D + E)^-1 * (A + D
#> + E + F)^-1 * (A + D + E + F + G + H)^-1 * (A + D + E + F + H)^-1 * (A
#> + D + E + G + H)^-2 * (A + D + E + H)^-1 * (A + D + H)^-1 * (A + E +
#> G)^-1 * (A + E + G + H)^-1 * (A + G)^-1 * (A + H)^-1 * B^5 * (B + C + D
#> + E)^-1 * (B + C + D + E + F + G + H)^-1 * (B + C + D + E + G + H)^-1 *
#> (B + D + E + G + H)^-1 * (B + D + E + H)^-1 * (B + E + F + H) * (B +
#> G)^-1 * C^4 * (C + D)^-1 * (C + D + E)^-1 * (C + D + E + F) * (C + E +
#> F + H) * D^6 * (D + E)^-2 * (D + E + H)^-1 * (D + H)^-1 * E^3 * (E +
#> G)^-1 * (E + H)^-1 * F^5 * (F + G)^-1 * G^7 * H^4)

psubs(icons,tolower(pnames(icons)))
#> log(l^24 * (l + nb + oa + thc)^-20 * (l + nb + oa + wais)^-9 * (l + nb
#> + thc + wais)^-15 * (l + oa + pb + thc)^-11 * (l + oa + pb + wais)^-18
#> * (l + pb + thc + wais)^-16 * nb^32 * (nb + oa + pb + thc)^-18 * (nb +
#> oa + pb + wais)^-8 * (nb + pb + thc + wais)^-18 * oa^14 * pb^30 *
#> thc^24 * wais^9)