## generate list of individuals' preference rankings over objects
P <- list()
P[[1]] <- c(2,5,1,4,3) # individual 1
P[[2]] <- c(1,5,4,3,2) # individual 2
P[[3]] <- c(2,1,4,3,5) # individual 3
P[[4]] <- c(2,4,3,1,5) # individual 4
P[[5]] <- c(4,3,1,2,5); P # individual 5
## generate 2-column-matrix of objects ('obj') and their owners ('ind')
X <- data.frame(ind=1:5, obj=1:5); X
## find assignment based on TTC algorithm
ttc(P=P,X=X)
Run the code above in your browser using DataLab