如何更改置信区间显示格式？

Question

我有这样的数据集：

Row   B1    B2    B3         G1         G2   G3
 1   6.19   0.69       0.30       0 0   0
 2    100   100    100        94.87 98.73   90.56
 3    100   90.24     100         40    78.94   87.5
 4    93.90 96.15     95.29      98.82  100 100
 5    100   98.38      100       88.88  95.87   83.56
 6    93.90 96.15     95.29      98.82  100 100

等等，对于25000行。 对于每一行，我需要计算B列和G列之间的差异，并获得置信区间。 这就是我到目前为止所做的：

    data=read.table("1.txt", header=T, sep="\t")
    boys=data[,grep('B',names(data))]
    girls=data[,grep('G',names(data))]
    ci= sapply(1:nrow(data),function(i){wilcox.test(as.numeric(boys[i,]),as.numeric(girls[i,]),exact=FALSE,correct=FALSE,conf.int=TRUE,conf.level=0.95)$conf.int})

我的问题是，每次我这样做时，我都会获得置信区间，并显示间隔的2个数字。例如，像这样： 五 15 （对于第1行，比方说）

如何让每行的CI显示在一行中，如下所示：5,15

非常感谢这方面的任何帮助！ 提前谢谢！