rep(3,5),1,3,1,rep(3,3),1,3,1,rep(3,5),1,rep(3,5),1,3,1,rep(3,3),rep(1,3),rep(3,11),rep(1,3),rep(3,5),1,rep(3,11),1,rep(3,8),1,rep(3,6),1,3,3,1,rep(3,9),1,rep(3,3),rep(1,3),rep(3,3),1,rep(3,9),1,1,rep(3,7),1,1,rep(3,9),1,3,1,rep(3,5),1,3,1,rep(3,9),1,3,3,1,3,3,3,1,3,3,1,rep(3,9),1,rep(3,3),rep(1,3),rep(3,3),1,rep(3,9),1,rep(3,9),1,rep(3,7),rep(1,16),rep(3,4),rep(1,6),rep(2,6),rep(1,4),rep(3,4),rep(1,11),2,rep(1,4),rep(3,4),rep(1,10),2,rep(1,5),rep(3,3),rep(1,10),2,rep(1,7),3,rep(1,20))
> satoru <- data.frame(matrix(gojo,ncol = 20,byrow = TRUE))