bhoung / trueskill-in-r Goto Github PK

The Trueskill function in Trueskill v0.2 fails on Rv4.0.5 with the following error:

Error in UseMethod("Trueskill") :
  no applicable method for 'Trueskill' applied to an object of class "list"

Even when using the simple example in the documentation:

Team1 <- Team("T1", rank = 1, list(Player("Alice", Gaussian(25, 8.3))))
Team2 <- Team("T1", rank = 2, list(Player("Bob", Gaussian(25, 8.3))))
teams <- list(Team1, Team2)

epsilon <- DrawMargin(draw_probability = 0.1, beta = 25 / 6, num_teams = 2)
parameters <- Parameters(beta = 25/6, epsilon, 25 / 300)

teams <- Trueskill(teams, parameters)

Reverting R back to v3.6.3 fixed the issue.

This script errors out:

Alice <- Player(name = "Alice", skill = Gaussian(mu = 25, sigma = 25 / 3))
Bob <- Player(name = "Bob", skill = Gaussian(mu = 25, sigma = 25 / 3))
Chris <- Player(name = "Chris", skill = Gaussian(mu = 25, sigma = 25 / 3))
Darren <- Player(name = "Darren", skill = Gaussian(mu = 25, sigma = 25 / 3))

Team1 <- Team(name = "1", rank = 1, list(Alice, Darren))
Team2 <- Team(name = "2", rank = 2, list(Bob, Chris))

teams <- list(Team1, Team2)

epsilon <- DrawMargin(draw_probability = 0.1, beta = 25 / 6, num_teams = length(teams))
parameters <- Parameters(beta = 25/6, epsilon, 25 / 300)

new_teams <- Trueskill(teams, parameters)

but if I change Team1 to just include Alice, then it succeeds. I'm using the the head of master