# NOT RUN {
# Generate the noisy observation from smooth tensor and permutation
d = 20
sim1 = simulation(d,mode = 1)
signal_T = sim1$signal
observe_T = sim1$observe
permutation = sim1$permutation
psignal_T = signal_T[permutation,permutation,permutation]
# Estimate permuted signal tensor
hatpTheta = Spectral(observe_T,1,c(2,3))
# Calculate MSE
mean((hatpTheta-psignal_T)^2)
# }
Run the code above in your browser using DataLab