1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
| set.seed(123)
Tableau <- data.frame(Age = sample(12:30,size = 50, replace = TRUE), Poids = round(runif(50,45,100)), taille = round(runif(50,1.5,2),2), x = sample(1:50), y = sample(1:10, 50, TRUE), z = sample(10:30, 50, TRUE))
R> head(Tableau)
Age Poids taille x y z
1 17 48 1.80 43 3 15
2 26 69 1.67 25 10 14
3 19 89 1.74 19 7 22
4 28 52 1.98 12 6 15
5 29 76 1.74 6 5 21
6 12 56 1.95 18 9 26
Essai <- split(Tableau[,-1], Tableau$Age)
$`12`
Poids taille x y z
6 56 1.95 18 9 26
18 90 1.98 8 5 17
35 51 1.76 50 3 11
$`13`
Poids taille x y z
15 90 1.86 13 1 20
$`14`
Poids taille x y z
30 51 1.85 23 10 23
41 52 1.66 3 6 16
45 63 1.92 30 4 25
46 55 1.62 24 8 27 |
Partager