# \donttest{
data_path <- system.file("extdata", "sample_data.csv", package = "GPEMR")
params <- list(log_r = 0.7,von_r = 0.3,c=0.2,b=0.1)
comparison_plot(data_path = data_path, window_size = 5, parameter = params,
p_val_method = "Parametric", repetition = 2)# }
Run the code above in your browser using DataLab