Janela de correr em R

Eu tenho um dataframe DF, com duas colunas A e B mostradas abaixo:

A                    B                  
1                    0             
3                    0               
4                    0                   
2                    1                    
6                    0                    
4                    1                     
7                    1                 
8                    1                     
1                    0   

Uma abordagem de janela deslizante é executada como mostrado abaixo. A média é calculada para a coluna B em uma janela deslizante de tamanho 3 deslizando por 1 usando: rollapply (DF $ B, largura = 3, por = 1). Os valores médios para cada janela são mostrados no lado esquerdo.

    A:         1    3    4    2    6    4    7    8    1                                          
    B:         0    0    0    1    0    1    1    1    0                                
              [0    0    0]                                              0
                    [0    0    1]                                        0.33
                          [0    1    0]                                  0.33
                                [1    0    1]                            0.66
                                      [0    1    1]                      0.66
                                            [1    1    1]                1
                                                 [1    1    0]           0.66
output:        0   0.33 0.33 0.66   0.66    1     1    1   0.66

Agora, para cada linha / coordenada na coluna A, todas as janelas que contêm a coordenada são consideradas e devem manter o valor médio mais alto que fornece os resultados, conforme mostrado na coluna 'saída'.

Eu preciso obter a saída como mostrado acima. A saída deve gostar:

A                   B                  Output   
1                   0                      0
3                   0                      0.33
4                   0                      0.33
2                   1                      0.66
6                   0                      0.66
4                   1                      1
7                   1                      1
8                   1                      1
1                   0                    0.66

Qualquer ajuda em R?

questionAnswers(2)

yourAnswerToTheQuestion