La Génération Aléatoire Des Dates

Comment puis-je générer un ensemble de 12 aléatoire dates à l'intérieur d'une plage de dates spécifique?

Je pensais que la suivante devrait fonctionner:

 sample(as.Date(1999/01/01), as.Date(2000/01/01),12)

Mais le résultat ressemble à un ensemble aléatoire de nombres?

Merci

InformationsquelleAutor AAA | 2014-02-01
  1. 46

    seq a une méthode pour la classe Date qui travaille pour cela:

    sample(seq(as.Date('1999/01/01'), as.Date('2000/01/01'), by="day"), 12)
    • Merci pour la réponse rapide!
    • Comment puis-je changer le format de la sortie dans un format tel que le 01/01/1999?
    • Voir ?format.Date. Pour produire ce format, vous voulez la chaîne de format '%m/%d/%Y' (ou peut-être '%d/%m/%Y' -- pour cette raison, je recommande à l'encontre de ce format).
    InformationsquelleAutor Matthew Lundberg
  2. 10

    Plusieurs façons:

    1. De démarrer avec un seul Date objet, et ajoutez simplement le résultat de sample()

    2. Commencer avec une séquence d' Date objets, et sample() il.

    Est de 1:

    R> set.seed(42)   
R> res <- Sys.Date() + sort(sample(1:10, 3))
R> res
[1] "2014-02-04" "2014-02-10" "2014-02-11"
R>
    InformationsquelleAutor Dirk Eddelbuettel
  3. 3

    À suivre de la base de R des fonctions comme rnorm, rnbinom, runif et les autres, j'ai créé la fonction rdate ci-dessous pour retourner hasard des dates basées sur la accepté la réponse de Matthieu Lundberg.

    La plage par défaut est le premier et le dernier jour de l'année en cours.

    rdate <- function(x,
                  min = paste0(format(Sys.Date(), '%Y'), '-01-01'),
                  max = paste0(format(Sys.Date(), '%Y'), '-12-31'),
                  sort = TRUE) {

  dates <- sample(seq(as.Date(min), as.Date(max), by = "day"), x, replace = TRUE)
  if (sort == TRUE) {
    sort(dates)
  } else {
    dates
  }

}

    Comme prévu, il retourne dates de validité:

    > class(rdate(12))
[1] "Date"

    Et le caractère aléatoire de la vérifier, de la génération d'un million de dates à partir de cette année:

    > hist(rdate(1000000), breaks = 'months')

    La Génération Aléatoire Des Dates

    InformationsquelleAutor MS Berends
  4. 2
    td = as.Date('2000/01/01') - as.Date('1999/01/01')
as.Date('1999/01/01') + sample(0:td, 12)
    InformationsquelleAutor Yuriy Kovalev