prepare_data_plot: Prepare the data for the forest plots

In radchukv/adRes: Assessing Whether Phenotypic Changes in Response to Climate are Adaptive

Description

prepare_data_plot prepares the data for the forest plots. This is an internal function used by plot_forest.

Usage

prepare_data_plot(slopes_obj)

Arguments

slopes_obj

A list returned by prepare_slopes that contains the lists with values for the slopes, their confidence intervals and labels.

Value

A dataframe with the information used for plotting.

See Also

plot_forest.

Examples

## Not run: 
nb_cores <- 2L
meta_Sel_phen <- fit_all(data = dat_Sel,
                         temperature = TRUE, precipitation = FALSE,
                         phenology = TRUE, morphology = FALSE,
                         condition = '3', nb_cores = nb_cores,
                         rand_trait = FALSE, fixed = NULL, digit = 3)

meta_Sel_morph <- fit_all(data = dat_Sel,
                          temperature = TRUE, precipitation = FALSE,
                          phenology = FALSE, morphology = TRUE,
                          condition = '3', nb_cores = nb_cores,
                          rand_trait = FALSE, fixed = NULL, digit = 3)

lab1 <- prepare_labels(meta_obj = meta_Sel_phen$meta_res,
                       labels = c(traits = TRUE,
                                  fitness = TRUE,
                                  country = TRUE,
                                  authors = TRUE),
                      sort = c("Species"),
                      increasing = TRUE)

lab2 <-  prepare_labels(meta_obj = meta_Sel_morph$meta_res,
                       labels = c(traits = TRUE,
                                  fitness = TRUE,
                                  country = TRUE,
                                  authors = TRUE),
                      sort = c("Species"),
                      increasing = TRUE)


test1 <- prepare_slopes(meta_obj1 = meta_Sel_phen$meta_res,
                       labels_obj1 = lab1,
                       labels_obj2 = lab2)

test2 <- prepare_slopes(meta_obj1 = meta_Sel_phen$meta_res,
                        meta_obj2 = meta_Sel_morph$meta_res,
                        labels_obj1 = lab1,
                        labels_obj2 = lab2,
                        list_extra_meta_obj = list(meta_Sel_phen$meta_res,
                                                  meta_Sel_morph$meta_res,
                                                  mod_Sel_T_phen_Fitn$meta_res))

test_col_1 <- prepare_colours(test1)
test_col_2 <- prepare_colours(test2)
prep_data_test1 <- prepare_data_plot(test_col_1)
prep_data_test2 <- prepare_data_plot(test_col_2)

## End(Not run)

radchukv/adRes documentation built on June 1, 2019, 7:05 p.m.