super bowl squares

list of people participating in squares @ superbowl party

names<- c("cm", "mr", "mt", "ls", "af", "qm", "er", "jw", "pc", "jh")
partyppl<- rep(names, 10)

randomly select order with no replacement

set.seed(22)
squareout<- sample(partyppl, 100, replace = F)
array(squareout,dim=c(10,10))

##       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
##  [1,] "pc" "jw" "qm" "cm" "pc" "pc" "ls" "jw" "cm" "pc" 
##  [2,] "jw" "mr" "cm" "mt" "jh" "af" "mr" "er" "ls" "er" 
##  [3,] "ls" "mr" "jh" "er" "mt" "mt" "er" "qm" "jw" "qm" 
##  [4,] "ls" "cm" "jw" "ls" "jh" "cm" "ls" "mt" "af" "er" 
##  [5,] "ls" "af" "jh" "af" "mt" "ls" "jw" "qm" "jh" "er" 
##  [6,] "pc" "pc" "mt" "pc" "pc" "qm" "ls" "jw" "qm" "af" 
##  [7,] "cm" "cm" "af" "jh" "mr" "jh" "af" "er" "qm" "mt" 
##  [8,] "er" "jw" "cm" "af" "mr" "mt" "mr" "qm" "pc" "mr" 
##  [9,] "jw" "mt" "er" "jh" "pc" "af" "mr" "ls" "qm" "er" 
## [10,] "qm" "mr" "mr" "cm" "jw" "cm" "mt" "af" "jh" "jh"

table(squareout)

## squareout
## af cm er jh jw ls mr mt pc qm 
## 10 10 10 10 10 10 10 10 10 10

randomly select order for square number column/rows

set.seed(232)

chiefs<- sample(0:9,10, replace=F)
birds<- sample(0:9,10, replace=F)

chiefs

##  [1] 2 7 0 5 3 8 6 4 9 1

birds

##  [1] 6 0 7 5 9 3 2 1 8 4