Methodenverkettung mit R
Ist es möglich, Funktionen in R zu verketten?
Beispieldaten:
m <- matrix(c(1:10, 11:20), nrow = 10, ncol = 2)
Zum Beispiel möchte ich die folgenden Aussagen ersetzen:
step1 <- mean(m)
step2 <- sum(step1)
res <- step2
Oder,
res <- sum(mean(m))
Mit so etwas:
res <- m@mean()@sum()
In einigen Fällen würde das meinen Code erheblich klären.
EDIT1 Dies ist ein Dummy-Beispiel. Ich habe zufällig "Summe" und "Mittelwert" ausgewählt.
Ben hat eine erste Antwort mit% @% gegeben, es wird jedoch verhindert, dass zusätzliche Argumente in Funktionen verwendet werden:
m %@% function1(arg1, arg2) %@% function2(arg1, arg2)
Wie kann ich das umgehen?
EDIT2 Ein Beispiel hinzufügen
require(xts)
require(PerformanceAnalytics)
xts.ts <- xts(rnorm(231),as.Date(13514:13744,origin="1970-01-01"))
plot(na.omit(lag( rollapply(xts.ts, width=rolling.per-1, FUN= function(x){sqrt(var(x))*sqrt(252)}), k=1)), main = "Dummy Example")
Dieses Beispiel scheint mit der Charles-Lösung gut zu funktionieren:
`%@%` <- function(x, f) eval.parent(as.call(append(as.list(substitute(f)), list(x), 1)))
xts.ts %@% rollapply( width = rolling.per-1, FUN= function(x) x%@%var%@%sqrt * sqrt(252) ) %@% lag( k=1) %@% na.omit %@% plot(main = "Dummy Example")
Weniger wichtig für meinen Fall, aber um es zu erwähnen, schlägt die folgende Aussage mit Karls Lösung fehl:
xts.ts %@% names <- 'ts name'