Как сделать два одинаковых числа и вставить set.seed() и имя файла?

Я хочу сделать два одинаковых числа и вставить их в set.seed() и имя файла, как показано ниже.

    set.seed(8888)
    write(rnorm(500),"theta_8888_g.txt", sep=",", ncol=500)
    set.seed(9999)
    write(rnorm(500),"theta_9999_g.txt", sep=",", ncol=500)
     ,,,,,,,
    set.seed(111111)
    write(rnorm(500),"theta_1111_g.txt", sep=",", ncol=500)

заранее спасибо


r seed
person lee    schedule 23.05.2015    source источник

Ответы (1)


arrow_upward
2
arrow_downward 

y <- 8888
set.seed(y)
write(rnorm(500), paste0("theta_", y, "_g.txt"), sep=",", ncol=500)

А для более обобщенного решения создайте функцию:

write.theta <- function(x) {
  set.seed(x)
  write(rnorm(500), paste0("theta_", x, "_g.txt"), sep=",", ncol=500)
}

Затем вы можете

write.theta(8888)

or 

y <- c(8888, 9999, 1111)
sapply(y, write.theta)
person Pierre L    schedule 23.05.2015