judges$sex.politics[judges$sex=="Male" & judges$republican=="0"]<-1
judges$sex.politics[judges$sex=="Male" & judges$republican=="1"]<-2
judges$sex.politics[judges$sex=="Female" & judges$republican=="0"]<-3
judges$sex.politics[judges$sex=="Female" & judges$republican=="1"]<-4
judges$sex.politics=factor(judges$sex.politics,labels=c("M-dem", "M-rep", "F-dem", "F-rep"))
No comments:
Post a Comment