my.doubles.bad: Score Badminton Doubles Game

In ryamada22/Rryamada:

Description

This function returns players' info from a serial record of pointing teams.

Usage

my.doubles.bad(K, p = 21)

Arguments

K	is a vector of 1 or 2.
p	is the max point of a game.

Examples

K <- sample(1:2,42,replace=TRUE,prob=c(0.49,0.51))
K <- c(1,1,1,1,1,1,2,1,2,1,2,1,1,2,1,2,2,1,1,2,2,1,1,1,2,1,2,1,1,2,1,1)
K <- K * (-1) + 3
# The score sheet for this match : http://www.badminton.or.jp/nba/shinpan/scoresheet.pdf
doubles.score <- my.doubles.bad(K)
# <e3><83><9d><e3><82><a4><e3><83><b3><e3><83><88><e3><83><81><e3><83><bc><e3><83><a0><e8><a8><98><e9><8c><b2>
doubles.score$Point.team
# <e3><83><81><e3><83><bc><e3><83><a0><e5><88><a5><e7><b4><af><e7><a9><8d><e3><83><9d><e3><82><a4><e3><83><b3><e3><83><88><e3><83><ad><e3><82><b0>
doubles.score$Points
# <e3><82><b5><e3><83><bc><e3><83><90><e3><83><bc><e3><81><af><e8><aa><b0><e3><81><8b>
doubles.score$Server.4
# <e3><82><b5><e3><83><bc><e3><83><90><e3><83><bc><e3><83><bb><e3><83><ac><e3><82><b7><e3><83><bc><e3><83><90><e3><83><bc><e3><81><ae><e5><b7><a6><e5><8f><b3><e4><bd><8d><e7><bd><ae>
doubles.score$Server.side
# <e5><90><84><e3><83><81><e3><83><bc><e3><83><a0><e3><81><ae><e3><83><a1><e3><83><b3><e3><83><90><e3><83><bc><e3><81><ae><e4><bd><8d><e7><bd><ae>(<e5><88><9d><e6><9c><9f><e4><bd><8d><e7><bd><ae><e3><81><8b><e3><81><9d><e3><81><ae><e9><80><86><e3><81><8b>)
doubles.score$Location

ryamada22/Rryamada documentation built on May 28, 2019, 10:43 a.m.