# NOT RUN {
## Generate a dataset
data <- data.frame(X1 = rnorm(100), X2 = rnorm(100))
## Joint function
dim <-c(2,4)
param <- parametersJointMoTBF(data, dimensions = dim)
P <- jointMoTBF(param)
P$Time
## Coefficients
coef(P)
#############################################################################
## MORE EXAMPLES ############################################################
#############################################################################
# }
# NOT RUN {
## Generate a dataset
data <- data.frame(X1 = rnorm(100), X2 = rnorm(100), X3 = rnorm(100))
## Joint function
dim <-c(2,4,3)
param <- parametersJointMoTBF(data, dimensions = dim)
P <- jointMoTBF(param)
P$Time
## Coefficients
coef(P)
# }
Run the code above in your browser using DataLab