## 1. univmotbf - Example for univariate distributions
## Data
X <- rexp(2000)
f1 <- univMoTBF(X, POTENTIAL_TYPE = "MOP")
f2 <- univMoTBF(X, POTENTIAL_TYPE = "MTE", maxParam = 10)
## Plots
plot(NULL, xlim = range(X), ylim = c(0,0.8), xlab="X", ylab="density")
plot(f1, xlim = range(X), col = 1, add = TRUE)
plot(f2, xlim = range(X), col = 2, add = TRUE)
## 2. jointmotbf - Example for join distributions
## Data
X <- data.frame(rnorm(500), rnorm(500))
## Joint function
dim <- c(3,3)
P <- jointmotbf.fit(X, dimensions = dim)
## Plots
plot(P)
plot(P, type = "perspective", orientation = c(90,0))
Run the code above in your browser using DataLab