Dear varin sacha,
Not very sure what you want, but will the following help a little?
tmp <- rep(c("C1","C2","C3","C4","C5","C6"), 50) # make a character
vector, with 50 "C1", 50 "C2", ...
classroom <- tmp[sample(1:300)] # make a random permutation.
Certainly you may also make it into one line:
classroom <- rep(c("C1","C2","C3","C4","C5","C6"), 50) [sample(1:30)]
Best,
Lei Chen
On Sat, May 18, 2019 at 3:57 PM varin sacha via R-help
<r-help@r-project.org> wrote:
>
> Dear R-Experts,
>
> In a data simulation, I would like a balanced distribution with a nested
> structure for classroom and teacher (not for school). I mean 50 pupils
> belonging to C1, 50 other pupils belonging to C2, 50 other pupils belonging
> to C3 and so on. Then I want the 50 pupils belonging to C1 with T1, the 50
> pupils belonging to C2 with T2, the 50 pupils belonging to C3 with T3 and so
> on. The school don’t have to be nested, I just want a balanced distribution,
> I mean 60 pupils in S1, 60 other pupils in S2 and so on.
> Here below the reproducible example.
> Many thanks for your help.
>
> ##############
> set.seed(123)
> # Génération aléatoire des colonnes
> pupils<-1:300
> classroom<-sample(c("C1","C2","C3","C4","C5","C6"),300,replace=T)
> teacher<-sample(c("T1","T2","T3","T4","T5","T6"),300,replace=T)
> school<-sample(c("S1","S2","S3","S4","S5"),300,replace=T)
> ##############
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
