setwd("/Users/damienneadle/Dropbox/2016_Nut_Cracking_Neadle_Bandini_Tennie/Data")
reliabilityData <- read.csv("Reliability_Coding.csv", header = TRUE)

library(irr)
behavioursOnly <- subset(reliabilityData, select=c("MT", "DN"))
kappa2(behavioursOnly, weight = "equal", sort.levels = FALSE)