diff --git a/.RData b/.RData
deleted file mode 100644
index e90e4e1..0000000
Binary files a/.RData and /dev/null differ
diff --git a/.Rhistory b/.Rhistory
deleted file mode 100644
index 1f75692..0000000
--- a/.Rhistory
+++ /dev/null
@@ -1,512 +0,0 @@
-library(scales)       # Used for adding percentages to bar charts
-# 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")
-# Set up local workspace, as needed:
-if (dir.exists("data") == FALSE) {
-dir.create("data")
-}
-if (dir.exists("figures") == FALSE) {
-dir.create("figures")
-}
-if (dir.exists("derivedData") == FALSE) {
-dir.create("derivedData")
-}
-Philos_subset_High <- TSR_data[TSR_data$InterestinstudyingPhilosophy > 3, ]
-### Philosophy ###
-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)
-# 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, ]
-## 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)