mirror of
https://github.com/kidwellj/trs_admissions_survey2021.git
synced 2024-10-31 22:22:21 +00:00
removing r history files
This commit is contained in:
Jeremy Kidwell
parent
8472d96d3a
commit
ab0ebc1703
512
.Rhistory
512
.Rhistory
|
|
@ -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)
|
|
||||||
Loading…
Reference in a new issue