## Example 1. Data augmentation of a single partial top-9 ranking.
data_augmentation(c(3, 7, 5, 1, NA, 4, NA, 8, 2, 6, NA, 9))
## Example 2. Data augmentation of partial ranking matrix with different censoring patterns.
rank_data <- rbind(c(NA, 4, NA, 1, NA),
c(NA, NA, NA, NA, 1),
c(2, NA, 1, NA, 3),
c(4, 2, 3, 5, 1),
c(NA, 4, 1, 3, 2))
data_augmentation(rank_data)
Run the code above in your browser using DataLab