rho <- t(c(1,2,3,4,5,6))
alpha <- 2
metric <- "footrule"
n_items <- 6
metropolis_hastings_rho(
alpha = alpha, n_items = n_items, rankings = rho, metric = metric,
rho = rho, leap_size = 1
)
metropolis_hastings_rho(
alpha = alpha, n_items = n_items, rankings = rho, metric = metric,
rho = rho, leap_size = 2
)
metropolis_hastings_rho(
alpha = alpha, n_items = n_items, rankings = rho, metric = metric,
rho = rho, leap_size = 3
)
rankings <- sample_mallows(
rho0 = rho, alpha0 = alpha, n_samples = 10, burnin = 1000, thinning = 500
)
metropolis_hastings_rho(
alpha = alpha, n_items = n_items, rankings = rankings, metric = metric,
rho = rho, leap_size = 1
)
Run the code above in your browser using DataLab