Calculating Durchschnitt, ohne mittlere Wert in R

Question

I rollmean in R verwendet wurden als so einen gleitenden Mittelwert zu berechnen:

> x = c(3, 8, 12, 5, 9, 6, 8) 
> rollmean(x, 7) 
[1] 7.285714 

Rollmean nimmt eine ungerade Anzahl Eingabe und berechnet den Durchschnitt, einschließlich des Mittelwertes (in diesem Fall 5). Ich würde jedoch gerne wissen, ob es eine Funktion gibt, die es erlaubt, den MA um einen Wert herum zu berechnen, OHNE DIESEN, um die Auswirkung um den mittleren Wert zu bewerten. In diesem Beispiel der Durchschnitt von 3 + 8 + 12 + 9 + 6 + 8, ohne den mittleren Wert 5.

Meine Präferenz ist es, zu vermeiden, eine komplexe Funktion zu schreiben, wenn etwas verfügbar ist.

Danke!

Answer 1

Sie können rollapply verwenden (mit dem Sie eine benutzerdefinierte Funktion auf ein rollendes Fenster anwenden können) und eine einfache Funktion schreiben, um den mittleren Wert auszuschließen. Zum Beispiel:

my_mean = function(x) { 
    if(length(x) %% 2 == 0L) { return(mean(x)) } 
    if(length(x) %% 2 == 1L) { return(mean(x[-ceiling(0.5*length(x))])) } 
} 

# Fake data 
set.seed(5) 
values = cumsum(rnorm(20)) 

library(zoo) 

rollapply(values, width=5, FUN=my_mean) 

[1] 0.032599697 0.341949790 -0.223156076 -0.054644590 -0.007797604 -0.313482549 -0.248932331 -0.372755845 
[9] -0.880215212 -0.848262308 -1.049123185 -1.822352744 -2.315909292 -3.318552855 -4.107026776 -4.295736122