diff --git a/tools/waveica/macros.xml b/tools/waveica/macros.xml index 04ba14a83..f42130652 100644 --- a/tools/waveica/macros.xml +++ b/tools/waveica/macros.xml @@ -1,5 +1,5 @@ - 0.2.0 + 0.2.1 diff --git a/tools/waveica/test-data/normalized_data.parquet b/tools/waveica/test-data/normalized_data.parquet index 45cff33e3..465aff468 100644 Binary files a/tools/waveica/test-data/normalized_data.parquet and b/tools/waveica/test-data/normalized_data.parquet differ diff --git a/tools/waveica/test-data/test3_output.parquet b/tools/waveica/test-data/test3_output.parquet index 283301cc0..b2cdd2b44 100644 Binary files a/tools/waveica/test-data/test3_output.parquet and b/tools/waveica/test-data/test3_output.parquet differ diff --git a/tools/waveica/test-data/test9_output1.parquet b/tools/waveica/test-data/test9_output1.parquet index 45cff33e3..465aff468 100644 Binary files a/tools/waveica/test-data/test9_output1.parquet and b/tools/waveica/test-data/test9_output1.parquet differ diff --git a/tools/waveica/waveica.xml b/tools/waveica/waveica.xml index faa662cd2..b160ff308 100644 --- a/tools/waveica/waveica.xml +++ b/tools/waveica/waveica.xml @@ -8,8 +8,8 @@ r-recetox-waveica - r-arrow - r-dplyr + r-arrow + r-dplyr Single batch (or no batch information) - - + + @@ -87,8 +87,8 @@ - - + + @@ -103,8 +103,8 @@ - - + + @@ -119,8 +119,8 @@ - - + + diff --git a/tools/waveica/waveica_wrapper.R b/tools/waveica/waveica_wrapper.R index 7f0bc955b..5261eac1d 100644 --- a/tools/waveica/waveica_wrapper.R +++ b/tools/waveica/waveica_wrapper.R @@ -53,8 +53,8 @@ waveica <- function(data_matrix_file, wavelet_filter, wavelet_length, k, - t, - t2, + batch_threshold, + group_threshold, alpha, exclude_blanks, transpose = FALSE) { @@ -75,7 +75,7 @@ waveica <- function(data_matrix_file, "injectionOrder", "batch" ) - metadata <- dplyr::select(metadata, required_columns) + metadata <- dplyr::select(metadata, all_of(required_columns)) # Ensure both tables have a sampleName column if (!"sampleName" %in% colnames(features) || !"sampleName" %in% colnames(metadata)) { # nolint @@ -113,8 +113,8 @@ waveica <- function(data_matrix_file, batch = batch, group = group, K = k, - t = t, - t2 = t2, + batch_threshold = batch_threshold, + group_threshold = group_threshold, alpha = alpha ) non_feature_columns <- setdiff(colnames(data), feature_columns)