Я хочу использовать функцию выборки после установки set.seed с фиксированным номером.К сожалению, я получаю разные результаты с сайта EDX.Мне интересно, почему я получаю разные результаты.На сайте они получают 0.2706222.На моем компьютере я получаю 0.3293778
Я понял, что проблема возникла из-за моей функции семпла, которая не возвращает мне тот же семпл.Настройка set.seed (1) и использование семпла (seq (1: 5000), 3).Мой компьютер возвращает 1017 4775 2177, тогда как он «должен быть» 1328 1861 2864
library(downloader)
url <- "https://raw.githubusercontent.com/genomicsclass/dagdata/master/inst/extdata/femaleControlsPopulation.csv"
input_file <- basename(url)
download(url, destfile=input_file)
x <- unlist( read.csv(input_file) )
set.seed(1)
my_sample <- sample(x,5)
abs(mean(my_sample)-mean(x))
Ожидаемый вывод кода, вычисляющего среднее значение, должен составлять 0,2706222.