NDAA_gender<-NDAA_v_final %>% 
  select(ResponseId, gender)

serve_date = merge(x=serve_date,y=NDAA_gender,by="ResponseId",all=TRUE)



serve_date<-serve_date %>% 
  select(-ResponseId,-X)

table1(~.|gender, data= serve_date)
Female
(N=478)
Male
(N=758)
Non-binary
(N=6)
Prefer not to say
(N=3)
Transgender female
(N=3)
Transgender male
(N=1)
Overall
(N=1249)
September.2001.or.later
No 203 (42.5%) 550 (72.6%) 3 (50.0%) 2 (66.7%) 3 (100%) 1 (100%) 762 (61.0%)
Yes 275 (57.5%) 208 (27.4%) 3 (50.0%) 1 (33.3%) 0 (0%) 0 (0%) 487 (39.0%)
August.1990.to.August.2001
No 392 (82.0%) 631 (83.2%) 4 (66.7%) 3 (100%) 3 (100%) 0 (0%) 1033 (82.7%)
Yes 86 (18.0%) 127 (16.8%) 2 (33.3%) 0 (0%) 0 (0%) 1 (100%) 216 (17.3%)
Currently.in.Military
No 403 (84.3%) 684 (90.2%) 5 (83.3%) 2 (66.7%) 3 (100%) 1 (100%) 1098 (87.9%)
Yes 75 (15.7%) 74 (9.8%) 1 (16.7%) 1 (33.3%) 0 (0%) 0 (0%) 151 (12.1%)
May.1975.to.July.1990
No 408 (85.4%) 599 (79.0%) 6 (100%) 3 (100%) 3 (100%) 1 (100%) 1020 (81.7%)
Yes 70 (14.6%) 159 (21.0%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 229 (18.3%)
Prior.to.August.1964
No 475 (99.4%) 708 (93.4%) 6 (100%) 3 (100%) 3 (100%) 1 (100%) 1196 (95.8%)
Yes 3 (0.6%) 50 (6.6%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 53 (4.2%)
Vietnam.Era
No 463 (96.9%) 476 (62.8%) 6 (100%) 2 (66.7%) 0 (0%) 1 (100%) 948 (75.9%)
Yes 15 (3.1%) 282 (37.2%) 0 (0%) 1 (33.3%) 3 (100%) 0 (0%) 301 (24.1%)
gender
Female 478 (100%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 478 (38.3%)
Male 0 (0%) 758 (100%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 758 (60.7%)
Non-binary 0 (0%) 0 (0%) 6 (100%) 0 (0%) 0 (0%) 0 (0%) 6 (0.5%)
Prefer not to say 0 (0%) 0 (0%) 0 (0%) 3 (100%) 0 (0%) 0 (0%) 3 (0.2%)
Transgender female 0 (0%) 0 (0%) 0 (0%) 0 (0%) 3 (100%) 0 (0%) 3 (0.2%)
Transgender male 0 (0%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 1 (100%) 1 (0.1%)