échantillonnage stratifié

Postez ici vos questions, réponses, commentaires ou suggestions - Les sujets seront ultérieurement répartis dans les archives par les modérateurs

Modérateur : Groupe des modérateurs

Joseph Ngatse
Messages : 3
Enregistré le : 16 Mar 2018, 09:20

échantillonnage stratifié

Messagepar Joseph Ngatse » 19 Avr 2018, 14:11

Bonjour.

François Bonnot
Messages : 537
Enregistré le : 10 Nov 2004, 15:19
Contact :

Re: échantillonnage stratifié

Messagepar François Bonnot » 20 Avr 2018, 07:00

Bonjour,
Une solution:

Code : Tout sélectionner

size <- (1:4)*10 ## taille des sites
df <- data.frame(site=rep(LETTERS[1:4],size),id=1:sum(size),x=10+rnorm(sum(size)))
taux <- 0.1 ## taux de sondage
df.s <- split(df,df$site)
df.s2 <- lapply(df.s,function(x) x[sample(1:nrow(x),nrow(x)*taux),])
do.call(rbind,df.s2)
François

Pierre-Yves Berrard
Messages : 1029
Enregistré le : 12 Jan 2016, 23:30

Re: échantillonnage stratifié

Messagepar Pierre-Yves Berrard » 20 Avr 2018, 07:21

Bonjour,

Une autre écriture pour appliquer la même idée :

Code : Tout sélectionner

library(dplyr)
df %>% group_by(site) %>% sample_frac(0.1)
PY


Retourner vers « Questions en cours »

Qui est en ligne

Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité