Fonction pour échantillonner

[Boris Milognon]

Bonjour à tous.
Je cherche à échantillonner respectivement 30, 40, 50, 60, 70, 80 et 90% d'une base de donnée. J'ai pu le faire avec ces lignes de code que voici.
index1 <- sample(1:nrow(rdata),round(0.30*nrow(rdata)))
index2 <- sample(1:nrow(rdata),round(0.40*nrow(rdata)))
index3 <- sample(1:nrow(rdata),round(0.50*nrow(rdata)))
index4 <- sample(1:nrow(rdata),round(0.60*nrow(rdata)))
index5 <- sample(1:nrow(rdata),round(0.70*nrow(rdata)))
index6 <- sample(1:nrow(rdata),round(0.80*nrow(rdata)))
index7 <- sample(1:nrow(rdata),round(0.90*nrow(rdata)))
Mon problème est le suivant. Je veux écrire une fonction qui pourra m'aider à obtenir le même résultats.
Merci de m'aider

[Pierre-Yves Berrard]

Bonjour,

Une fonction qui renvoie une liste des "index" :

Code : Tout sélectionner

f <- function(rdata, pct = 3:9 / 10) {
  n <- nrow(rdata)
  lapply(pct, function(p) sample(n, round(p * n)))
}

Utilisation :

Code : Tout sélectionner

f(iris)
f(iris, c(.15, 1/3))

(on peut aussi regarder du côté de la fonction sample_frac du package dplyr)

[Boris Milognon]

Merci la réponse Mr Pierre-Yves Berrard.
J'ai un préoccupation à propos de la fonction . Est ce qu'elle renvoie automatiquement la liste des index? ou dois-je les appeler

[Pierre-Yves Berrard]

Vous pouvez affecter le résultat de la fonction à un objet puis vous en servir comme suit :

Code : Tout sélectionner

ma_liste <- f(iris)
ma_liste[[1]]
ma_liste[[5]]

[Boris Milognon]

Infiniment merci Mr Pierre-Yves Berrard pour votre aide