R/reconstTucker.R

In liberaldays/TensorSlam: Sparse Tensor Calculation with Slam Package

#' reconstruct Tucker Result

#'@export
#'@param core WIP
#'@param Wlist WIP
#'@return WIP


reconstTucker <- function(core,Wlist){

	for(i in 1:length(Wlist)){
		core <- kModeProduct(tnsr=core,mat=Wlist[[i]],m=i)
	}
	return(core)
}