изменение значений в векторе данные местоположений и состояние с R

Question

у меня возникают проблемы манипулирования векторов в R. У меня есть вектор, который выглядит следующим образом:

stack <- append(append(rep(0,8),c(1,0,0,0,0,1)),rep(0,6)) 
[1] 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 

моя общая цель состоит в манипулируют вектор как например:

*, когда есть 1, сделать следующие три значения в векторе 1. * изменить первоначальный 1 до 0.

так в конечном счете, вектор будет выглядеть следующим образом:

[1] 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 1 1 0 0 0 

второй части я могу сделать по:

replace(stack,which(stack == 1),0) 

, но я не могу понять, как эффективно сделать первый. любая помощь будет принята с благодарностью.

Answer 1

Вы можете использовать filter здесь:

c(filter(sx,c(0,0,0,0,1,1,1),circular=TRUE)) 
## [1] 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 1 1 0 0 0 

Answer 2

Вот возможный вариант базы R

temp <- which(stack == 1) 
stack[as.vector(mapply(`:`, temp, temp + 3))] <- c(0, rep(1, 3)) 
stack 
# [1] 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 1 1 0 0 0 

Answer 3

Я бы с регулярными выражениями

stack <- paste0(stack, collapse="") 
stack <- gsub("1.{3}", "0111", stack) 
stack <- strsplit(stack, "+")