Удалить элемент из вектора списка

Я бы удалил элемент длиной! = 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]}}

но цикл не удаляет элемент, который я хотел бы