# This is the example workflow:
path_to_tox <- system.file("extdata", package = "toxEval")
file_name <- "OWC_data_fromSup.xlsx"
full_path <- file.path(path_to_tox, file_name)
tox_list <- create_toxEval(full_path)
ACC <- get_ACC(tox_list$chem_info$CAS)
ACC <- remove_flags(ACC)
cleaned_ep <- clean_endPoint_info(end_point_info)
filtered_ep <- filter_groups(cleaned_ep)
chemical_summary <- get_chemical_summary(tox_list, ACC, filtered_ep)
plot_tox_endpoints(chemical_summary,
filterBy = "Cell Cycle",
top_num = 10
)
# \donttest{
plot_tox_endpoints(chemical_summary,
filterBy = "Cell Cycle",
top_num = 10,
x_label = "EAR"
)
plot_tox_endpoints(chemical_summary,
category = "Chemical Class", filterBy = "PAHs",
top_num = 10, hit_threshold = 0.001
)
plot_tox_endpoints(chemical_summary, category = "Chemical", filterBy = "Atrazine")
plot_tox_endpoints(chemical_summary, category = "Chemical", top_num = 10)
single_site <- dplyr::filter(chemical_summary, site == "USGS-04024000")
plot_tox_endpoints(single_site, category = "Chemical", top_num = 10)
# }
Run the code above in your browser using DataLab