powered by
Combining extracted components of PARAFAC models
eempf_bindxc(components)
parafac_components
list of parafac_components
data(pf_models) pfmodel <- pf4[[1]] comps <- eempf_excomp(pfmodel,c(1,3)) comps2 <- eempf_excomp(pfmodel,c(4,6)) comps3 <- eempf_bindxc(list(comps, comps2))
Run the code above in your browser using DataLab