From a8c9871bb623131f4b65ed850f187018e8e66ec4 Mon Sep 17 00:00:00 2001 From: Thomas Guillerme Date: Wed, 13 Nov 2024 16:08:43 +0000 Subject: [PATCH] renamed format function --- R/dispRity.R | 2 +- R/dispRity_fun.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/R/dispRity.R b/R/dispRity.R index 41b6a27b..099ad1b7 100755 --- a/R/dispRity.R +++ b/R/dispRity.R @@ -520,7 +520,7 @@ dispRity <- function(data, metric, dimensions = NULL, ..., between.groups = FALS # } else { # ## Is bootstrapped # for(one_subset in subset_names) { - # disparity[[one_subset]] <- format.results.subsets(disparity[[one_subset]], disparities, one_subset) + # disparity[[one_subset]] <- .format.results.subsets(disparity[[one_subset]], disparities, one_subset) # } # } diff --git a/R/dispRity_fun.R b/R/dispRity_fun.R index 05d520d7..44548c55 100755 --- a/R/dispRity_fun.R +++ b/R/dispRity_fun.R @@ -672,7 +672,7 @@ combine.pairs <- function(pairs, lapply_data) { # } ## Transform BAT results into dispRity format -format.results.subsets <- function(one_subset_lapply, disparities, one_subset) { +.format.results.subsets <- function(one_subset_lapply, disparities, one_subset) { ## Get the results results <- disparities[grepl(one_subset, rownames(disparities)), , drop = FALSE] rownames(results) <- unlist(lapply(strsplit(rownames(results), split = paste0(one_subset, ".")), `[[`, 2))