as.function.motbf {MoTBFs}

Coerce an "motbf" object to a Function

Description

Takes an "motbf" object and contructs an R function to evaluate it at points.

Usage

## S3 method for class 'motbf'
as.function(x, ...)

Arguments

x

An object of class "motbf".

...

Further arguments to be passed to or from the method. Not necessary for this method.

Details

This is an S3 method for the generic function as.function.

Value

It returns a function to evaluate an object of class "motbf".

Examples

## Data
X <- rchisq(5000, df = 3)

## Learning
P <- univMoTBF(X, POTENTIAL_TYPE = "MOP"); P

## Evaluation
as.function(P)(min(X))
as.function(P)(max(X))
as.function(P)(10)
density <- as.function(P)(X)

## Plot
hist(X, prob = TRUE, main = "")
points(X, density, col=4, pch=16)