从列表向量中消除元素

Question

我将从该数据结构中删除长度为！= 4的元素

    library(partitions)
        permListParts <- function (x) 
        {
            f <- function(pp) {
                out <- split(seq_along(pp), pp)
                myPerms <- perms(length(out))
                apply(myPerms, 2, function(x) {
                    temp <- out[x]
                    class(temp) <- c(class(temp), "equivalence")
                    temp
                })
            }
            apply(setparts(x), 2, f)
        } 
  x=c(33,45,77,23,15)     
 parts <- permListParts(length(x))
            out <- rapply(parts, function(ii) x[ii], how="replace")  

要删除，我使用以下代码：

for(i in 1:length(out)){
if(length(out[[i]][[1]])!=4){out=out[-i]}}

但是循环不会删除我想要的元素