用本x
N=length(x)
n=5000 重复5000次
mu=sapply(1:n,function(o){y=sample(x,N,replace=TRUE);mean(y)})
c(mean(mu),sd(mu))   #计算样本均值及均值标准差
SD=sapply(1:n,function(o){y=sample(x,N,replace=TRUE);sd(y)})
c(mean(SD),sd(SD))   #样本标准差点估计及其方差

样本X
N=length(x)
rou=sapply(1:5000,function(o){sample(x,N,replace=TRUE)})
sd(rou)

不好意思第一次没看清题目

前面的不对，不好意思
X为样本数据对N*2的矩阵
N=length(X)
rou=sapply(1:5000,function(o){y=X[sample(1:N,N,replace=TRUE),];cor(y)})
sd(rou)

给个例子
rm(list=ls())
x=rnorm(1000)
y=rnorm(1000)
X=cbind(x,y)
N=length(x)
rou=sapply(1:5000,function(o){v=X[sample(1:1000,N,replace=TRUE),];cor(v)})
sd(rou)

这个是对的
很抱歉啊

谢谢你啦！