Господа, я тут пытаюсь понять, как делать воспроизводимые результаты для

Question

Господа, я тут пытаюсь понять, как делать воспроизводимые результаты для

рандомизации.
На одной машине вроде получается повторить, а на другой R версии 3.5 и там set.seed валится, т.к. опции sample.kind нет (((

Если у кого-то R начиная от 3.6 и выше, можно ли попросить прислать в личку csv и sessionInfo следующего кода, чтобы сравнить, одинаковые ли результаты на разных машинах с разными операционками?

library(randomizeR)
block_size <- 8L
rand_blocks <- rep(block_size, ceiling(800L / block_size))
params <- pbrPar(rand_blocks, K = 3L, ratio = c(1L, 1L, 2L), groups = c("Arm 1 label", "Arm 2 label", "Control"))
new_seed <- 805710L
set.seed(new_seed, kind = "Mersenne-Twister", normal.kind = "Inversion", sample.kind = "Rejection")
RandSeq_ <- genSeq(params, seed = new_seed)
Rlist <- t(getRandList(RandSeq_))
Seq_ <- (1:length(Rlist))
rand_df <- data.frame(Sequence = Seq_, Randnum = paste0("R", sprintf("%03d", Seq_)), Blocknum = rep(1:length(rand_blocks), each = block_size), Arm = Rlist)
write.csv(rand_df, paste0(new_seed,".csv"), row.names=FALSE)
sessionInfo()

#programming #r #russian

0

18.09.2020

2 ответов

19 просмотров

Юрий

отправил в личку

0

18.09.2020

Philipp Upravitelev · Accepted Answer

Philipp Upravitelev

смотрите личку

0

18.09.2020

169 похожих чатов

Господа, я тут пытаюсь понять, как делать воспроизводимые результаты для

2 ответов

Похожие вопросы