如何将NA设置为一个数据帧中每隔三个其他数据？

dat<-c(1,2,3,4,5,6,7,8,9,10)

datnew<-c(1,2,3,NA,NA,NA,7,8,9,NA)

R> foo <- 1:10
R> foo
 [1]  1  2  3  4  5  6  7  8  9 10
R> ind <- rep(c(FALSE, TRUE), each=3)
R> ind
 [1] FALSE FALSE FALSE  TRUE  TRUE  TRUE
R> foo[ind] <- NA
R> foo
 [1]  1  2  3 NA NA NA  7  8  9 NA
R> 

ind

foo[c(seq(4,length(foo),6),seq(5,length(foo),6),seq(6,length(foo),6))] <- NA