Господа, я тут пытаюсь понять, как делать воспроизводимые результаты для рандомизации.
На одной машине вроде получается повторить, а на другой 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()

Други, а подскажите на какой библиотеке лучше всего сделать следующую задачу:

- Есть данные по городам России с количеством сусликов. Необходимо показать на карте круги с разными цветами(в зависимости от количества сусликов на город).
Карта должна быть масштабируемая и с подписями городов.

Господа, я тут пытаюсь понять, как делать воспроизводимые результаты для рандомизации.
На одной машине вроде получается повторить, а на другой 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()

Други, а подскажите на какой библиотеке лучше всего сделать следующую задачу:

- Есть данные по городам России с количеством сусликов. Необходимо показать на карте круги с разными цветами(в зависимости от количества сусликов на город).
Карта должна быть масштабируемая и с подписями городов.

Крутая хрень - суслики будут довольны

Потому что не суслики, а клиенты и прочие прелести

Чукча не автор, чукча - руки или другая часть тела

Вопрос по leaflet ещё есть небольшой.

В leaflet есть такой плагин - markerClusterOptions(). У него прикольная визуализация маркеров, но на последнем уровне все мелкие маркеры он преобразует в вид по умолчанию. В виде булавочной головки. Как бы её заменить на тот же вид, что и основные маркеры?!