Add Married attribute and fix grepl patterns
Modify clustering to return data frame with cluster vectors