multipol (version 1.0-7)

as.function.multipol: Coerce a multipol to a function

Description

Coerce a multipol to a function using environments

Usage

# S3 method for multipol
as.function(x, ...)

Arguments

x

A multipol

Further arguments, currently ignored

See Also

as.multipol

Examples

# NOT RUN {
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!]
# }