# NOT RUN {
f1 <- as_function(mean)
f1(1:10)
f2 <- as_function("sum")
f2(1,2,3)
f3 <- as_function(~.x + 1)
f3(9)
f4 <- as_function(~ .t + 1)
f4(10)
f5 <- as_function(~.x + .y)
f5(1,2)
f6 <- as_function(~ .t + alpha)
f6(10, alpha = 2)
# }
Run the code above in your browser using DataLab