求大神看看错在哪里了，是R的程序，要求建立一个函数，将a,b两个向量互插，长的那个保留，比如：a(1,2,3,4,5,6),b(10,11,12,13),function(a,b)=c(1,10,2,11,3,12,4,13,5,6)。程序如下：
a <- 1:10
b <- 50:55
f<-function(a,b){
m=length(a)
n=length(b)
if(m<n) riffle1() else riffle2()
riffle1<-function(){
x<-c()
y<-c()
for (i in 1:m){
x=c(x,a,b)
}
y=c(x,b[m+1:n])
return(y)}
riffle2<-function(){
x<-c()
y<-c()
for (i in 1:n){
x=c(x,a,b)
}
y=c(x,a[n+1:m])
return(y)
}
}
f(a,b)
https://bbs.pinggu.org/forum.php?mod=viewthread&tid=3447648&page=1&from^^uid=4963015