#df_v[df_v == "No Info"] <- NA
#df_v[df_v == "NEFTQ"] <- NA
#write.csv(Q2.5_exp, file = 'Serve_date.csv')

serve_date<- read.csv("C:/Users/u6032404/OneDrive/backup 9.9.19/MJ/NDAA/CODE_Q/Serve_date.csv",header = T)


serve_date$September<- as.factor(serve_date$September)
serve_date$NEFTQ<- as.factor(serve_date$NEFTQ)


library(dplyr)
serve_date<- serve_date%>% 
       mutate(status9_11 = case_when((September == "Yes" | NEFTQ == "Yes") ~ "Post 9/11",
                                          TRUE ~ "Pre 9/11"))
df_v<-full_join(df_v,serve_date, by= "ResponseId" )


table(df_v$Q2.5)
## 
##                                                                                       August 1990 to August 2001 
##                                                                                                              107 
##                                                                 August 1990 to August 2001,May 1975 to July 1990 
##                                                                                                               23 
##                         August 1990 to August 2001,May 1975 to July 1990,Vietnam Era (August 1964 to April 1975) 
##                                                                                                               20 
##                                                                                            May 1975 to July 1990 
##                                                                                                              111 
##                                                    May 1975 to July 1990,Vietnam Era (August 1964 to April 1975) 
##                                                                                                               30 
##                               May 1975 to July 1990,Vietnam Era (August 1964 to April 1975),Prior to August 1964 
##                                                                                                               13 
##                                                                                                            NEFTQ 
##                                                                                                              124 
##                                                                                             Prior to August 1964 
##                                                                                                               52 
##                                                                                          September 2001 or later 
##                                                                                                              417 
##                                                               September 2001 or later,August 1990 to August 2001 
##                                                                                                               32 
##                                         September 2001 or later,August 1990 to August 2001,May 1975 to July 1990 
##                                                                                                               16 
## September 2001 or later,August 1990 to August 2001,May 1975 to July 1990,Vietnam Era (August 1964 to April 1975) 
##                                                                                                                2 
##                       September 2001 or later,August 1990 to August 2001,Vietnam Era (August 1964 to April 1975) 
##                                                                                                                1 
##                                                                    September 2001 or later,May 1975 to July 1990 
##                                                                                                                2 
##                                                                          Vietnam Era (August 1964 to April 1975) 
##                                                                                                              224 
##                                                     Vietnam Era (August 1964 to April 1975),Prior to August 1964 
##                                                                                                               11
table(df_v$status9_11)
## 
## Post 9/11  Pre 9/11 
##       594       591

# Factors about continuing education (Veteran)

Female
Male
Other
Overall
Post 9/11
(N=326)		 Pre 9/11
(N=118)		 Post 9/11
(N=262)		 Pre 9/11
(N=466)		 Post 9/11
(N=6)		 Pre 9/11
(N=7)		 Post 9/11
(N=594)		 Pre 9/11
(N=591)
X
Mean (SD) 601 (357) 620 (366) 624 (352) 645 (363) 440 (362) 779 (430) 609 (354) 641 (364)
Median [Min, Max] 582 [1.00, 1240] 622 [5.00, 1240] 635 [6.00, 1240] 656 [3.00, 1240] 427 [54.0, 1000] 862 [57.0, 1160] 603 [1.00, 1240] 650 [3.00, 1240]
I.had.to.provide.for.take.care.of.a.spouse.partner
No 232 (71.2%) 90 (76.3%) 176 (67.2%) 330 (70.8%) 6 (100%) 5 (71.4%) 414 (69.7%) 425 (71.9%)
Yes 94 (28.8%) 28 (23.7%) 86 (32.8%) 136 (29.2%) 0 (0%) 2 (28.6%) 180 (30.3%) 166 (28.1%)
I.had.to.provide.for.take.care.of.children
No 150 (46.0%) 68 (57.6%) 157 (59.9%) 350 (75.1%) 5 (83.3%) 5 (71.4%) 312 (52.5%) 423 (71.6%)
Yes 176 (54.0%) 50 (42.4%) 105 (40.1%) 116 (24.9%) 1 (16.7%) 2 (28.6%) 282 (47.5%) 168 (28.4%)
I.felt.I.had.enough.education
No 255 (78.2%) 96 (81.4%) 197 (75.2%) 352 (75.5%) 4 (66.7%) 6 (85.7%) 456 (76.8%) 454 (76.8%)
Yes 71 (21.8%) 22 (18.6%) 65 (24.8%) 114 (24.5%) 2 (33.3%) 1 (14.3%) 138 (23.2%) 137 (23.2%)
Not.applicable
No 295 (90.5%) 91 (77.1%) 215 (82.1%) 328 (70.4%) 3 (50.0%) 4 (57.1%) 513 (86.4%) 423 (71.6%)
Yes 31 (9.5%) 27 (22.9%) 47 (17.9%) 138 (29.6%) 3 (50.0%) 3 (42.9%) 81 (13.6%) 168 (28.4%)
I.had.to.provide.for.take.care.of.parents
No 272 (83.4%) 103 (87.3%) 215 (82.1%) 449 (96.4%) 6 (100%) 6 (85.7%) 493 (83.0%) 558 (94.4%)
Yes 54 (16.6%) 15 (12.7%) 47 (17.9%) 17 (3.6%) 0 (0%) 1 (14.3%) 101 (17.0%) 33 (5.6%)
Other
No 313 (96.0%) 113 (95.8%) 249 (95.0%) 426 (91.4%) 6 (100%) 5 (71.4%) 568 (95.6%) 544 (92.0%)
Yes 13 (4.0%) 5 (4.2%) 13 (5.0%) 40 (8.6%) 0 (0%) 2 (28.6%) 26 (4.4%) 47 (8.0%)
No.Info
No 326 (100%) 118 (100%) 261 (99.6%) 465 (99.8%) 6 (100%) 7 (100%) 593 (99.8%) 590 (99.8%)
Yes 0 (0%) 0 (0%) 1 (0.4%) 1 (0.2%) 0 (0%) 0 (0%) 1 (0.2%) 1 (0.2%)
Gender
Female 326 (100%) 118 (100%) 0 (0%) 0 (0%) 0 (0%) 0 (0%) 326 (54.9%) 118 (20.0%)
Male 0 (0%) 0 (0%) 262 (100%) 466 (100%) 0 (0%) 0 (0%) 262 (44.1%) 466 (78.8%)
Other 0 (0%) 0 (0%) 0 (0%) 0 (0%) 6 (100%) 7 (100%) 6 (1.0%) 7 (1.2%)
status9_11
Post 9/11 326 (100%) 0 (0%) 262 (100%) 0 (0%) 6 (100%) 0 (0%) 594 (100%) 0 (0%)
Pre 9/11 0 (0%) 118 (100%) 0 (0%) 466 (100%) 0 (0%) 7 (100%) 0 (0%) 591 (100%)
DQoNCg0KLS0tDQp0aXRsZTogJ05EQUEgUmVwb3J0IDIgJw0KYXV0aG9yOiAiVE9SQ0giDQpkYXRlOiAiMi8xMy8yMDIxIg0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50Og0KICAgIGRmX3ByaW50OiB0aWJibGUNCiAgICBmaWdfY2FwdGlvbjogeWVzDQogICAgdG9jOiB5ZXMNCiAgICB0b2NfZmxvYXQ6IHllcw0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICB3b3JkX2RvY3VtZW50Og0KICAgIHRvYzogeWVzDQotLS0NCg0KDQoNCmBgYHtyIGluY2x1ZGU9RkFMU0V9DQpsaWJyYXJ5KHRhYmxlMSkNCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KGNhcikNCmBgYA0KDQpgYGB7ciBpbmNsdWRlPUZBTFNFfQ0KIyBkYXRhDQpkZl92PC0gcmVhZC5jc3YoIkM6L1VzZXJzL3U2MDMyNDA0L09uZURyaXZlL2JhY2t1cCA5LjkuMTkvTUovTkRBQS9DT0RFX1EvVmV0ZXJhbk5EQUFTdXJ2ZXlEYXRhX0ZpbmFsX1ZfMl83LmNzdiIsaGVhZGVyID0gVCkNCg0KZGZfbnY8LSByZWFkLmNzdigiQzovVXNlcnMvdTYwMzI0MDQvT25lRHJpdmUvYmFja3VwIDkuOS4xOS9NSi9OREFBL0NPREVfUS9Ob24tVmV0ZXJhbk5EQUFTdXJ2ZXlEYXRhRmluYWxfTlYyXzcuY3N2IixoZWFkZXIgPSBUKQ0KDQpgYGANCg0KDQoNCg0KYGBge3J9DQojZGZfdltkZl92ID09ICJObyBJbmZvIl0gPC0gTkENCiNkZl92W2RmX3YgPT0gIk5FRlRRIl0gPC0gTkENCiN3cml0ZS5jc3YoUTIuNV9leHAsIGZpbGUgPSAnU2VydmVfZGF0ZS5jc3YnKQ0KDQpzZXJ2ZV9kYXRlPC0gcmVhZC5jc3YoIkM6L1VzZXJzL3U2MDMyNDA0L09uZURyaXZlL2JhY2t1cCA5LjkuMTkvTUovTkRBQS9DT0RFX1EvU2VydmVfZGF0ZS5jc3YiLGhlYWRlciA9IFQpDQoNCg0Kc2VydmVfZGF0ZSRTZXB0ZW1iZXI8LSBhcy5mYWN0b3Ioc2VydmVfZGF0ZSRTZXB0ZW1iZXIpDQpzZXJ2ZV9kYXRlJE5FRlRRPC0gYXMuZmFjdG9yKHNlcnZlX2RhdGUkTkVGVFEpDQoNCg0KbGlicmFyeShkcGx5cikNCnNlcnZlX2RhdGU8LSBzZXJ2ZV9kYXRlJT4lIA0KICAgICAgIG11dGF0ZShzdGF0dXM5XzExID0gY2FzZV93aGVuKChTZXB0ZW1iZXIgPT0gIlllcyIgfCBORUZUUSA9PSAiWWVzIikgfiAiUG9zdCA5LzExIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFRSVUUgfiAiUHJlIDkvMTEiKSkNCmRmX3Y8LWZ1bGxfam9pbihkZl92LHNlcnZlX2RhdGUsIGJ5PSAiUmVzcG9uc2VJZCIgKQ0KDQoNCnRhYmxlKGRmX3YkUTIuNSkNCnRhYmxlKGRmX3Ykc3RhdHVzOV8xMSkNCg0KDQpgYGANCg0KDQoNCg0KYGBge3IgZXZhbD1GQUxTRSwgaW5jbHVkZT1GQUxTRX0NCiNpbnN0YWxsLnBhY2thZ2VzKCJkcGx5ciIpDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeSh0aWR5cikNCmxpYnJhcnkoc3RyaW5nciApDQoNClE0LjVfZXhwPC1kZl92ICU+JSANCiAgc2VsZWN0KFE0LjUsIFJlc3BvbnNlSWQpDQpRNC41X2V4cDwtUTQuNV9leHAgJT4lIG11dGF0ZShRNC41ID0gc3RyX3JlbW92ZShRNC41LCAnIFxcKC4qXFwpPycpKSAlPiUgDQogc2VwYXJhdGVfcm93cyhRNC41LCBzZXAgPSAnLCcpICU+JSBjb3VudChSZXNwb25zZUlkLCBRNC41LCBuYW1lID0gJ0NudCcpICU+JSANCiAgcGl2b3Rfd2lkZXIoaWRfY29scyA9IFJlc3BvbnNlSWQsIG5hbWVzX2Zyb20gPSBRNC41LCB2YWx1ZXNfZnJvbSA9IENudCwgdmFsdWVzX2ZpbGwgPSBsaXN0KENudCA9IDApKSAlPiUgDQogICAgIG11dGF0ZV9hbGwofnJlcGxhY2UoLiwgLiA9PSAwLCAiTm8iKSkgJT4lIA0KICAgICBtdXRhdGVfYWxsKH5yZXBsYWNlKC4sIC4gPT0gMSwgIlllcyIpKQ0KDQoNCg0Kd3JpdGUuY3N2KFE0LjVfZXhwLCBmaWxlID0gJ1E0LjVfZXhwLmNzdicpDQpgYGANCg0KDQojICMgRmFjdG9ycyBhYm91dCBjb250aW51aW5nIGVkdWNhdGlvbiAoVmV0ZXJhbikNCmBgYHtyIGVjaG89RkFMU0V9DQpRNC41X2V4cDwtIHJlYWQuY3N2KCJDOi9Vc2Vycy91NjAzMjQwNC9PbmVEcml2ZS9iYWNrdXAgOS45LjE5L01KL05EQUEvQ09ERV9RL1E0LjVfZXhwLmNzdiIsaGVhZGVyID0gVCkNCg0KZGZfZ2VuZGVyPC1kZl92ICU+JSANCiAgc2VsZWN0KEdlbmRlciwgUmVzcG9uc2VJZCwgc3RhdHVzOV8xMSkNCg0KUTQuNV9leHA8LWxlZnRfam9pbihRNC41X2V4cCxkZl9nZW5kZXIsIGJ5PSAiUmVzcG9uc2VJZCIgKQ0KDQoNClE0LjVfZXhwIDwtUTQuNV9leHAgJT4lIA0KICBzZWxlY3QoLVJlc3BvbnNlSWQpDQoNCmNvbG5hbWVzKFE0LjVfZXhwKVt3aGljaChuYW1lcyhRNC41X2V4cCkgPT0gIkkgaGFkIHRvIHByb3ZpZGUgZm9yL3Rha2UgY2FyZSBvZiBhIHNwb3VzZS9wYXJ0bmVyIildIDwtICJJIGhhZCB0byBwcm92aWRlIGZvciB0YWtlIGNhcmUgb2YgYSBzcG91c2UgcGFydG5lciINCg0KY29sbmFtZXMoUTQuNV9leHApW3doaWNoKG5hbWVzKFE0LjVfZXhwKSA9PSAiSSBoYWQgdG8gcHJvdmlkZSBmb3IvdGFrZSBjYXJlIG9mIGNoaWxkcmVuIildIDwtICJJIGhhZCB0byBwcm92aWRlIGZvciB0YWtlIGNhcmUgb2YgY2hpbGRyZW4iDQoNCmNvbG5hbWVzKFE0LjVfZXhwKVt3aGljaChuYW1lcyhRNC41X2V4cCkgPT0gIkkgaGFkIHRvIHByb3ZpZGUgZm9yL3Rha2UgY2FyZSBvZiBwYXJlbnRzIildIDwtICJJIGhhZCB0byBwcm92aWRlIGZvciB0YWtlIGNhcmUgb2YgcGFyZW50cyINCg0KdGFibGUxKH4ufEdlbmRlcipzdGF0dXM5XzExLCBkYXRhPSBRNC41X2V4cCkNCiAgDQoNCmBgYA0K