diff --git a/R/rating_methods.R b/R/rating_methods.R index 7b4f8dc..6430373 100644 --- a/R/rating_methods.R +++ b/R/rating_methods.R @@ -15,7 +15,7 @@ #' diag( n ) <- 0 #' g <- rowSums( n ) #' # Number of win matches for each team -#' # w <- sapply( 1:d, FUN = function( i ) sample( x = 1:g[i], size = 1, replace = TRUE ) ) +#' w <- sapply( 1:d, FUN = function( i ) sample( x = 1:g[i], size = 1, replace = TRUE ) ) #' # Number of lost matches for ech team #' l <- rowSums( n ) - w #' r <- colley_rating( n, w, l ) diff --git a/man/colley_rating.Rd b/man/colley_rating.Rd index 01d3648..3c2e98b 100644 --- a/man/colley_rating.Rd +++ b/man/colley_rating.Rd @@ -28,7 +28,7 @@ n <- n + t( n ) diag( n ) <- 0 g <- rowSums( n ) # Number of win matches for each team -# w <- sapply( 1:d, FUN = function( i ) sample( x = 1:g[i], size = 1, replace = TRUE ) ) +w <- sapply( 1:d, FUN = function( i ) sample( x = 1:g[i], size = 1, replace = TRUE ) ) # Number of lost matches for ech team l <- rowSums( n ) - w r <- colley_rating( n, w, l )