
Reconstruct the original 3-Tensor after it has been decomposed into U, S, V
via t_svd
.
t_svd_reconstruct(L)
list that is an output from t_svd
a 3-Tensor
# NOT RUN {
tnsr <- rand_tensor(c(10,10,10))
tsvdD <- t_svd(tnsr)
1 - fnorm(t_svd_reconstruct(tsvdD)-tnsr)/fnorm(tnsr)
# }
Run the code above in your browser using DataLab