生成1到n的一个随机排列。非常感谢能过来看看的人！
一下程序都没搞懂，也是错的<(=┳＿┳=)>...
n=10
sample(1:n)
k=n
if(k>1)
repeat
{
u=runif(1)
I=floor(k*u)+1
k=k-1
I=k
}
p

####没有搞懂！！！
n=10
p=c(sample(1:n))
p
p[1]
k=n
if(k>1)
repeat
{
u=runif(1)
i=floor(k*u)+1
a=p[k]                 ###这里我本来打算赋值交换i,k位置上的值的，但是长度什么，又出问题了……
p[k]=p[i]
p[i]=a
k=k-1
}
p