# NOT RUN {
## Data
X <- rnorm(500)
Y <- rnorm(500, mean=1)
data <- data.frame(X=X, Y=Y)
## Data as a "list"
Xlist <- sapply(data, list)
## Learning as a "list"
Plist <- lapply(data, univMoTBF, POTENTIAL_TYPE="MOP")
Plist
## BIC value
BICMultiFunctions(Px=Plist, X=Xlist)
# }
Run the code above in your browser using DataLab