TableDenmark <- matrix(c(25, 7, 4, 401), ncol = 2, byrow = TRUE)
View(TableDenmark)
rownames(TableDenmark) <- c("Eligible", "Not Eligible")
colnames(TableDenmark) <- c("Eligible", "Not Eligible")
View(TableDenmark)
TableSweden <- matrix(c(12, 12, 10, 998), ncol = 2, byrow = TRUE)
rownames(TableSweden) <- c("Eligible", "Not Eligible")
colnames(TableSweden) <- c("Eligible", "Not Eligible")
View(TableSweden)
TableFinland <- matrix(c(6, 5, 12, 396), ncol = 2, byrow = TRUE)
rownames(TableFinland) <- c("Eligible", "Not Eligible")
colnames(TableFinland) <- c("Eligible", "Not Eligible")
View(TableFinland)
install.packages("psych")
library("psych")
cohen.kappa(TableDenmark)
cohen.kappa(TableSweden)
cohen.kappa(TableFinland)