## ----style, echo = FALSE, results = 'asis', message=FALSE--------------------- BiocStyle::markdown() ## ----Setting, echo=TRUE------------------------------------------------------- suppressPackageStartupMessages(library("DelayedTensor")) suppressPackageStartupMessages(library("DelayedArray")) suppressPackageStartupMessages(library("HDF5Array")) suppressPackageStartupMessages(library("DelayedRandomArray")) darr <- RandomUnifArray(c(3,4,5)) setVerbose(FALSE) setSparse(FALSE) setAutoBlockSize(1E+8) tmpdir <- tempdir() setHDF5DumpDir(tmpdir) ## ----Tensor Decomposition 1, echo=TRUE---------------------------------------- out_hosvd <- hosvd(darr, ranks=c(2,1,3)) str(out_hosvd) out_tucker <- tucker(darr, ranks=c(2,3,2)) str(out_tucker) ## ----Tensor Decomposition 2, echo=TRUE---------------------------------------- out_cp <- cp(darr, num_components=2) str(out_cp) ## ----Tensor Decomposition 3, echo=TRUE---------------------------------------- out_mpca <- mpca(darr, ranks=c(2,2)) str(out_mpca) ## ----Tensor Decomposition 4, echo=TRUE---------------------------------------- out_pvd <- pvd(darr, uranks=rep(2,dim(darr)[3]), wranks=rep(3,dim(darr)[3]), a=2, b=3) str(out_pvd) ## ----sessionInfo, echo=FALSE-------------------------------------------------- sessionInfo()