| Title: | Neural Network Enhanced STATIS Methodology for Three-Way Data Analysis |
|---|---|
| Description: | Combines Autoencoders with the STATIS (Structuring Three-way Arrays in Statistics) methodology for dimensional reduction and visualization of multi-way data (tables x individuals x variables). |
| Authors: | Felix Miguel Carrera Buri [aut, cre] |
| Maintainer: | Felix Miguel Carrera Buri <[email protected]> |
| License: | GPL-3 |
| Version: | 0.1.0 |
| Built: | 2026-10-14 08:06:13 UTC |
| Source: | https://github.com/fcarrer/neuralstatis |
Neural STATIS: Multivariate Analysis via Autoencoders for Three-Way Data
neural_statis( data, col_tablas, col_individuos, col_variables = NULL, usar_keras = TRUE, q_latent = 5, hidden_units = c(16), epochs = 200, batch_size = 32, seed = 123 )neural_statis( data, col_tablas, col_individuos, col_variables = NULL, usar_keras = TRUE, q_latent = 5, hidden_units = c(16), epochs = 200, batch_size = 32, seed = 123 )
data |
A data frame containing multi-way data. |
col_tablas |
Character. Column name defining the K tables/time points. |
col_individuos |
Character. Column name defining the N individuals. |
col_variables |
Character vector (optional). Selected numerical variables. |
usar_keras |
Logical. Whether to use Keras autoencoder (TRUE) or fall back to PCA (FALSE). |
q_latent |
Integer. Number of latent dimensions. |
|
Numeric vector. Architecture of hidden layers. |
|
epochs |
Integer. Training epochs for the autoencoder. |
batch_size |
Integer. Batch size for training. |
seed |
Integer. Random seed for reproducibility. |
An object of class neural_statis.
# Datos de prueba sintéticos set.seed(123) df_test <- data.frame( tabla = rep(paste0("T", 1:3), each = 20), ind = rep(paste0("I", 1:10), times = 6), var1 = rnorm(60), var2 = rnorm(60) ) # Ejemplo de ejecución rápida res <- neural_statis( data = df_test, col_tablas = "tabla", col_individuos = "ind", usar_keras = FALSE, q_latent = 2 )# Datos de prueba sintéticos set.seed(123) df_test <- data.frame( tabla = rep(paste0("T", 1:3), each = 20), ind = rep(paste0("I", 1:10), times = 6), var1 = rnorm(60), var2 = rnorm(60) ) # Ejemplo de ejecución rápida res <- neural_statis( data = df_test, col_tablas = "tabla", col_individuos = "ind", usar_keras = FALSE, q_latent = 2 )
Plot Method for Neural STATIS
## S3 method for class 'neural_statis' plot(x, n_clusters = 4, ...)## S3 method for class 'neural_statis' plot(x, n_clusters = 4, ...)
x |
An object of class |
n_clusters |
Integer. Number of clusters for macro-trajectories (default = 4). |
... |
Additional graphical parameters. |