Libraries and import data

likert_libraries_data

# Import libraries
library(plyr)
library(dplyr)
library(likert)
library(grid)
library(ggplot2)

#Import data. You'll need to change the path here and point it to where your data are. 
LXP.data <- read_excel("LMSdummyDataShort_en.xlsx") 

# Convert data to factors - this allows us to use convert the text from the Excel file to perform caculations on it
LXP.data <- LXP.data[sapply(LXP.data, is.character)] <- lapply(LXP.data[sapply(LXP.data, is.character)],  as.factor)

# And then back into a data frame
LXP.data <- as.data.frame(LXP.data)

## Now that we've got our data in the right format, we need to separate our data into two separate files. One for the items, and one for the cohorts. 
# Remove schools from results/drop first column
LXP.data.items <- as.data.frame(LXP.data[-(1)])