我想在使用固定编号设置set.seed之后使用样本功能。不幸的是，我从edx网站获得了不同的结果。 我想知道为什么我得到不同的结果。他们在网站上获得0.2706222。在我的计算机上，我获得0.3293778
我意识到问题出在我的示例函数中，该函数没有返回相同的示例。设置set.seed（1）并使用sample（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。