'/ Oil Curse table 4.1, table 4.2, table 4.3 /' replication<-Replication_data_for_The_Oil_Curse_Ross_2012 "/Table 4.1/" test1<-replication[replication$year==2002 & replication$gdpcap2000_sup<5000, ,drop=F] t.test(test1$laborfemale[test1$oil_gas_value100==0], test1$laborfemale[test1$oil_gas_value100==1],alternative="greater") test2<-replication[replication$year==2002 & replication$gdpcap2000_sup>5000, ,drop=F] t.test(test2$laborfemale[test2$oil_gas_value100==0], test2$laborfemale[test2$oil_gas_value100==1],alternative="greater") test3<-replication[replication$year==2002 & replication$me_nafr>.5, ,drop=F] t.test(test3$laborfemale[test3$oil_gas_value100==0], test3$laborfemale[test3$oil_gas_value100==1],alternative="greater") test4<-replication[replication$year==2002 & replication$me_nafr<.5, ,drop=F] t.test(test4$laborfemale[test4$oil_gas_value100==0], test4$laborfemale[test4$oil_gas_value100==1],alternative="greater") test5<-replication[replication$year==2002 & replication$me_nafr<.5 & replication$oecd<.5, ,drop=F] t.test(test5$laborfemale[test5$oil_gas_value100==0], test5$laborfemale[test5$oil_gas_value100==1],alternative="greater") test6<-replication[replication$year==2002, ,drop=F] t.test(test6$laborfemale[test6$oil_gas_value100==0], test6$laborfemale[test6$oil_gas_value100==1],alternative="greater") "/Table 4.2/" t.test(test1$cloth_text2000_cap[test1$oil_gas_value100==0],test1$cloth_text2000_cap[test1$oil_gas_value100==1],alternative="greater") t.test(test2$cloth_text2000_cap[test2$oil_gas_value100==0],test2$cloth_text2000_cap[test2$oil_gas_value100==1],alternative="greater") t.test(test6$cloth_text2000_cap[test6$oil_gas_value100==0],test6$cloth_text2000_cap[test6$oil_gas_value100==1],alternative="greater") "/Table 4.3/" t.test(test1$female_seats[test1$oil_gas_value100==0], test1$female_seats[test1$oil_gas_value100==1],alternative="greater") t.test(test2$female_seats[test2$oil_gas_value100==0], test2$female_seats[test2$oil_gas_value100==1],alternative="greater") t.test(test3$female_seats[test3$oil_gas_value100==0], test3$female_seats[test3$oil_gas_value100==1],alternative="greater") t.test(test4$female_seats[test4$oil_gas_value100==0], test4$female_seats[test4$oil_gas_value100==1],alternative="greater") t.test(test5$female_seats[test5$oil_gas_value100==0], test5$female_seats[test5$oil_gas_value100==1],alternative="greater") t.test(test6$female_seats[test6$oil_gas_value100==0], test6$female_seats[test6$oil_gas_value100==1],alternative="greater")