Discussion :

[fabricen26]

Bonjour à vous,
Je veux écrire une fonction R qui prend en entrée un vecteur de taille quelconque n et un entier L avec L<n et effectue un découpage aléatoire du vecteur en L vecteurs.
Par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
x=c(1,4,8,6,2,4,6,7,8,4,2)
L=3

On aura en sortie par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
x1=c(4,1,6,7)
x2=c(8,8,2,4)
 x3=c(6,4,2)

Les questions qui me dérangent sont:

• Comment créer automatiquement les variables dans un programme ?
• Comment découper le vecteur ?

Merci d'avance de votre aide.

[hoccha]

Bonjour,
Voici une proposition de solution:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
set.seed(1)
x <- c(3,4,5,2,8,5,6,1,9,0,0,4,3)
 
randSplit <- function(x,L){
  n <- length(x)
  P <- sample(1:L,n,replace=TRUE)
 
  res <- list()
  for(p in P)
    res[[p]] <- x[p==P]
 
  res
}
 
(randSplit(x,3))

La fonction produit ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bien à vous

[fabricen26]

Salut à tous.
Merci pour cette proposition