У меня есть вектор, из которого я хочу выбрать его элементы, которые не делятся на 3 или 5

Question

У меня есть следующий вектор:

set.seed(1)
v2 <- sample(1:200,50)

Я пытался выбрать все числа, которые не делятся на 3 или 5, но у меня не было успеха

nodivisibles <- function(v2){
  prueba <- (v2%%3==0)
  tres <- v2[-prueba]
  pruebados <- (v2%%5==0)
  cinco <- v2[-pruebados]
  list(tres,cinco)
}

Answer 1

Как и другие упомянутые, используйте ! для инвертирования.
Вы можете сделать это в одной строке без функции.
v2[!(v2%%3==0 | v2%%5==0)]

# > v2[!(v2%%3==0 | v2%%5==0)]
# [1] 179 176 184 128 121 196  34 133 182 169  38 116  23  68  67  59  82  83  
# 32 131 118 173 103 124   4  74 112