base<- rbind(
c(5,3,3),c(4,3,2),c(4,5,4),c(1,5,1),c(1,2,1),c(3,4,2),
c(2,3,2),c(3,1,3),c(3,2,4),c(5,1,5),c(3,4,5),c(5,4,4),
c(2,3,3),c(1,2,3),c(3,4,2),c(1,5,1),c(1,3,2),c(3,4,3),
c(4,2,3),c(4,2,3),c(1,3,3),c(1,3,4),c(1,2,2))
base = data.frame(base)