Форумы GIS-Lab.info

Добрый день!

Подскажите, как сделать так, что бы осталось только каждое третье значение в векторе

x <- sample(1:100, 12)
[1] 39 52 16 42  6 63 76 83 90 62 71 44
# Должно получится
[1] NA NA 16 NA  NA 63 NA NA 90 NA NA 44

Спасибо!

replace(x, 1:length(x) %% 3 != 0, NA)

Я так и предполагал, что можно сделать в одну строку.
У меня такой код:

x <- sample(1:100, 12)
x1 <- rep(NA, length(x))
Ind <- seq(1,length(x), by=3)
x1[Ind] <- x[Ind]

Оставить каждое 3-е значение вектора