# Load librarylibrary(haven)# Read in data#data inputa <- read.csv(choose.files())# Load the librarylibrary(MASS)# Turn the apply variable into a factora$KABCO <- factor(a$KABCO)# Run the ordinal logistic regression modelmodel <- polr(KABCO~ Covid+ Speed+ Volume+ Drug_Alco, data=a)summary(model)#require(modEvA)...