# Generate sample data.
n <- 100
x <- t(cbind(rnorm(n, mean = 0),
rnorm(n, mean = 1),
rnorm(n, mean = 2),
rnorm(n, mean = 3),
rnorm(n, mean = 4),
rnorm(n, mean = 5)))
dim(x) <- c(3, 2, n)
# Matrix of vectorized observations.
vecx <- tensorVectorize(x)
# The covariance matrix of individual tensor elements
cov(t(vecx))
Run the code above in your browser using DataLab