Nothing
library(albatross)
data(feems)
f <- feemflame(
feemscale(cube), ffac = 3, sfac = 1,
control.cmf = list(maxit = 4), control.parafac = list(maxit = 2)
)
stopifnot(inherits(fitted(f), 'feemcube'))
stopifnot(inherits(resid(f), 'feemcube'))
stopifnot(inherits(feemcube(f), 'feemcube'))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.