R中的函数“sample”，这两个代码片段是否等效？

Question

这两个代码 sn-ps 是否等效，即它们是否在做同样的事情？

根据我在sample 的帮助下的理解，他们应该做同样的事情，即s1 和s2 都是x 的随机子集。

第一个sn-p：

sz <- 5
x <- 1:10
s1 <- sample(x,size=sz,replace=F)

第二次sn-p：

sz <- 5
x <- 1:10
s2 <- c()
idx <- sample(1:length(x),size=sz,replace=F)
for ( i in idx ) {
    s2 <- c(s2,x[i])
}

Answer 1

是的。

> sz <- 5
> x <- 1:10
> set.seed(21); s1 <- sample(x,size=sz,replace=F)
> sz <- 5
> x <- 1:10
> s2 <- c()
> set.seed(21); idx <- sample(1:length(x),size=sz,replace=F)
> for ( i in idx ) {
+     s2 <- c(s2,x[i])
+ }
> identical(s1,s2)
[1] TRUE