# NOT RUN {
# find attached dummy data
# }
# NOT RUN {
example <- wrap_function(path = getwd(),
file_name = system.file("extdata", "Virtual_shell.csv",
package = "ShellChron"),
transfer_function = "KimONeil97",
t_int = 1,
T_per = 365,
d18Ow = 0,
t_maxtemp = 182.5,
SCEUApar = c(1, 25, 10000, 5, 0.01, 0.01),
sinfit = TRUE,
MC = 1000,
plot = FALSE,
plot_export = FALSE,
export_raw = FALSE,
export_path = tempdir())
# }
# NOT RUN {
# Run function
# }
Run the code above in your browser using DataLab