- "/" ""
indx <- setNames(rep(c(paste0('type',1:3), 'unknown'), c(3,3,4,2)),
c(levels(job)[c(1,3,7)], levels(job)[c(2,5,10)],
levels(job)[c(4,6,8,9)], levels(job)[c(11,12)]))
factor(unname(indx[as.character(job)]))
v1 <- c('admin.', 'blue-collar', 'entrepreneur', 'housemaid',
'management', 'retired', 'self-employed', 'services', 'student',
'technician', 'unemployed', 'unknown')
set.seed(24)
job <- factor(sample(v1, 50, replace=TRUE))