powered by
Coerce a multipol to a function using environments
# S3 method for multipol as.function(x, ...)
A multipol
Further arguments, currently ignored
Robin K. S. Hankin
as.multipol
a <- as.multipol(array (1:12, c(2,3,2))) f1 <- as.function(a) f2 <- as.function(a*a) x <- matrix(rnorm(15),ncol=3) f1(x)^2 - f2(x) #should be zero [non-trivial!]
Run the code above in your browser using DataLab