set.seed(333)
dims <- c(16,18,20) # dimensions of tensor time series
r <- c(3,3,3) # dimensions of factor series
Ft <- tenAR.sim(t=100, dim=r, R=1, P=1, rho=0.9, cov='iid')
lambda <- sqrt(prod(dims))
x <- tenFM.sim(Ft,dims=dims,lambda=lambda,A=NULL,cov='iid') # generate t*dims tensor time series
result <- tenFM.est(x,r,h0=1,iter=TRUE,method='TIPUP') # Estimation
Ft <- result$Ft
Run the code above in your browser using DataLab