É possível encadear funções em R?

Dados de amostra:

m <- matrix(c(1:10, 11:20), nrow = 10, ncol = 2)

Por exemplo, gostaria de substituir as seguintes declarações abaixo:

step1 <- mean(m)
step2 <- sum(step1)
res <- step2

Ou,

res <- sum(mean(m))

Com algo parecido com isto:

res <- m@mean()@sum()

Em alguns casos, isso esclareceria meu código consideravelmente.

EDIT1 Este é um exemplo fictício. Eu escolhi aleatoriamente 'sum' e 'mean'.

Ben deu um primeiro pedaço de resposta usando% @%, no entanto, impede de usar argumentos extras dentro de funções:

m %@% function1(arg1, arg2) %@% function2(arg1, arg2)

Como posso contornar isso?

EDIT2 Adicionando um exemplo

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")

Este exemplo parece funcionar bem com a solução Charles:

`%@%` <- 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")

Menos importante para o meu caso, mas, mencionando, a seguinte declaração falha com a solução de Charles:

 xts.ts %@% names <- 'ts name'