A non parametric procedure to constraint the core matrix in three-mode principal component analysis