##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
#Q1.7 Time in program . . . "
teecap$Q1.7
## [1] "6.0" "6.0" "5.0" "6.0" "6.0" "6.0" "4.0" "4.0" "1.0" "5.0" "6.0" "6.0"
## [13] "1.0" "6.0" "6.0" "6.0" "6.0" "6.0" "2.0" "5.0" "1.0" "4.0" "4.0" "6.0"
## [25] "6.0" "5.0" "6.0" "5.0" "6.0" "5.0" "1.0" "7.0" "6.0" "6.0" "6.0" "6.0"
## [37] "4.0" "6.0" "6.0" "4.0" "4.0" "3.0" "6.0" "4.0" "6.0" "1.0" "5.0" "5.0"
## [49] "5.0" "6.0" "6.0" "6.0" "5.0" "6.0" "6.0" "5.0" "6.0" "6.0" "6.0" "6.0"
## [61] "5.0" "6.0" "4.0" "4.0" "1.0" "6.0" "5.0" "5.0" "5.0" "6.0" "5.0" "5.0"
## [73] "5.0" "6.0" "1.0" "1.0" "5.0" "6.0" "6.0" "2.0" "5.0" "4.0" "1.0" "6.0"
## [85] "6.0" "6.0" "5.0" "6.0" "5.0" "6.0" "6.0" "6.0" "6.0" "6.0" "5.0" "5.0"
## [97] "5.0" "6.0" "6.0" "6.0" "5.0" "3.0" "4.0" "4.0" "4.0" "5.0" "6.0" "5.0"
## [109] "6.0" "3.0" "4.0" "5.0" "4.0" "6.0" "3.0" "2.0" "5.0" "3.0" "6.0" "3.0"
## [121] "5.0" "4.0" "5.0" "6.0" "5.0" "4.0" "1.0" "6.0" "4.0" "2.0" "1.0" "5.0"
## [133] "6.0" "4.0" "5.0" "6.0" "6.0" "6.0" "6.0" "6.0" "2.0" "4.0" "3.0" "1.0"
## [145] "1.0" "5.0" "4.0" "6.0" "3.0" "6.0" "6.0" "3.0" "6.0" "5.0" "5.0" "4.0"
## [157] "4.0" "6.0" "6.0" "4.0" "6.0" "5.0" "6.0" "6.0" "5.0" "6.0" "6.0" "4.0"
## [169] "5.0" "5.0" "1.0" "4.0" "5.0" "6.0" "5.0" "4.0" "6.0" "1.0" "6.0" "6.0"
## [181] "5.0" "3.0" "2.0" "6.0" "3.0" "2.0" "6.0" "6.0" "6.0" "3.0" "5.0" "6.0"
## [193] "6.0" "6.0" "6.0" "5.0" "6.0" "4.0" "2.0" "2.0" "6.0" "5.0" "4.0" "3.0"
## [205] "1.0" "1.0" "4.0" "6.0" "6.0" "4.0" "5.0" "6.0" "2.0" "5.0" "1.0" "4.0"
## [217] "5.0" "4.0" "4.0" "5.0" "6.0" "6.0" "6.0" "5.0" "4.0" "5.0" "5.0" "5.0"
## [229] "4.0" "4.0" "5" NA NA "3" "2" "5" "3" "4" "4" "3"
## [241] "3" "3" "4" "4" NA "5" "4" "2" "4" "4" "5" "5"
## [253] "6" "4" NA "5" "4" "6" "6" "4" "7"
teecap$Q1.7x <- recode(as.integer(teecap$Q1.7),
'1' = 'a.0-3mos',
'2'= 'b.4-6mos',
'3'='c.7-12mos',
'4'='d.1-2yrs',
'5'= 'e.3-4yrs',
'6'= 'f.5+yrs',
'7' = 'z.pnta',
.default=NA_character_)
teecap$Q1.7x
## [1] "f.5+yrs" "f.5+yrs" "e.3-4yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs"
## [7] "d.1-2yrs" "d.1-2yrs" "a.0-3mos" "e.3-4yrs" "f.5+yrs" "f.5+yrs"
## [13] "a.0-3mos" "f.5+yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs"
## [19] "b.4-6mos" "e.3-4yrs" "a.0-3mos" "d.1-2yrs" "d.1-2yrs" "f.5+yrs"
## [25] "f.5+yrs" "e.3-4yrs" "f.5+yrs" "e.3-4yrs" "f.5+yrs" "e.3-4yrs"
## [31] "a.0-3mos" "z.pnta" "f.5+yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs"
## [37] "d.1-2yrs" "f.5+yrs" "f.5+yrs" "d.1-2yrs" "d.1-2yrs" "c.7-12mos"
## [43] "f.5+yrs" "d.1-2yrs" "f.5+yrs" "a.0-3mos" "e.3-4yrs" "e.3-4yrs"
## [49] "e.3-4yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs" "e.3-4yrs" "f.5+yrs"
## [55] "f.5+yrs" "e.3-4yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs"
## [61] "e.3-4yrs" "f.5+yrs" "d.1-2yrs" "d.1-2yrs" "a.0-3mos" "f.5+yrs"
## [67] "e.3-4yrs" "e.3-4yrs" "e.3-4yrs" "f.5+yrs" "e.3-4yrs" "e.3-4yrs"
## [73] "e.3-4yrs" "f.5+yrs" "a.0-3mos" "a.0-3mos" "e.3-4yrs" "f.5+yrs"
## [79] "f.5+yrs" "b.4-6mos" "e.3-4yrs" "d.1-2yrs" "a.0-3mos" "f.5+yrs"
## [85] "f.5+yrs" "f.5+yrs" "e.3-4yrs" "f.5+yrs" "e.3-4yrs" "f.5+yrs"
## [91] "f.5+yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs" "e.3-4yrs" "e.3-4yrs"
## [97] "e.3-4yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs" "e.3-4yrs" "c.7-12mos"
## [103] "d.1-2yrs" "d.1-2yrs" "d.1-2yrs" "e.3-4yrs" "f.5+yrs" "e.3-4yrs"
## [109] "f.5+yrs" "c.7-12mos" "d.1-2yrs" "e.3-4yrs" "d.1-2yrs" "f.5+yrs"
## [115] "c.7-12mos" "b.4-6mos" "e.3-4yrs" "c.7-12mos" "f.5+yrs" "c.7-12mos"
## [121] "e.3-4yrs" "d.1-2yrs" "e.3-4yrs" "f.5+yrs" "e.3-4yrs" "d.1-2yrs"
## [127] "a.0-3mos" "f.5+yrs" "d.1-2yrs" "b.4-6mos" "a.0-3mos" "e.3-4yrs"
## [133] "f.5+yrs" "d.1-2yrs" "e.3-4yrs" "f.5+yrs" "f.5+yrs" "f.5+yrs"
## [139] "f.5+yrs" "f.5+yrs" "b.4-6mos" "d.1-2yrs" "c.7-12mos" "a.0-3mos"
## [145] "a.0-3mos" "e.3-4yrs" "d.1-2yrs" "f.5+yrs" "c.7-12mos" "f.5+yrs"
## [151] "f.5+yrs" "c.7-12mos" "f.5+yrs" "e.3-4yrs" "e.3-4yrs" "d.1-2yrs"
## [157] "d.1-2yrs" "f.5+yrs" "f.5+yrs" "d.1-2yrs" "f.5+yrs" "e.3-4yrs"
## [163] "f.5+yrs" "f.5+yrs" "e.3-4yrs" "f.5+yrs" "f.5+yrs" "d.1-2yrs"
## [169] "e.3-4yrs" "e.3-4yrs" "a.0-3mos" "d.1-2yrs" "e.3-4yrs" "f.5+yrs"
## [175] "e.3-4yrs" "d.1-2yrs" "f.5+yrs" "a.0-3mos" "f.5+yrs" "f.5+yrs"
## [181] "e.3-4yrs" "c.7-12mos" "b.4-6mos" "f.5+yrs" "c.7-12mos" "b.4-6mos"
## [187] "f.5+yrs" "f.5+yrs" "f.5+yrs" "c.7-12mos" "e.3-4yrs" "f.5+yrs"
## [193] "f.5+yrs" "f.5+yrs" "f.5+yrs" "e.3-4yrs" "f.5+yrs" "d.1-2yrs"
## [199] "b.4-6mos" "b.4-6mos" "f.5+yrs" "e.3-4yrs" "d.1-2yrs" "c.7-12mos"
## [205] "a.0-3mos" "a.0-3mos" "d.1-2yrs" "f.5+yrs" "f.5+yrs" "d.1-2yrs"
## [211] "e.3-4yrs" "f.5+yrs" "b.4-6mos" "e.3-4yrs" "a.0-3mos" "d.1-2yrs"
## [217] "e.3-4yrs" "d.1-2yrs" "d.1-2yrs" "e.3-4yrs" "f.5+yrs" "f.5+yrs"
## [223] "f.5+yrs" "e.3-4yrs" "d.1-2yrs" "e.3-4yrs" "e.3-4yrs" "e.3-4yrs"
## [229] "d.1-2yrs" "d.1-2yrs" "e.3-4yrs" NA NA "c.7-12mos"
## [235] "b.4-6mos" "e.3-4yrs" "c.7-12mos" "d.1-2yrs" "d.1-2yrs" "c.7-12mos"
## [241] "c.7-12mos" "c.7-12mos" "d.1-2yrs" "d.1-2yrs" NA "e.3-4yrs"
## [247] "d.1-2yrs" "b.4-6mos" "d.1-2yrs" "d.1-2yrs" "e.3-4yrs" "e.3-4yrs"
## [253] "f.5+yrs" "d.1-2yrs" NA "e.3-4yrs" "d.1-2yrs" "f.5+yrs"
## [259] "f.5+yrs" "d.1-2yrs" "z.pnta"
tblQ1.7 <- table(teecap$Q1.7x)
c(tblQ1.7, sum(tblQ1.7))
## a.0-3mos b.4-6mos c.7-12mos d.1-2yrs e.3-4yrs f.5+yrs z.pnta
## 18 12 18 48 62 97 2 257
round(prop.table(tblQ1.7), 2)
##
## a.0-3mos b.4-6mos c.7-12mos d.1-2yrs e.3-4yrs f.5+yrs z.pnta
## 0.07 0.05 0.07 0.19 0.24 0.38 0.01
#Q1.7 Time in program . . . "
teecap$Q1.7
## [1] "6.0" "6.0" "5.0" "6.0" "6.0" "6.0" "4.0" "4.0" "1.0" "5.0" "6.0" "6.0"
## [13] "1.0" "6.0" "6.0" "6.0" "6.0" "6.0" "2.0" "5.0" "1.0" "4.0" "4.0" "6.0"
## [25] "6.0" "5.0" "6.0" "5.0" "6.0" "5.0" "1.0" "7.0" "6.0" "6.0" "6.0" "6.0"
## [37] "4.0" "6.0" "6.0" "4.0" "4.0" "3.0" "6.0" "4.0" "6.0" "1.0" "5.0" "5.0"
## [49] "5.0" "6.0" "6.0" "6.0" "5.0" "6.0" "6.0" "5.0" "6.0" "6.0" "6.0" "6.0"
## [61] "5.0" "6.0" "4.0" "4.0" "1.0" "6.0" "5.0" "5.0" "5.0" "6.0" "5.0" "5.0"
## [73] "5.0" "6.0" "1.0" "1.0" "5.0" "6.0" "6.0" "2.0" "5.0" "4.0" "1.0" "6.0"
## [85] "6.0" "6.0" "5.0" "6.0" "5.0" "6.0" "6.0" "6.0" "6.0" "6.0" "5.0" "5.0"
## [97] "5.0" "6.0" "6.0" "6.0" "5.0" "3.0" "4.0" "4.0" "4.0" "5.0" "6.0" "5.0"
## [109] "6.0" "3.0" "4.0" "5.0" "4.0" "6.0" "3.0" "2.0" "5.0" "3.0" "6.0" "3.0"
## [121] "5.0" "4.0" "5.0" "6.0" "5.0" "4.0" "1.0" "6.0" "4.0" "2.0" "1.0" "5.0"
## [133] "6.0" "4.0" "5.0" "6.0" "6.0" "6.0" "6.0" "6.0" "2.0" "4.0" "3.0" "1.0"
## [145] "1.0" "5.0" "4.0" "6.0" "3.0" "6.0" "6.0" "3.0" "6.0" "5.0" "5.0" "4.0"
## [157] "4.0" "6.0" "6.0" "4.0" "6.0" "5.0" "6.0" "6.0" "5.0" "6.0" "6.0" "4.0"
## [169] "5.0" "5.0" "1.0" "4.0" "5.0" "6.0" "5.0" "4.0" "6.0" "1.0" "6.0" "6.0"
## [181] "5.0" "3.0" "2.0" "6.0" "3.0" "2.0" "6.0" "6.0" "6.0" "3.0" "5.0" "6.0"
## [193] "6.0" "6.0" "6.0" "5.0" "6.0" "4.0" "2.0" "2.0" "6.0" "5.0" "4.0" "3.0"
## [205] "1.0" "1.0" "4.0" "6.0" "6.0" "4.0" "5.0" "6.0" "2.0" "5.0" "1.0" "4.0"
## [217] "5.0" "4.0" "4.0" "5.0" "6.0" "6.0" "6.0" "5.0" "4.0" "5.0" "5.0" "5.0"
## [229] "4.0" "4.0" "5" NA NA "3" "2" "5" "3" "4" "4" "3"
## [241] "3" "3" "4" "4" NA "5" "4" "2" "4" "4" "5" "5"
## [253] "6" "4" NA "5" "4" "6" "6" "4" "7"
teecap$Q1.7rev <- recode(as.integer(teecap$Q1.7),
'1' = '< 1yr',
'2'= '< 1yr',
'3'='< 1yr',
'4'='1-4yrs',
'5'= '1-4yrs',
'6'= '5+yrs',
'7' = 'z.pnta',
.default=NA_character_)
teecap$Q1.7rev
## [1] "5+yrs" "5+yrs" "1-4yrs" "5+yrs" "5+yrs" "5+yrs" "1-4yrs" "1-4yrs"
## [9] "< 1yr" "1-4yrs" "5+yrs" "5+yrs" "< 1yr" "5+yrs" "5+yrs" "5+yrs"
## [17] "5+yrs" "5+yrs" "< 1yr" "1-4yrs" "< 1yr" "1-4yrs" "1-4yrs" "5+yrs"
## [25] "5+yrs" "1-4yrs" "5+yrs" "1-4yrs" "5+yrs" "1-4yrs" "< 1yr" "z.pnta"
## [33] "5+yrs" "5+yrs" "5+yrs" "5+yrs" "1-4yrs" "5+yrs" "5+yrs" "1-4yrs"
## [41] "1-4yrs" "< 1yr" "5+yrs" "1-4yrs" "5+yrs" "< 1yr" "1-4yrs" "1-4yrs"
## [49] "1-4yrs" "5+yrs" "5+yrs" "5+yrs" "1-4yrs" "5+yrs" "5+yrs" "1-4yrs"
## [57] "5+yrs" "5+yrs" "5+yrs" "5+yrs" "1-4yrs" "5+yrs" "1-4yrs" "1-4yrs"
## [65] "< 1yr" "5+yrs" "1-4yrs" "1-4yrs" "1-4yrs" "5+yrs" "1-4yrs" "1-4yrs"
## [73] "1-4yrs" "5+yrs" "< 1yr" "< 1yr" "1-4yrs" "5+yrs" "5+yrs" "< 1yr"
## [81] "1-4yrs" "1-4yrs" "< 1yr" "5+yrs" "5+yrs" "5+yrs" "1-4yrs" "5+yrs"
## [89] "1-4yrs" "5+yrs" "5+yrs" "5+yrs" "5+yrs" "5+yrs" "1-4yrs" "1-4yrs"
## [97] "1-4yrs" "5+yrs" "5+yrs" "5+yrs" "1-4yrs" "< 1yr" "1-4yrs" "1-4yrs"
## [105] "1-4yrs" "1-4yrs" "5+yrs" "1-4yrs" "5+yrs" "< 1yr" "1-4yrs" "1-4yrs"
## [113] "1-4yrs" "5+yrs" "< 1yr" "< 1yr" "1-4yrs" "< 1yr" "5+yrs" "< 1yr"
## [121] "1-4yrs" "1-4yrs" "1-4yrs" "5+yrs" "1-4yrs" "1-4yrs" "< 1yr" "5+yrs"
## [129] "1-4yrs" "< 1yr" "< 1yr" "1-4yrs" "5+yrs" "1-4yrs" "1-4yrs" "5+yrs"
## [137] "5+yrs" "5+yrs" "5+yrs" "5+yrs" "< 1yr" "1-4yrs" "< 1yr" "< 1yr"
## [145] "< 1yr" "1-4yrs" "1-4yrs" "5+yrs" "< 1yr" "5+yrs" "5+yrs" "< 1yr"
## [153] "5+yrs" "1-4yrs" "1-4yrs" "1-4yrs" "1-4yrs" "5+yrs" "5+yrs" "1-4yrs"
## [161] "5+yrs" "1-4yrs" "5+yrs" "5+yrs" "1-4yrs" "5+yrs" "5+yrs" "1-4yrs"
## [169] "1-4yrs" "1-4yrs" "< 1yr" "1-4yrs" "1-4yrs" "5+yrs" "1-4yrs" "1-4yrs"
## [177] "5+yrs" "< 1yr" "5+yrs" "5+yrs" "1-4yrs" "< 1yr" "< 1yr" "5+yrs"
## [185] "< 1yr" "< 1yr" "5+yrs" "5+yrs" "5+yrs" "< 1yr" "1-4yrs" "5+yrs"
## [193] "5+yrs" "5+yrs" "5+yrs" "1-4yrs" "5+yrs" "1-4yrs" "< 1yr" "< 1yr"
## [201] "5+yrs" "1-4yrs" "1-4yrs" "< 1yr" "< 1yr" "< 1yr" "1-4yrs" "5+yrs"
## [209] "5+yrs" "1-4yrs" "1-4yrs" "5+yrs" "< 1yr" "1-4yrs" "< 1yr" "1-4yrs"
## [217] "1-4yrs" "1-4yrs" "1-4yrs" "1-4yrs" "5+yrs" "5+yrs" "5+yrs" "1-4yrs"
## [225] "1-4yrs" "1-4yrs" "1-4yrs" "1-4yrs" "1-4yrs" "1-4yrs" "1-4yrs" NA
## [233] NA "< 1yr" "< 1yr" "1-4yrs" "< 1yr" "1-4yrs" "1-4yrs" "< 1yr"
## [241] "< 1yr" "< 1yr" "1-4yrs" "1-4yrs" NA "1-4yrs" "1-4yrs" "< 1yr"
## [249] "1-4yrs" "1-4yrs" "1-4yrs" "1-4yrs" "5+yrs" "1-4yrs" NA "1-4yrs"
## [257] "1-4yrs" "5+yrs" "5+yrs" "1-4yrs" "z.pnta"
tblQ1.7 <- table(teecap$Q1.7rev)
c(tblQ1.7, sum(tblQ1.7))
## < 1yr 1-4yrs 5+yrs z.pnta
## 48 110 97 2 257
round(prop.table(tblQ1.7), 2)
##
## < 1yr 1-4yrs 5+yrs z.pnta
## 0.19 0.43 0.38 0.01
#Q2.11 Highest Degree
teecap$Q2.11
## [1] 6 NA 5 5 5 3 5 5 5 6 3 7 5 3 3 7 4 1 5 5 2 5 6 6 7
## [26] 7 5 2 6 5 5 6 5 2 5 5 3 4 6 5 5 5 3 5 5 5 5 5 6 5
## [51] 6 5 5 5 5 5 5 6 7 NA NA 3 3 3 5 3 6 3 6 4 3 5 6 5 3
## [76] 4 6 6 5 5 5 3 3 6 5 7 5 5 5 5 5 NA 6 5 5 8 5 3 NA 3
## [101] 3 3 5 5 6 2 3 3 5 2 2 2 2 6 2 1 NA 2 6 6 4 2 2 2 NA
## [126] 5 5 5 6 5 5 NA 6 4 3 5 5 5 5 5 5 5 5 5 3 6 5 3 3 5
## [151] 5 2 5 3 5 NA NA 6 5 NA 6 2 2 2 2 5 4 4 6 5 5 3 5 3 6
## [176] 2 5 7 5 3 4 NA NA NA NA 2 4 4 4 NA 2 3 6 6 3 6 5 5 4 3
## [201] 5 3 3 NA 8 3 3 NA 5 5 NA NA NA NA NA NA NA NA NA 5 6 6 4 NA NA
## [226] 5 5 5 5 4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [251] NA NA NA NA NA NA NA NA NA NA NA
teecap$Q2.11x <- recode(as.integer(teecap$Q2.11),
'1' = 'No Bachelors',
'2'= 'No Bachelors',
'3'='No Bachelors',
'4'='No Bachelors',
'5'= 'Bachelors or Higher',
'6'= 'Bachelors or Higher',
'7' = 'Bachelors or Higher',
'8'='z.pnta',
.default=NA_character_)
teecap$Q2.11
## [1] 6 NA 5 5 5 3 5 5 5 6 3 7 5 3 3 7 4 1 5 5 2 5 6 6 7
## [26] 7 5 2 6 5 5 6 5 2 5 5 3 4 6 5 5 5 3 5 5 5 5 5 6 5
## [51] 6 5 5 5 5 5 5 6 7 NA NA 3 3 3 5 3 6 3 6 4 3 5 6 5 3
## [76] 4 6 6 5 5 5 3 3 6 5 7 5 5 5 5 5 NA 6 5 5 8 5 3 NA 3
## [101] 3 3 5 5 6 2 3 3 5 2 2 2 2 6 2 1 NA 2 6 6 4 2 2 2 NA
## [126] 5 5 5 6 5 5 NA 6 4 3 5 5 5 5 5 5 5 5 5 3 6 5 3 3 5
## [151] 5 2 5 3 5 NA NA 6 5 NA 6 2 2 2 2 5 4 4 6 5 5 3 5 3 6
## [176] 2 5 7 5 3 4 NA NA NA NA 2 4 4 4 NA 2 3 6 6 3 6 5 5 4 3
## [201] 5 3 3 NA 8 3 3 NA 5 5 NA NA NA NA NA NA NA NA NA 5 6 6 4 NA NA
## [226] 5 5 5 5 4 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA
## [251] NA NA NA NA NA NA NA NA NA NA NA
tblQ2.11 <- table(teecap$Q2.11x)
c(tblQ2.11, sum(tblQ2.11))
## Bachelors or Higher No Bachelors z.pnta
## 125 74 2 201
#round(prop.table(tblQ2.11), 2)
CONTRAST
Q1.7 Time in program X Q2.11 Highest Degree
| < 1yr |
0.5 |
0.47 |
0.03 |
Q1.7 Highest Degree x Q1.31 …has long term effects
| 1-4yrs |
0.61 |
0.38 |
0.01 |
Q1.7 Highest Degree x Q1.31 …has long term effects
| 5+yrs |
0.68 |
0.32 |