# Set file path
filepath <- system.file("extdata", package = "FishDiveR")
# Load pc_results
pc_scores <- readRDS(file.path(filepath, "data/4_PCA/pc_scores.rds"))
# Run combine_data function
combined_stats <- combine_data(
tag_vector = "data",
data_folder = filepath,
pc_scores = pc_scores,
output = TRUE,
output_folder = tempdir(),
verbose = TRUE
)
Run the code above in your browser using DataLab