R Under development (unstable) (2025-09-01 r88761 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2025 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> library(albatross)
> data(feems)
> f <- feemflame(
+ 	feemscale(cube), ffac = 3, sfac = 1,
+ 	control.cmf = list(maxit = 4), control.parafac = list(maxit = 2)
+ )

                                   #1 SSE/SSX=1.308621e-02 rel.dSSE=6.387696e+01
=============                      #2 SSE/SSX=1.034319e-02 rel.dSSE=2.652001e-01
===============                    #3 SSE/SSX=8.924329e-03 rel.dSSE=1.589882e-01
================                   #4 SSE/SSX=8.215195e-03 rel.dSSE=8.631972e-02
==================                 #5 SSE/SSX=7.802014e-03 rel.dSSE=5.295828e-02
===================                #6 SSE/SSX=7.536520e-03 rel.dSSE=3.522760e-02
====================               #7 SSE/SSX=7.356608e-03 rel.dSSE=2.445591e-02
====================               #8 SSE/SSX=7.229189e-03 rel.dSSE=1.762567e-02
=====================              #9 SSE/SSX=7.135410e-03 rel.dSSE=1.314273e-02
=====================             #10 SSE/SSX=7.064835e-03 rel.dSSE=9.989642e-03
======================            #11 SSE/SSX=7.009994e-03 rel.dSSE=7.823279e-03
======================            #12 SSE/SSX=6.966264e-03 rel.dSSE=6.277346e-03
=======================           #13 SSE/SSX=6.930902e-03 rel.dSSE=5.102096e-03
=======================           #14 SSE/SSX=6.901885e-03 rel.dSSE=4.204157e-03
========================          #15 SSE/SSX=6.877795e-03 rel.dSSE=3.502628e-03
========================          #16 SSE/SSX=6.857444e-03 rel.dSSE=2.967650e-03
=========================         #17 SSE/SSX=6.840094e-03 rel.dSSE=2.536566e-03
=========================         #18 SSE/SSX=6.825153e-03 rel.dSSE=2.189111e-03
=========================         #19 SSE/SSX=6.812255e-03 rel.dSSE=1.893290e-03
==========================        #20 SSE/SSX=6.801089e-03 rel.dSSE=1.641859e-03
==========================        #21 SSE/SSX=6.791383e-03 rel.dSSE=1.429230e-03
==========================        #22 SSE/SSX=6.782913e-03 rel.dSSE=1.248620e-03
===========================       #23 SSE/SSX=6.775505e-03 rel.dSSE=1.093460e-03
===========================       #24 SSE/SSX=6.769015e-03 rel.dSSE=9.587037e-04
===========================       #25 SSE/SSX=6.763331e-03 rel.dSSE=8.403722e-04
============================      #26 SSE/SSX=6.758349e-03 rel.dSSE=7.371698e-04
============================      #27 SSE/SSX=6.753981e-03 rel.dSSE=6.467438e-04
============================      #28 SSE/SSX=6.750150e-03 rel.dSSE=5.675154e-04
=============================     #29 SSE/SSX=6.746792e-03 rel.dSSE=4.977098e-04
=============================     #30 SSE/SSX=6.743852e-03 rel.dSSE=4.360800e-04
=============================     #31 SSE/SSX=6.741279e-03 rel.dSSE=3.815798e-04
==============================    #32 SSE/SSX=6.739032e-03 rel.dSSE=3.334777e-04
> stopifnot(inherits(fitted(f), 'feemcube'))
> stopifnot(inherits(resid(f), 'feemcube'))
> stopifnot(inherits(feemcube(f), 'feemcube'))
> 
> proc.time()
   user  system elapsed 
   9.51    0.50   10.00