library(NRAHDLTP)
data(corneal)
dim(corneal)
group1 <- as.matrix(corneal[1:43, ])
dim(group1)
group2 <- as.matrix(corneal[44:57, ])
dim(group2)
group3 <- as.matrix(corneal[58:78, ])
dim(group3)
group4 <- as.matrix(corneal[79:150, ])
dim(group4)
Run the code above in your browser using DataLab