1. + 2 & executive[number==i] > 0 & !is.na(executive[number==i]) & exec_id[number==i]==j, na.rm=TRUE ) president.improved.nominated[j,i] <-sum;<= sum(executive[number==i] != 0, na.rm=T)
2. Fernandez") rownames(president.shortlisted.nominated) <-presidents rownames;==j, na.rm=TRUE ) }} presidents <-list