R에서 데이터 잡음을 제거하기위한 공식을 적용하는 방법?

Question

텍스트 파일에 18 개의 열과 1180598 개의 행이있는 NGSim 트래픽 데이터를 작성하고 있습니다. 'Local Y'열의 위치 데이터를 부드럽게하고 싶습니다. R에 데이터 스무딩을위한 내장 함수가 있지만 그 중 아무 것도 내가 적용해야하는 수식과 일치하지 않는 것 같습니다. 텍스트 파일의 데이터는 다음과 같습니다.

Index VehicleID Total_Frames Local Y 

    1 2 5 35.381 
    2 2 5 39.381 
    3 2 5 43.381 
    4 2 5 47.38 
    5 2 5 51.381 
    6 4 8 504.828 
    7 4 8 508.325 
    8 4 8 512.841 
    9 4 8 516.338 
    10 4 8 520.854 
    11 4 8 524.592 
    12 4 8 528.682 
    13 4 8 532.901 
    14 5 7 39.154 
    15 5 7 43.153 
    16 5 7 47.154 
    17 5 7 51.154 
    18 5 7 55.153 
    19 5 7 59.154 
    20 5 7 63.154 

위의 데이터 열은 원본 파일에서 가져온 예제입니다. 여기에서는 차량 ID가 2, 4 및 5 인 차량 3 대를 볼 수 있지만 IDS가 다른 2169 대의 차량이 있습니다. Total_Frames 열은 첫 번째 열에서 각 차량의 차량 ID가 몇 번 반복되었는지를 알려줍니다 (예 : 위 표에서 차량 ID 2는 5 회 반복되므로 Total_Frames 열에서 '5'). 다음은 '로컬 Y'열의 데이터 노이즈 (평활화)를 제거하는 데 적용해야하는 공식입니다.

평활화 위치 값 = (1/(k의 [EXP^-abs (ik)/delta) 합계 = I 이드 + D)) * ((로컬 Y의 (액수) EXP^-abs (IK)/델타] I에 K에서 ID = + D))

,

I = 인덱스 # 델타 = 5 D = 15

내가 알고있는 내장 함수를 사용해 보았지만, 필요에 따라 데이터를 부드럽게하지 못했습니다. 내 질문은 : 주어진 수식의 방식으로 데이터를 다듬을 수 또는이 수식을 인수로 걸릴 수있는 R에 기본 제공 함수가 있습니까? 나는 동일한 차량 ID에 대해 15 개의 값과 15 개의 값 (i-D 및 i + D)을 가진 Local Y의 모든 값에 수식을 적용해야합니다. 아무도 내게 문제에 접근하는 방법을 알 수 있습니까? 미리 감사드립니다.

Answer 1

당신은 함수에 수식을 배치하고 dataframe