Bene Raga, il destino ha deciso, questa è la lista degli allenatori e delle rispettive squadre. Se proprio non vi piace la vostra e volete quella di un altro in lista, mettete mano al portafoglio e convincetelo.
Le squadre non in lista le lasceremo libere. Baci e abbracci. Ci vediamo in Messico
allenatori<- c("Giuseppe A.", "Alessandro","Luigi","Elia","Giuseppe C.","Stefano", "Fabio", "Saverio","Duilio","Luca","Francesco E.", "Francesco B.", "Matteo")
squadre<-c("CD Cruz Azul","CF Monterrey","Tigres UANL","CF América","Deportivo Toluca","UNAM Pumas","CD Guadalajara","CF Pacheca","Club Leòn FC","Atlas Guadalajara","Jaguares de Chiapas","Tiburones Rojos de Veracruz", "Monarcas Morelia", "Puebla FC", "Santos Laguna", "Club Tijuana","Dorados de Sinaloa", "Querètaro FC")
set.seed(1)
r1<-sample(1:13,13)
set.seed(2)
r2<-sample(1:18,13)
cbind(allenatori[r1],squadre[r2])## [,1] [,2]
## [1,] "Elia" "CF América"
## [2,] "Giuseppe C." "Tiburones Rojos de Veracruz"
## [3,] "Fabio" "Atlas Guadalajara"
## [4,] "Luca" "Tigres UANL"
## [5,] "Alessandro" "Puebla FC"
## [6,] "Saverio" "Monarcas Morelia"
## [7,] "Francesco E." "CF Monterrey"
## [8,] "Matteo" "Club Tijuana"
## [9,] "Stefano" "Deportivo Toluca"
## [10,] "Giuseppe A." "Jaguares de Chiapas"
## [11,] "Francesco B." "Club Leòn FC"
## [12,] "Luigi" "Dorados de Sinaloa"
## [13,] "Duilio" "CF Pacheca"