# NOT RUN {
## Data
X <- rexp(10000)
## Data test
Xtest <- rexp(1000)
Xtest <- Xtest[Xtest>=min(X) && Xtest<=max(X)]
## Learning
f1 <- univMoTBF(X, POTENTIAL_TYPE = "MOP", nparam = 10); f1
f2 <- univMoTBF(X, POTENTIAL_TYPE = "MTE", maxParam = 11); f2
## BIC values
BICMoTBF(Px = f1, X = Xtest)
BICMoTBF(Px = f2, X = Xtest)
# }
Run the code above in your browser using DataLab