# NOT RUN {
## 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)
# }
Run the code above in your browser using DataCamp Workspace