벡터에 값을 할당하십시오.

Question

저는 많은 0을 가진 벡터를 가지고 있습니다.

v <-(3,0,0,5,0,0,0,10,0,0,0,0) 

나는 앞으로 제로가 아닌 숫자를 배포하고, 평균 0이 아닌 숫자 전에 모든 것을 대체 할 수 있습니다.

예를 들어 (3,0,0)은 (1,1,1)로 대체해야합니다.

(3 + 0 + 0)/3 =

(1,1,1,1.25,1.25,1.25,1.25,2,2,2,2,2) 

이를 수있는 함수가된다가되어야 1

V?

감사합니다.

Answer 1

당신은 기능 ave

ave(v,cumsum(v)) 
    [1] 1.00 1.00 1.00 1.25 1.25 1.25 1.25 2.00 2.00 2.00 2.00 2.00