## 1. EXAMPLE
## Dataset with 2 variables
data <- data.frame(x = rnorm(100), y = rnorm(100))
## Joint function
dim <- c(4,3)
P <- jointmotbf.fit(data, dimensions = dim)
## Marginal
marginal.jointmotbf(P, var = "x")
marginal.jointmotbf(P, var = 2)
##############################################################################
## MORE EXAMPLES #############################################################
##############################################################################
# \donttest{
## Generate a dataset with 3 variables
data <- data.frame(x = rnorm(100), y = rnorm(100), z = rnorm(100))
## Joint function
dim <- c(2,2,3)
P <- jointmotbf.fit(data, dimensions = dim)
## Marginal
marginal.jointmotbf(P, var = "x")
marginal.jointmotbf(P, var = "y")
marginal.jointmotbf(P, var = c("x", "z"))
# }
Run the code above in your browser using DataLab