对不起，刚才的函数没有粘全，完整的如下

  问题2，函数的方法
dtcbn=function(d1,d2) {
  vlen=ncol(d1)
  vname=NULL
  dt=NULL
  for (i in 1:vlen) {
    if(length(dt)==0) dt=data.frame(X[,i],R[,i]) else dt=data.frame(dt,X[,i],R[,i])
    vname=c(vname,paste("X",i,sep=""),paste("R",i,sep=""))
  }
  names(dt)=vname
  return(dt)
}

函数调用
dtcbn(X,R)

问题1，直接的方法
dt=data.frame(X[,1],R[,1],X[,2],R[,2],X[,3],R[,3])
names(dt)=c("X1","R1","X2","R2","X3","R3")

问题2，函数的方法
dtcbn=function(d1,d2) {
  vlen=ncol(d1)
  vname=NULL
  dt=NULL
  for (i in 1:vlen) {
    if(length(dt)==0) dt=data.frame(X[,i],R[,i]) else dt=data.frame(dt,X[,i],R[,i])
    vname=c(vname,paste("X",i,sep=""),paste("R",i,sep=""))
  }

函数调用
dtcbn(X,R)

  sapply(1:ncol(X), function(i) data.frame(X[,i],R[,i]))
这样跑不出来的？

能用批量函数写吗？简单点的

能用批量函数写吗？简单点的