# the simplest example
data <- data.frame(
id = c(1, 1, 1, 1),
team = c("A", "A", "B", "B"),
player = c("a", "b", "c", "d"),
rank_team = c(1, 1, 2, 2),
rank_player = c(3, 4, 1, 2)
)
bbt <- bbt_run(
data = data,
formula = rank_player | id ~ player(player),
r = setNames(c(25, 23.3, 25.83, 28.33), c("a", "b", "c", "d")),
rd = setNames(c(4.76, 0.71, 2.38, 7.14), c("a", "b", "c", "d"))
)
# nested matchup
bbt <- bbt_run(
data = data,
formula = rank_team | id ~ player(player | team)
)
Run the code above in your browser using DataLab