# \donttest{
data(LJ_daily_temperatures)
data(KRE_daily_temperatures)
data(example_proxies_1)
Example1 <- daily_response(response = example_proxies_1,
env_data = LJ_daily_temperatures, method = "lm", metric = "r.squared",
lower_limit = 90, upper_limit = 150, row_names_subset = TRUE,
previous_year = TRUE)
plot_specific(Example1, window_width = 90)
Example2 <- daily_response(response = data_TRW_1,
env_data = KRE_daily_temperatures, method = "cor",
metric = "adj.r.squared", lower_limit = 150, upper_limit = 155,
neurons = 1, row_names_subset = TRUE, previous_year = TRUE)
plot_specific(Example2, window_width = 153, title = TRUE)
Example3 <- daily_response(response = example_proxies_1,
env_data = LJ_daily_temperatures, method = "brnn",
metric = "adj.r.squared", lower_limit = 150, upper_limit = 155,
neurons = 1, previous_year = TRUE, row_names_subset = TRUE)
plot_specific(Example3, window_width = 153, title = TRUE)
# }
Run the code above in your browser using DataLab