adnca <- read.csv(system.file("shiny/data/Dummy_data.csv", package = "aNCA"))
# Use actual values from the dummy data for the example
selected_analytes <- head(unique(adnca$ANALYTE), 1)
selected_pcspec <- head(unique(adnca$PCSPEC), 1)
selected_usubjids <- head(unique(adnca$USUBJID), 1)
plot <- general_lineplot(
data = adnca,
selected_analytes = selected_analytes,
selected_pcspec = selected_pcspec,
selected_usubjids = selected_usubjids,
colorby_var = "ATPTREF",
time_scale = "By Cycle",
yaxis_scale = "Log",
cycle = "1",
show_threshold = TRUE,
threshold_value = 1
)
print(plot)
Run the code above in your browser using DataLab