5# ltx5151
谢谢楼上，我终于解决了，代码可以是：
x<-c(3,6,4,7,1)
y<-c(5,8,2,9,0)
xy<-cbind(x,y)
xy_sample<-function(xy){
mysample<-xy[sample(1:5,3),]
mysample
}
res<-list()
length(res)<-10
for (i in 1:10){
res[
]=xy_sample(xy)
}
res
但又有一个后续问题，我又编了一段代码：
f<-function(h){
xk<-res[[h]][,1]
yk<-res[[h]][,2]
a<-sum(xk*yk)
return(a)
}
然后f(1),f(2)输出都是对的，但是如果我想输出f(1:10)，就出现错误 Error in res[[h]] : recursive indexing failed at level 2
请问这是为什么？该如何解决呢
扫码加好友，拉您进群
全部版块
我的主页
收藏
