数组中如何随机取到连续3个数

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Reels <- c(1,3,1,4,8,3,6,11,10,7)

请教一下，如何实现随机取到连续数，比如：(1,3,1) 、(10,7,1) 、(7,1,3)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：ELS

你把它看成前n-2个数随机取一个数，然后再取这个数之后的两个数不就行了？

然后关于尾部的问题，你可以考虑使用mod，如果出现整除，只需要把那个余数为0的换成数组的最后一个数就可以了。比如

1. Reels <- c(1,3,1,4,8,3,6,11,10,7)
   
2. idx <- 9:11 %% length(Reels)
   
3. idx[idx == 0] <- length(Reels)
   
4. Reels[idx]

复制代码

1. Reels <- c(1,3,1,4,8,3,6,11,10,7)
   
2. 
   
3. get_three_num <- function(vec_x){
   
4.   kn <- length(vec_x)
   
5.   i <- sample(kn,1,replace = T)
   
6.   if(i==1){
   
7.     ki <- c(kn,1,2)
   
8.   } else if(i==kn){
   
9.     ki <- c(kn-1,kn,1)
   
10.   } else{
    
11.     ki <- c(i-1,i,i+1)
    
12.   }
    
13.   return(Reels[ki])
    
14. }
    
15. 
    
16. get_three_num(Reels)

复制代码

1. Reels <- c(1,3,1,4,8,3,6,11,10,7)
   
2. 
   
3. get_three_num <- function(vec_x){
   
4.   kn <- length(vec_x)
   
5.   i <- sample(kn,1,replace = T)
   
6.   ki <- c(i-1,i,i+1)
   
7.   ki[ki>kn] <- ki[ki>kn]-kn
   
8.   ki[ki==0] <- ki[ki==0]+kn
   
9.   return(Reels[ki])
   
10. }
    
11. 
    
12. get_three_num(Reels)

复制代码