谢谢,解决了

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

谢谢 谢谢,解决了

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

1. merge.first.then.sort<-function(in1,in2){
   
2.       n=length(in1)
   
3.       m=length(in2)
   
4.       y<-vector(mode='numeric',length=m+n)
   
5.       x<-vector(mode='numeric',length=m+n)
   
6.       x=c(in1,in2)
   
7. p=c()
   
8. for (i in 1:(n+m))
   
9.       {
   
10.             y=x[which(x == min(x))]
    
11.             x=x[-which(x== min(x))]
    
12.             p=c(p,y)
    
13.       }#end for
    
14. print(p)
    
15. }#function end
    
16. 
    
17. 
    
18. 
    
19. merge.first.then.sort(c(1,5,14),c(2,6,15))

复制代码