# Set file path
filepath <- system.file("extdata", package = "FishDiveR")
# Run pca_data function
pc_data <- pca_data(
tag_vector = c("data"),
data_folder = filepath,
phase_mean = FALSE,
phase_variance = FALSE,
power_mean = TRUE,
power_variance = TRUE,
mean_sq_power = FALSE,
amplitude_mean = TRUE,
amplitude_variance = FALSE,
output = TRUE,
output_folder = tempdir(),
verbose = TRUE
)
Run the code above in your browser using DataLab