my.doubles.bad: Score Badminton Doubles Game
In ryamada22/Ronlyryamada:

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

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

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

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)
doubles.score$Point.team
doubles.score$Points
doubles.score$Server.4
doubles.score$Server.side
doubles.score$Location