# NOT RUN {
## 1 .EXAMPLE
## Dataset
X <- data.frame(rnorm(500), rnorm(500))
## Joint function
dim <- c(3,3)
param1 <- parametersJointMoTBF(X, dimensions = dim)
P <- jointMoTBF(param1)
P
## Plots
plot(P)
plot(P, type = "perspective", orientation = c(90,0))
#############################################################################
## MORE EXAMPLES ############################################################
#############################################################################
# }
# NOT RUN {
## Dataset
X <- data.frame(rnorm(200,2), rexp(200, 1))
## Joint function
dim <- c(4,5)
param2 <- parametersJointMoTBF(X, dimensions = dim)
P <- jointMoTBF(param2)
P
## Plots
plot(P)
plot(P, filled = FALSE, data = X)
plot(P, type = "perspective", orientation = c(10,180))
# }
Run the code above in your browser using DataLab