expData <- matrix(c(279, 378, 172, 381, 338, 275, 335, 346, 334, 412, 335, 340, 198, 265, 282, 471, 303, 286, 250, 318), ncol=4, byrow=TRUE)
colnames(expData) <- c("Group I", "Group II", "Group III", "Group IV")