# 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
# Estimate signal tensor and permutation
kvec = c(3,3,3)
result = Borda_count(observe_T,2,kvec,sym = TRUE)
# Calculate MSE
hatTheta = result$Theta
mean((hatTheta-signal_T)^2)
# }
Run the code above in your browser using DataLab