若是多元正态随机向量，可用mvrnorm产生。
另外安装mvtnorm包之后也可以产生非中心的t分布。

set.seed
..................

x<-sample(1:1500,1000)
y<-sample(1:1500,1000)
randxy<-as.data.frame(cbind(x,y))
每一行是一个所要的随机向量，共1000行。
不重复的要求有点不合理，如果真要这样需结合具体要求来生成

楼主的意思生成的向量是要整点吗
如果不要求是整点那就很简单 因为R生成的浮点型随机数是不重复的
y <- runif(1e4)
length(y) == length(unique(y))
一维不重复  高维自然就不重复了
如果是要求整点(i,j), i,j整数，i,j<=1500可以用穷举法
i <- j <- c(1:1500)
mat <- expand.grid(i,j)
y <- mat[sample(1e4),]
这样的y就是不重复的二维整点随机数
高维类似

上面code有个typo，改正：
i <- j <- c(1:1500)
mat <- expand.grid(i,j)
y <- mat[sample(1:nrow(mat),1e4),]
如果为了以后能抽相同的随机样本(to reproduce your results)，可以在y <- ...前面加上“set.seed(8);”，8可以是任意数字