kidwellj/trs_admissions_survey2021
1
0
Fork 0
mirror of https://github.com/kidwellj/trs_admissions_survey2021.git synced 2024-10-31 22:22:21 +00:00
Code Issues Packages Projects Releases Wiki Activity
trs_admissions_survey2021/.Rhistory

513 lines
27 KiB
R
Raw Normal View History

fixed typos re high in subgroup interest analysis
2021-12-13 08:04:14 +00:00
library(scales) # Used for adding percentages to bar charts
added subset cohort plots for positive sentiment groups
2021-12-12 23:58:42 +00:00
# Define colour palettes for plots below
coul3 <- brewer.pal(3, "RdYlBu") # Using RdYlBu range to generate 3 colour palette: https://colorbrewer2.org/#type=diverging&scheme=RdYlBu&n=5
TSR_data <- read.csv("./data/TSR data complete.csv")
subject_data <- read.csv("./data/Subject data.csv")
fixed typos re high in subgroup interest analysis
2021-12-13 08:04:14 +00:00
# Set up local workspace, as needed:
added subset cohort plots for positive sentiment groups
2021-12-12 23:58:42 +00:00
if (dir.exists("data") == FALSE) {
dir.create("data")
}
if (dir.exists("figures") == FALSE) {
dir.create("figures")
}
if (dir.exists("derivedData") == FALSE) {
dir.create("derivedData")
}
fixed typos re high in subgroup interest analysis
2021-12-13 08:04:14 +00:00
Philos_subset_High <- TSR_data[TSR_data$InterestinstudyingPhilosophy > 3, ]
added subset cohort plots for positive sentiment groups
2021-12-12 23:58:42 +00:00
### Philosophy ###
fixed typos re high in subgroup interest analysis
2021-12-13 08:04:14 +00:00
Philos_subset_Low <- TSR_data[TSR_data$InterestinstudyingPhilosophy < 3 & TSR_data$InterestinstudyingPhilosophy != 0, ]
## Theology Interest
#Low interest in Philosophy
mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Philosophy
mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
mean(as.numeric(TSR_data$InterestedinstudyingTheology))
mean(as.numeric(TSR_data$InterestedinstudyingTheology), na.rm = TRUE)
mean(as.numeric(TSR_data$InterestedinstudyingReligiousStudies), na.rm = TRUE)
library(kable) # Used for generating markdown tables
install.packages("kable")
## Theology Interest
#Low interest in Philosophy
overall_mean_theology_interest <- mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Philosophy
overall_mean_rs_interest <- mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
overall_mean_theology_interest <- mean(as.numeric(TSR_data$InterestedinstudyingTheology), na.rm = TRUE)
overall_mean_rs_interest <- mean(as.numeric(TSR_data$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### Philosophy ###
Philos_subset_Low <- TSR_data[TSR_data$InterestinstudyingPhilosophy < 3 & TSR_data$InterestinstudyingPhilosophy != 0, ]
Philos_subset_High <- TSR_data[TSR_data$InterestinstudyingPhilosophy > 3, ]
mean(as.numeric(TSR_data$InterestedinstudyingTheology), na.rm = TRUE)
mean(as.numeric(TSR_data$InterestedinstudyingReligiousStudies), na.rm = TRUE)
mean(as.numeric(TSR_data$InterestinstudyingPhilosophy), na.rm = TRUE)
mean(as.numeric(TSR_data$InterestedinStudyingPsychology), na.rm = TRUE)
### Philosophy ###
Philos_subset_Low <- TSR_data[TSR_data$InterestinstudyingPhilosophy < 3 & TSR_data$InterestinstudyingPhilosophy != 0, ]
Philos_subset_High <- TSR_data[TSR_data$InterestinstudyingPhilosophy > 3, ]
## Theology Interest
#Low interest in Philosophy
philosophy_interest_low_theology_interest_mean <- (as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
## Theology Interest
#Low interest in Philosophy
mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Philosophy
mean(as.numeric(Philos_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Philosophy
mean(as.numeric(Philos_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Philosophy
mean(as.numeric(Philos_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Philosophy
mean(as.numeric(Philos_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### Sociology ###
Soc_subset_Low <- TSR_data[TSR_data$InterestinstudyingSociaology < 3 & TSR_data$InterestinstudyingSociaology != 0, ]
Soc_subset_High <- TSR_data[TSR_data$InterestinstudyingSociaology > 3, ]
## Theology Interest
#Low interest in Sociology
lSocTheo <- mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Sociology
hSocTheo <- mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Sociology
mean(as.numeric(Soc_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Sociology
mean(as.numeric(Soc_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
## Theology Interest
#Low interest in Sociology
lSocTheo <- mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
## Theology Interest
#Low interest in Sociology
mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Sociology
mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
## Theology Interest
#Low interest in Sociology
mean(as.numeric(Soc_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Sociology
mean(as.numeric(Soc_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Sociology
mean(as.numeric(Soc_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Sociology
mean(as.numeric(Soc_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### Psychology ###
Psych_subset_Low <- TSR_data[TSR_data$InterestedinStudyingPsychology < 3 & TSR_data$InterestedinStudyingPsychology != 0, ]
Psych_subset_High <- TSR_data[TSR_data$InterestedinStudyingPsychology > 3, ]
## Theology Interest
#Low interest in Psychology
mean(as.numeric(Psych_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Psychology
mean(as.numeric(Psych_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Psychology
mean(as.numeric(Psych_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Psychology
mean(as.numeric(Psych_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Psychology
mean(as.numeric(Psych_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### History ###
Hist_subset_Low <- TSR_data[TSR_data$InterestedinstudyingHistory < 3 & TSR_data$InterestedinstudyingHistory != 0, ]
Hist_subset_High <- TSR_data[TSR_data$InterestedinstudyingHistory > 3, ]
## Theology Interest
#Low interest in History
mean(as.numeric(Hist_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in History
mean(as.numeric(Hist_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in History
mean(as.numeric(Hist_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in History
mean(as.numeric(Hist_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### Ethics ###
Ethics_subset_Low <- TSR_data[TSR_data$InterestedinstudyingEthics < 3 & TSR_data$InterestedinstudyingEthics != 0, ]
Ethics_subset_High <- TSR_data[TSR_data$InterestedinstudyingEthics > 3, ]
## Theology Interest
#Low interest in Ethics
mean(as.numeric(Ethics_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Ethics
mean(as.numeric(Ethics_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Ethics
mean(as.numeric(Ethics_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Ethics
mean(as.numeric(Ethics_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### Politics ###
Polit_subset_Low <- TSR_data[TSR_data$InterestedinstudyingPolitics < 3 & TSR_data$InterestedinstudyingPolitics != 0, ]
Polit_subset_High <- TSR_data[TSR_data$InterestedinstudyingPolitics > 3, ]
## Theology Interest
#Low interest in Politics
mean(as.numeric(Polit_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Politics
mean(as.numeric(Polit_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Politics
mean(as.numeric(Polit_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Politics
mean(as.numeric(Polit_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### English ###
Eng_subset_Low <- TSR_data[TSR_data$InterestedinstudyingEnglish < 3 & TSR_data$InterestedinstudyingEnglish != 0, ]
Eng_subset_High <- TSR_data[TSR_data$InterestedinstudyingEnglish > 3, ]
## Theology Interest
#Low interest in English
mean(as.numeric(Eng_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in English
mean(as.numeric(Eng_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in English
mean(as.numeric(Eng_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in English
mean(as.numeric(Eng_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### Math ###
Math_subset_Low <- TSR_data[TSR_data$InterestedinstudyingMath < 3 & TSR_data$InterestedinstudyingMathy != 0, ]
Math_subset_High <- TSR_data[TSR_data$InterestedinstudyingMath > 3, ]
## Theology Interest
#Low interest in Math
mean(as.numeric(Math_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Math
mean(as.numeric(Math_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Math
mean(as.numeric(Math_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Math
mean(as.numeric(Math_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
## Theology Interest
#Low interest in Math
mean(as.numeric(Math_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
### Math ###
Math_subset_Low <- TSR_data[TSR_data$InterestedinstudyingMath < 3 & TSR_data$InterestedinstudyingMath != 0, ]
Math_subset_High <- TSR_data[TSR_data$InterestedinstudyingMath > 3, ]
## Theology Interest
#Low interest in Math
mean(as.numeric(Math_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Math
mean(as.numeric(Math_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Math
mean(as.numeric(Math_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Math
mean(as.numeric(Math_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### Computer Science ###
CompSci_subset_Low <- TSR_data[TSR_data$InterestedinstudyingComputerScience < 3 & TSR_data$InterestedinstudyingComputerScience != 0, ]
CompSci_subset_High <- TSR_data[TSR_data$InterestedinstudyingComputerScience > 3, ]
## Theology Interest
#Low interest in Computer Science
mean(as.numeric(CompSci_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Computer Science
mean(as.numeric(CompSci_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Computer Science
mean(as.numeric(CompSci_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Computer Science
mean(as.numeric(CompSci_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Computer Science
mean(as.numeric(CompSci_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
### Business ###
Busi_subset_Low <- TSR_data[TSR_data$InterestedinstudyingBusiness < 3 & TSR_data$InterestedinstudyingBusiness != 0, ]
Busi_subset_High <- TSR_data[TSR_data$InterestedinstudyingBusiness > 3, ]
## Theology Interest
#Low interest in Business
mean(as.numeric(Busi_subset_Low$InterestedinstudyingTheology), na.rm = TRUE)
#High interest in Business
mean(as.numeric(Busi_subset_High$InterestedinstudyingTheology), na.rm = TRUE)
## Religious Studies Interest
#Low interest in Business
mean(as.numeric(Busi_subset_Low$InterestedinstudyingReligiousStudies), na.rm = TRUE)
#High interest in Business
mean(as.numeric(Busi_subset_High$InterestedinstudyingReligiousStudies), na.rm = TRUE)
mean(as.numeric(TSR_data$GoodunderstandingofTheology), na.rm = TRUE)
mean(as.numeric(TSR_data$GoodunderstandingofReligiousStudies), na.rm = TRUE)
mean(as.numeric(TSR_data$GoodunderstandingofPhilosophy), na.rm = TRUE)
mean(as.numeric(TSR_data$GoodunderstandingofPsychology), na.rm = TRUE)
mean(as.numeric(TSR_data$GoodunderstandingofEnglish), na.rm = TRUE)
mean(as.numeric(TSR_data$GoodunderstandingofMath), na.rm = TRUE)
added subset cohort plots for positive sentiment groups
2021-12-12 23:58:42 +00:00
# Low understanding of philosophy cohort
Philos_subset_Low <- TSR_data[TSR_data$GoodunderstandingofPhilosophy < 3 & TSR_data$GoodunderstandingofPhilosophy != 0, ]
# High understanding of philosophy cohort
Philos_subset_High <- TSR_data[TSR_data$GoodunderstandingofPhilosophy > 3, ]
fixed typos re high in subgroup interest analysis
2021-12-13 08:04:14 +00:00
## Theology Knowledge
#Low knowledge in Philosophy
mean(as.numeric(Philos_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in Philosophy
mean(as.numeric(Philos_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies Knowledge
#Low knowledge in Philosophy
mean(as.numeric(Philos_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in Philosophy
mean(as.numeric(Philos_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### Sociology ###
Soc_subset_Low <- TSR_data[TSR_data$GoodunderstandingofSociology < 3 & TSR_data$GoodunderstandingofSociology != 0, ]
Soc_subset_High <- TSR_data[TSR_data$GoodunderstandingofSociology > 3, ]
## Theology knowledge
#Low knowledge in Sociology
mean(as.numeric(Soc_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in Sociology
mean(as.numeric(Soc_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in Sociology
mean(as.numeric(Soc_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in Sociology
mean(as.numeric(Soc_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### Psychology ###
Psych_subset_Low <- TSR_data[TSR_data$GoodunderstandingofPsychology < 3 & TSR_data$GoodunderstandingofPsychology != 0, ]
Psych_subset_High <- TSR_data[TSR_data$GoodunderstandingofPsychology > 3, ]
## Theology knowledge
#Low knowledge in Psychology
mean(as.numeric(Psych_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in Psychology
mean(as.numeric(Psych_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in Psychology
mean(as.numeric(Psych_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in Psychology
mean(as.numeric(Psych_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### History ###
Hist_subset_Low <- TSR_data[TSR_data$GoodunderstandingofHistory < 3 & TSR_data$GoodunderstandingofHistory != 0, ]
Hist_subset_High <- TSR_data[TSR_data$GoodunderstandingofHistory > 3, ]
## Theology knowledge
#Low knowledge in History
mean(as.numeric(Hist_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in History
mean(as.numeric(Hist_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in History
mean(as.numeric(Hist_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in History
mean(as.numeric(Hist_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### Ethics ###
Ethics_subset_Low <- TSR_data[TSR_data$GoodunderstandingofEthics < 3 & TSR_data$GoodunderstandingofEthics != 0, ]
Ethics_subset_High <- TSR_data[TSR_data$GoodunderstandingofEthics > 3, ]
## Theology knowledge
#Low knowledge in Ethics
mean(as.numeric(Ethics_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in Ethics
mean(as.numeric(Ethics_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in Ethics
mean(as.numeric(Ethics_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in Ethics
mean(as.numeric(Ethics_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### Politics ###
Polit_subset_Low <- TSR_data[TSR_data$GoodunderstandingofPolitics < 3 & TSR_data$GoodunderstandingofPolitics != 0, ]
Polit_subset_High <- TSR_data[TSR_data$GoodunderstandingofPolitics > 3, ]
## Theology knowledge
#Low knowledge in Politics
mean(as.numeric(Polit_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in Politics
mean(as.numeric(Polit_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in Politics
mean(as.numeric(Polit_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in Politics
mean(as.numeric(Polit_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### English ###
Eng_subset_Low <- TSR_data[TSR_data$GoodunderstandingofEnglish < 3 & TSR_data$GoodunderstandingofEnglish != 0, ]
Eng_subset_High <- TSR_data[TSR_data$GoodunderstandingofEnglish > 3, ]
## Theology knowledge
#Low knowledge in English
mean(as.numeric(Eng_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in English
mean(as.numeric(Eng_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in English
mean(as.numeric(Eng_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in English
mean(as.numeric(Eng_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in English
mean(as.numeric(Eng_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### Math ###
Math_subset_Low <- TSR_data[TSR_data$GoodunderstandingofMath < 3 & TSR_data$GoodunderstandingofMath != 0, ]
Math_subset_High <- TSR_data[TSR_data$GoodunderstandingofMath > 3, ]
## Theology knowledge
#Low knowledge in Math
mean(as.numeric(Math_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in Math
mean(as.numeric(Math_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in Math
mean(as.numeric(Math_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in Math
mean(as.numeric(Math_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### Computer Science ###
CompSci_subset_Low <- TSR_data[TSR_data$GoodunderstandingofComputerScience < 3 & TSR_data$GoodunderstandingofComputerScience != 0, ]
CompSci_subset_High <- TSR_data[TSR_data$GoodunderstandingofComputerScience > 3, ]
## Theology knowledge
#Low knowledge in Computer Science
mean(as.numeric(CompSci_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in Computer Science
mean(as.numeric(CompSci_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in Computer Science
mean(as.numeric(CompSci_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in Computer Science
mean(as.numeric(CompSci_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### Business ###
Busi_subset_Low <- TSR_data[TSR_data$GoodunderstandingofBusiness < 3 & TSR_data$GoodunderstandingofBusiness != 0, ]
Busi_subset_High <- TSR_data[TSR_data$GoodunderstandingofBusiness > 3, ]
## Theology knowledge
#Low knowledge in Business
mean(as.numeric(Busi_subset_Low$GoodunderstandingofTheology), na.rm = TRUE)
#High knowledge in Business
mean(as.numeric(Busi_subset_High$GoodunderstandingofTheology), na.rm = TRUE)
## Religious Studies knowledge
#Low knowledge in Business
mean(as.numeric(Busi_subset_Low$GoodunderstandingofReligiousStudies), na.rm = TRUE)
#High knowledge in Business
mean(as.numeric(Busi_subset_High$GoodunderstandingofReligiousStudies), na.rm = TRUE)
### Philosophy ###
Philos_subset_Low <- TSR_data[TSR_data$Philosophyemployability < 3 & TSR_data$Philosophyemployability != 0, ]
Philos_subset_High <- TSR_data[TSR_data$Philosophyemployability > 3, ]
## Theology employability
#Low employability in Philosophy
mean(as.numeric(Philos_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Philosophy
mean(as.numeric(Philos_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Philosophy
mean(as.numeric(Philos_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Philosophy
mean(as.numeric(Philos_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Theologyemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$ReligiousStudiesemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Philosophyemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$PsychologyEmployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Englishemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Mathemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Businessemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Theologyemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$ReligiousStudiesemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Philosophyemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$PsychologyEmployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Englishemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Mathemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$Businessemployability), na.rm = TRUE)
mean(as.numeric(TSR_data$ComputerScienceemployability), na.rm = TRUE)
### Philosophy ###
Philos_subset_Low <- TSR_data[TSR_data$Philosophyemployability < 3 & TSR_data$Philosophyemployability != 0, ]
Philos_subset_High <- TSR_data[TSR_data$Philosophyemployability > 3, ]
## Theology employability
#Low employability in Philosophy
mean(as.numeric(Philos_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Philosophy
mean(as.numeric(Philos_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Philosophy
mean(as.numeric(Philos_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Philosophy
mean(as.numeric(Philos_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### Sociology ###
Soc_subset_Low <- TSR_data[TSR_data$Sociologyemployability < 3 & TSR_data$Sociologyemployability != 0, ]
Soc_subset_High <- TSR_data[TSR_data$Sociologyemployability > 3, ]
## Theology employability
#Low employability in Sociology
mean(as.numeric(Soc_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Sociology
mean(as.numeric(Soc_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Sociology
mean(as.numeric(Soc_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Sociology
mean(as.numeric(Soc_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### Psychology ###
Psych_subset_Low <- TSR_data[TSR_data$PsychologyEmployability < 3 & TSR_data$PsychologyEmployability != 0, ]
Psych_subset_High <- TSR_data[TSR_data$PsychologyEmployability > 3, ]
## Theology employability
#Low employability in Psychology
mean(as.numeric(Psych_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Psychology
mean(as.numeric(Psych_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Psychology
mean(as.numeric(Psych_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Psychology
mean(as.numeric(Psych_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### History ###
Hist_subset_Low <- TSR_data[TSR_data$Historyemployability < 3 & TSR_data$Historyemployability != 0, ]
Hist_subset_High <- TSR_data[TSR_data$Historyemployability > 3, ]
## Theology employability
#Low employability in History
mean(as.numeric(Hist_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in History
mean(as.numeric(Hist_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in History
mean(as.numeric(Hist_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in History
mean(as.numeric(Hist_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### Ethics ###
Ethics_subset_Low <- TSR_data[TSR_data$Ethicsemployability < 3 & TSR_data$Ethicsemployability != 0, ]
Ethics_subset_High <- TSR_data[TSR_data$Ethicsemployability > 3, ]
## Theology employability
#Low employability in Ethics
mean(as.numeric(Ethics_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Ethics
mean(as.numeric(Ethics_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Ethics
mean(as.numeric(Ethics_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Ethics
mean(as.numeric(Ethics_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### Politics ###
Polit_subset_Low <- TSR_data[TSR_data$Politicsemployability < 3 & TSR_data$Politicsemployability != 0, ]
Polit_subset_High <- TSR_data[TSR_data$Politicsemployability > 3, ]
## Theology employability
#Low employability in Politics
mean(as.numeric(Polit_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Politics
mean(as.numeric(Polit_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Politics
mean(as.numeric(Polit_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Politics
mean(as.numeric(Polit_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### English ###
Eng_subset_Low <- TSR_data[TSR_data$Englishemployability < 3 & TSR_data$Englishemployability != 0, ]
Eng_subset_High <- TSR_data[TSR_data$Englishemployability > 3, ]
## Theology employability
#Low employability in English
mean(as.numeric(Eng_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in English
mean(as.numeric(Eng_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in English
mean(as.numeric(Eng_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in English
mean(as.numeric(Eng_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### Math ###
Math_subset_Low <- TSR_data[TSR_data$Mathemployability < 3 & TSR_data$Mathemployability != 0, ]
Math_subset_High <- TSR_data[TSR_data$Mathemployability > 3, ]
## Theology employability
#Low employability in Math
mean(as.numeric(Math_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Math
mean(as.numeric(Math_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Math
mean(as.numeric(Math_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Math
mean(as.numeric(Math_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### Computer Science ###
CompSci_subset_Low <- TSR_data[TSR_data$ComputerScienceemployability < 3 & TSR_data$ComputerScienceemployability != 0, ]
CompSci_subset_High <- TSR_data[TSR_data$ComputerScienceemployability > 3, ]
## Theology employability
#Low employability in Computer Science
mean(as.numeric(CompSci_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Computer Science
mean(as.numeric(CompSci_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Computer Science
mean(as.numeric(CompSci_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Computer Science
mean(as.numeric(CompSci_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
### Business ###
Busi_subset_Low <- TSR_data[TSR_data$Businessemployability < 3 & TSR_data$Businessemployability != 0, ]
Busi_subset_High <- TSR_data[TSR_data$Businessemployability > 3, ]
## Theology employability
#Low employability in Business
mean(as.numeric(Busi_subset_Low$Theologyemployability), na.rm = TRUE)
#High employability in Business
mean(as.numeric(Busi_subset_High$Theologyemployability), na.rm = TRUE)
## Religious Studies employability
#Low employability in Business
mean(as.numeric(Busi_subset_Low$ReligiousStudiesemployability), na.rm = TRUE)
#High employability in Business
mean(as.numeric(Busi_subset_High$ReligiousStudiesemployability), na.rm = TRUE)
Reference in a new issue Copy permalink