# NOT RUN {
## 1. EXAMPLE
## Generate a multinormal dataset
data <- data.frame(X1 = rnorm(100), X2 = rnorm(100))
## Joint learnings
dim <- c(2,3)
param <- parametersJointMoTBF(X = data, dimensions = dim)
param$Parameters
length(param$Parameters)
param$Dimension
param$Range
P <- jointMoTBF(param)
P
attributes(P)
class(P)
###############################################################################
## MORE EXAMPLES ##############################################################
###############################################################################
# }
# NOT RUN {
## Generate a dataset
data <- data.frame(X1 = rnorm(100), X2 = rnorm(100), X3 = rnorm(100))
## Joint learnings
dim <- c(3,2,3)
param <- parametersJointMoTBF(X = data, dimensions = dim)
param$Parameters
length(param$Parameters) ## prod(dim)
param$Dimension
param$Range
param$Time
P <- jointMoTBF(param)
P
attributes(P)
class(P)
# }
Run the code above in your browser using DataLab