Векторизованная версия которого в R?

Question

Я хочу, чтобы запустить этот цикл:

householdnums=numeric() 
    for(i in 1:length(households)){ 
     hh = households[i] 
     householdnums = c(householdnums,which(hhlist==hh)) 
    } 

Где домохозяйства и hhlist большой вектор. Проблема в том, что домохозяйства имеют дубликаты элементов в hhlist, и мне нужно сохранить порядок. Например.

hhlist = c(1,2,3,4,5,6, 8) 

households = c(1,2,1,1,4,5,6,8) 

householdnums should be: 

householdnums 
[1] 1 2 1 1 4 6 6 7 

Answer 1

матч: например, матч (домохозяйства, hhlist)