data_file <- system.file("extdata", "mydata.csv", package = "bSi")
output_plot_file <- file.path(tempdir(), "plot1.tiff")
output_csv_file <- file.path(tempdir(), "output.csv")
param <- NULL
value <- NULL
eq.label <- NULL
rr.label <- NULL
. <- NULL
tdgraph(data_file, output_plot_file, output_csv_file,
label_y1 = 0.055, label_y2 = 0.032, param, value, eq.label, rr.label, .)
Run the code above in your browser using DataLab