# the simplest example
data <- data.frame(
id = c(1, 1, 1, 1),
name = c("A", "B", "C", "D"),
rank = c(3, 4, 1, 2),
gate = c(1, 2, 3, 4),
factor1 = c("a", "a", "b", "b"),
factor2 = c("a", "b", "a", "b")
)
dbl <- dbl_run(
data = data,
formula = rank | id ~ player(name)
)
dbl <- dbl_run(
data = data,
formula = rank | id ~ player(name) + gate * factor1
)
Run the code above in your browser using DataLab