我正在使用代码删除代码对中的重复项
v<-lapply(v,function(y){x1 <- unlist(y)
l1 <-unique(lapply(split(x1,as.vector(gl(length(x1), 2,length(x1)))), sort))
do.call(set,lapply(l1, function(y) pair(y[1], y[2])))
其中v是对的列表，有时代码以正确的方式工作，但是有时会给我这个错误“ split.default（as.vector（x1），as.vector（gl（length（x1），2，length （x1））））：
第一个参数必须是向量”
在这种情况下，成对列表看起来像{{1,2 ,,（4,6），（2,1），（6,4）}，而如果它以正确的方式工作，则列表将为{（1 ，2），（4,6）}