2017-01-26 6 views

答えて

0
x[c(FALSE, TRUE)] <- x[c(FALSE, TRUE)]/2 

または多分:

x[seq(2, length(x), 2)] <- x[seq(2, length(x), 2)]/2 
0

1で割ることは何もしないことと同じであるので、あなただけのベクトルのリサイクルに依存して行うことができます:

x/1:2 
#[1] 1 1 3 2 5 3 7 4 9 5 
関連する問題