# Example usage:
temp_dir <- tempdir()
temp_prefix <- file.path(temp_dir, "output")
input_file <- system.file("extdata", "input.fasta", package = "VIProDesign")
run_VIProDesign(
file = input_file,
output_prefix = temp_prefix,
max_cluster_number = 5,
use_cd_hit = TRUE,
cd_hit_path = "/data/kiryst/conda/envs/VIProDesign/bin/cd-hit",
cutoff = 0.99,
remove_outliers = TRUE
)
# Clean up
unlink(list.files(temp_dir, full.names = TRUE))
Run the code above in your browser using DataLab