[R/create_test_simulation_output.R:8:31:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/create_test_simulation_output.R#L8) *style:* **Commas should always have a space after.**
```r
  pars_equal <- c(2.550687345,2.683454548,Inf,0.00933207,1.010073119)
                              ^
```
[R/create_test_simulation_output.R:8:43:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/create_test_simulation_output.R#L8) *style:* **Commas should always have a space after.**
```r
  pars_equal <- c(2.550687345,2.683454548,Inf,0.00933207,1.010073119)
                                          ^
```
[R/create_test_simulation_output.R:8:47:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/create_test_simulation_output.R#L8) *style:* **Commas should always have a space after.**
```r
  pars_equal <- c(2.550687345,2.683454548,Inf,0.00933207,1.010073119)
                                              ^
```
[R/create_test_simulation_output.R:8:58:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/create_test_simulation_output.R#L8) *style:* **Commas should always have a space after.**
```r
  pars_equal <- c(2.550687345,2.683454548,Inf,0.00933207,1.010073119)
                                                         ^
```
[R/DAISIE_area_params.R:15:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_area_params.R#L15) *style:* **functions should have cyclomatic complexity of less than 15, this has 23.**
```r
are_area_params <- function(area_params) {
^
```
[R/DAISIE_area_params.R:32:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_area_params.R#L32) *style:* **Lines should not be more than 80 characters.**
```r
#' @param proportional_peak_t value from 0 to 1 indicating where in the island's history the
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_area_params.R:37:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_area_params.R#L37) *style:* **Lines should not be more than 80 characters.**
```r
#' @return list of numerical values containing area parameters for island ontogeny
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:4:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L4) *style:* **functions should have cyclomatic complexity of less than 15, this has 35.**
```r
are_rates <- function(x) {
^
```
[R/DAISIE_check_format.R:31:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L31) *style:* **Lines should not be more than 80 characters.**
```r
  if (island_ontogeny != "const" && island_ontogeny != "linear" && island_ontogeny != "beta") return(FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:44:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L44) *style:* **Lines should not be more than 80 characters.**
```r
  if (island_ontogeny != 0 && island_ontogeny != 1 && island_ontogeny != 2) return(FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:50:76:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L50) *style:* **Trailing whitespace is superfluous.**
```r
#' @param simulation_outputs A list with matrices and vectors of simulation
                                                                           ^
```
[R/DAISIE_check_format.R:51:27:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L51) *style:* **Trailing whitespace is superfluous.**
```r
#' produced by DAISIE_sim.
                          ^~
```
[R/DAISIE_check_format.R:57:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L57) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^~
```
[R/DAISIE_check_format.R:58:51:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L58) *style:* **Trailing whitespace is superfluous.**
```r
#' expect_false(is_simulation_outputs("nonsense"))
                                                  ^
```
[R/DAISIE_check_format.R:59:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L59) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_check_format.R:60:58:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L60) *style:* **Trailing whitespace is superfluous.**
```r
#' simulation_outputs <- create_test_simulation_outputs()
                                                         ^
```
[R/DAISIE_check_format.R:65:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L65) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/DAISIE_check_format.R:66:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L66) *style:* **Lines should not be more than 80 characters.**
```r
    if (!"island_age" %in% names(simulation_outputs[[n_replicate]][[1]])) return(FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:68:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L68) *style:* **Lines should not be more than 80 characters.**
```r
        !"not_present_type1" %in% names(simulation_outputs[[n_replicate]][[1]]))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:71:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L71) *style:* **Lines should not be more than 80 characters.**
```r
    if (!"stt_all" %in% names(simulation_outputs[[n_replicate]][[1]])) return(FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:73:7:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L73) *style:* **Commented code should be removed.**
```r
    # if (!"branching_times" %in% names(simulation_outputs)) return(FALSE)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:74:7:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L74) *style:* **Commented code should be removed.**
```r
    # if (!"stac" %in% names(simulation_outputs)) return(FALSE)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:75:7:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L75) *style:* **Commented code should be removed.**
```r
    # if (!"missing_species" %in% names(simulation_outputs)) return(FALSE)
      ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_check_format.R:80:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_check_format.R#L80) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/DAISIE_create_island.R:5:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L5) *style:* **Lines should not be more than 80 characters.**
```r
#' @param island_spec matrix with species on island (state of system at each time point)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:7:75:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#' @param keep_final_state logical indicating if final state of simulation
                                                                          ^
```
[R/DAISIE_create_island.R:10:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L10) *style:* **Lines should not be more than 80 characters.**
```r
#' @return list with the island information, composed stt table, branching times of extant
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:12:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L12) *style:* **Variable and function name style should be snake_case.**
```r
DAISIE_create_island <- function(stt_table,
^~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:12:44:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
DAISIE_create_island <- function(stt_table,
                                           ^
```
[R/DAISIE_create_island.R:13:44:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L13) *style:* **Trailing whitespace is superfluous.**
```r
                                 totaltime,
                                           ^
```
[R/DAISIE_create_island.R:14:46:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L14) *style:* **Trailing whitespace is superfluous.**
```r
                                 island_spec,
                                             ^
```
[R/DAISIE_create_island.R:17:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L17) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/DAISIE_create_island.R:18:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
  ### if there are no species on the island branching_times = island_age, stac = 0, missing_species = 0
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:18:104:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L18) *style:* **Trailing whitespace is superfluous.**
```r
  ### if there are no species on the island branching_times = island_age, stac = 0, missing_species = 0
                                                                                ^
```
[R/DAISIE_create_island.R:19:27:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L19) *style:* **Commas should always have a space after.**
```r
  if (length(island_spec[,1]) == 0) {
                          ^
```
[R/DAISIE_create_island.R:20:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L20) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/DAISIE_create_island.R:21:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L21) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/DAISIE_create_island.R:41:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L41) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/DAISIE_create_island.R:43:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L43) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/DAISIE_create_island.R:45:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L45) *style:* **Lines should not be more than 80 characters.**
```r
    island_spec[, "branching time (BP)"] <- totaltime - as.numeric(island_spec[, "branching time (BP)"])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:46:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L46) *style:* **Lines should not be more than 80 characters.**
```r
    island_spec[, "Colonisation time (BP)"] <- totaltime - as.numeric(island_spec[, "Colonisation time (BP)"])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:47:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L47) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/DAISIE_create_island.R:54:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L54) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/DAISIE_create_island.R:56:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L56) *style:* **Lines should not be more than 80 characters.**
```r
      colonists_present <- sort(as.numeric(unique(island_spec[, 'Mainland Ancestor'])))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:56:65:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L56) *style:* **Only use double-quotes.**
```r
      colonists_present <- sort(as.numeric(unique(island_spec[, 'Mainland Ancestor'])))
                                                                ^~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:57:60:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L57) *style:* **Trailing whitespace is superfluous.**
```r
      number_colonists_present <- length(colonists_present)
                                                           ^
```
[R/DAISIE_create_island.R:58:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L58) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/DAISIE_create_island.R:59:35:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L59) *style:* **Trailing whitespace is superfluous.**
```r
      island_clades_info <- list()
                                  ^~
```
[R/DAISIE_create_island.R:61:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L61) *style:* **Lines should not be more than 80 characters.**
```r
        subset_island <- island_spec[which(island_spec[, 'Mainland Ancestor'] == colonists_present[i]),]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:61:58:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L61) *style:* **Only use double-quotes.**
```r
        subset_island <- island_spec[which(island_spec[, 'Mainland Ancestor'] == colonists_present[i]),]
                                                         ^~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:61:104:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L61) *style:* **Commas should always have a space after.**
```r
        subset_island <- island_spec[which(island_spec[, 'Mainland Ancestor'] == colonists_present[i]),]
                                                                                ^
```
[R/DAISIE_create_island.R:61:105:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L61) *style:* **Trailing whitespace is superfluous.**
```r
        subset_island <- island_spec[which(island_spec[, 'Mainland Ancestor'] == colonists_present[i]),]
                                                                                ^
```
[R/DAISIE_create_island.R:62:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L62) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~~~
```
[R/DAISIE_create_island.R:63:37:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L63) *style:* **Only use double-quotes.**
```r
        if (class(subset_island) != 'matrix') {
                                    ^~~~~~~~
```
[R/DAISIE_create_island.R:67:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L67) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~~~
```
[R/DAISIE_create_island.R:69:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
                                                      island_spec = subset_island,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:71:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L71) *style:* **Lines should not be more than 80 characters.**
```r
                                                      keep_final_state = keep_final_state)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:77:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L77) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~~~
```
[R/DAISIE_create_island.R:80:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L80) *style:* **Lines should not be more than 80 characters.**
```r
                       taxon_list = island_clades_info, island_spec = island_spec)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_create_island.R:84:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_create_island.R#L84) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/DAISIE_data.R:2:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L2) *style:* **Lines should not be more than 80 characters.**
```r
#' @title Colonization and branching times of 8 terrestrial avifaunal clades in list
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:7:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L7) *style:* **Lines should not be more than 80 characters.**
```r
#' #' @description A list containing the colonization and branching times of the terrestrial
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:12:34:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
#' the following elements.\cr \cr
                                 ^
```
[R/DAISIE_data.R:47:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L47) *style:* **Lines should not be more than 80 characters.**
```r
#' @title Colonization and branching times of 8 terrestrial avifaunal clades in list
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:52:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L52) *style:* **Lines should not be more than 80 characters.**
```r
#' @description A list containing the colonization and branching times of the terrestrial
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:92:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L92) *style:* **Lines should not be more than 80 characters.**
```r
#' @title Colonization and branching times of 8 terrestrial avifaunal clades in table
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:96:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L96) *style:* **Lines should not be more than 80 characters.**
```r
#' @description A table containing the colonization and branching times of the terrestrial
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:103:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L103) *style:* **Lines should not be more than 80 characters.**
```r
#' * Non_endemic: for cases where both island and non-island populations of the species have been sampled) \cr
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:104:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L104) *style:* **Lines should not be more than 80 characters.**
```r
#' * Non_endemic_MaxAge: for cases where island population of the species has not
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:124:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L124) *style:* **Lines should not be more than 80 characters.**
```r
#' @title 1000 islands in RAW format simulated with the ML parameters of the CR model
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:125:27:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L125) *style:* **Trailing whitespace is superfluous.**
```r
#' for the Galapagos data.
                          ^
```
[R/DAISIE_data.R:127:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L127) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Each simulated dataset is an element of the list, which can be called using
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:158:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L158) *style:* **Lines should not be more than 80 characters.**
```r
#' @title 1000 islands in DAISIE format simulated with the ML parameters of the CR
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:161:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L161) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Each simulated dataset is an element of the list, which can be called using
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:165:42:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L165) *style:* **Trailing whitespace is superfluous.**
```r
#' \code{$island_age} - the island age\cr
                                         ^
```
[R/DAISIE_data.R:197:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L197) *style:* **Lines should not be more than 80 characters.**
```r
#' @description Each simulated dataset is an element of the list, which can be called using
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:247:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L247) *style:* **Lines should not be more than 80 characters.**
```r
#' @description A list containing the colonization and branching times of the terrestrial
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:256:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L256) *style:* **Lines should not be more than 80 characters.**
```r
#' The following elements of the list each contains information on a single colonist lineage
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:270:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L270) *style:* **Lines should not be more than 80 characters.**
```r
#' #' \code{$missing_species} - number of island species that were not sampled for
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:286:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L286) *style:* **Lines should not be more than 80 characters.**
```r
#' format, accepted by DAISIE_ML, DAISIE_SR_ML, DAISIE_loglik_all and DAISIE_SR_loglik_all
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:290:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L290) *style:* **Lines should not be more than 80 characters.**
```r
#' #' @description A list containing the colonization and branching times of the
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:290:81:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L290) *style:* **Trailing whitespace is superfluous.**
```r
#' #' @description A list containing the colonization and branching times of the
                                                                                ^
```
[R/DAISIE_data.R:295:34:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L295) *style:* **Trailing whitespace is superfluous.**
```r
#' the following elements.\cr \cr
                                 ^
```
[R/DAISIE_data.R:321:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L321) *style:* **Lines should not be more than 80 characters.**
```r
#' @seealso \code{\link{DAISIE_dataprep}}, \code{\link{DAISIE_ML}}, \code{\link{DAISIE_SR_ML}}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_data.R:322:77:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_data.R#L322) *style:* **Trailing whitespace is superfluous.**
```r
#' @source Hauffe, T., D. Delicado, R.S. Etienne and L. Valente (submitted).
                                                                            ^
```
[R/DAISIE_dataprep.R:2:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L2) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:7:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L7) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:10:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L10) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:86:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L86) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^~
```
[R/DAISIE_dataprep.R:87:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L87) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:88:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L88) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:89:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L89) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:90:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L90) *style:* **Lines should not be more than 80 characters.**
```r
#' ### Create Galapagos data object where all taxa have the same macroevolutionary process
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:91:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L91) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:98:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L98) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:100:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L100) *style:* **Lines should not be more than 80 characters.**
```r
#' # for the Darwin's finches. One process applies to type 1 species (all species
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:100:82:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L100) *style:* **Trailing whitespace is superfluous.**
```r
#' # for the Darwin's finches. One process applies to type 1 species (all species
                                                                                ^
```
[R/DAISIE_dataprep.R:101:79:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L101) *style:* **Trailing whitespace is superfluous.**
```r
#' # except for Darwin's finches) and the other applies only to type 2 species
                                                                              ^
```
[R/DAISIE_dataprep.R:104:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L104) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:113:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L113) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:114:80:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L114) *style:* **Trailing whitespace is superfluous.**
```r
#' ### Create Galapagos data object with a distinct macroevolutionary processes
                                                                               ^
```
[R/DAISIE_dataprep.R:115:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L115) *style:* **Lines should not be more than 80 characters.**
```r
#' # for the Darwin's finches. One process applies to type 1 species (all species
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:116:79:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L116) *style:* **Trailing whitespace is superfluous.**
```r
#' # except for Darwin's finches) and the other applies only to type 2 species
                                                                              ^
```
[R/DAISIE_dataprep.R:117:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L117) *style:* **Lines should not be more than 80 characters.**
```r
#' # (Darwin's finches). Set fraction of potential colonists of type 2 to be 0.163.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:118:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L118) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:128:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L128) *style:* **Trailing whitespace is superfluous.**
```r
#'
  ^
```
[R/DAISIE_dataprep.R:130:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **functions should have cyclomatic complexity of less than 15, this has 22.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
^
```
[R/DAISIE_dataprep.R:130:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Lines should not be more than 80 characters.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:130:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Variable and function name style should be snake_case.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
^~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:130:17:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Use <-, not =, for assignment.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
                ^
```
[R/DAISIE_dataprep.R:130:38:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Commas should always have a space after.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
                                     ^
```
[R/DAISIE_dataprep.R:130:49:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Commas should always have a space after.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
                                                ^
```
[R/DAISIE_dataprep.R:130:49:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Variable and function name style should be snake_case.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
                                                ^
```
[R/DAISIE_dataprep.R:130:51:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Commas should always have a space after.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
                                                  ^
```
[R/DAISIE_dataprep.R:130:74:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Commas should always have a space after.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
                                                                         ^
```
[R/DAISIE_dataprep.R:130:131:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L130) *style:* **Commas should always have a space after.**
```r
DAISIE_dataprep = function(datatable,island_age,M,number_clade_types = 1,list_type2_clades = NA, prop_type2_pool = "proportional",epss = 1E-5)
                                                                                ^
```
[R/DAISIE_dataprep.R:131:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L131) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
{
^
```
[R/DAISIE_dataprep.R:132:24:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L132) *style:* **Use <-, not =, for assignment.**
```r
  number_colonisations = nrow(datatable)
                       ^
```
[R/DAISIE_dataprep.R:133:12:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L133) *style:* **Use <-, not =, for assignment.**
```r
  datalist = list()
           ^
```
[R/DAISIE_dataprep.R:134:13:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L134) *style:* **Variable and function name style should be snake_case.**
```r
  datatable$Missing_species<-as.numeric(as.character(datatable$Missing_species))
            ^~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:134:28:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L134) *style:* **Put spaces around all infix operators.**
```r
  datatable$Missing_species<-as.numeric(as.character(datatable$Missing_species))
                          ~^~~
```
[R/DAISIE_dataprep.R:135:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L135) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/DAISIE_dataprep.R:136:5:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L136) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(number_clade_types == 1)
    ^
```
[R/DAISIE_dataprep.R:137:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L137) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/DAISIE_dataprep.R:138:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L138) *style:* **Lines should not be more than 80 characters.**
```r
    datalist[[1]] = list(island_age=island_age,not_present=(M - number_colonisations))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:138:19:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L138) *style:* **Use <-, not =, for assignment.**
```r
    datalist[[1]] = list(island_age=island_age,not_present=(M - number_colonisations))
                  ^
```
[R/DAISIE_dataprep.R:138:36:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L138) *style:* **Put spaces around all infix operators.**
```r
    datalist[[1]] = list(island_age=island_age,not_present=(M - number_colonisations))
                                  ~^~
```
[R/DAISIE_dataprep.R:138:48:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L138) *style:* **Commas should always have a space after.**
```r
    datalist[[1]] = list(island_age=island_age,not_present=(M - number_colonisations))
                                               ^
```
[R/DAISIE_dataprep.R:138:59:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L138) *style:* **Put spaces around all infix operators.**
```r
    datalist[[1]] = list(island_age=island_age,not_present=(M - number_colonisations))
                                                         ~^~
```
[R/DAISIE_dataprep.R:138:60:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L138) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    datalist[[1]] = list(island_age=island_age,not_present=(M - number_colonisations))
                                                           ^
```
[R/DAISIE_dataprep.R:140:5:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L140) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(number_clade_types == 2)
    ^
```
[R/DAISIE_dataprep.R:141:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L141) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/DAISIE_dataprep.R:142:32:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L142) *style:* **Use <-, not =, for assignment.**
```r
    number_type2_colonisations = length(list_type2_clades)
                               ^
```
[R/DAISIE_dataprep.R:143:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L143) *style:* **Lines should not be more than 80 characters.**
```r
    number_type1_colonisations = number_colonisations - number_type2_colonisations
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:143:32:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L143) *style:* **Use <-, not =, for assignment.**
```r
    number_type1_colonisations = number_colonisations - number_type2_colonisations
                               ^
```
[R/DAISIE_dataprep.R:145:5:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L145) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    {
    ^
```
[R/DAISIE_dataprep.R:146:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L146) *style:* **Lines should not be more than 80 characters.**
```r
      not_present_type1 = DDD::roundn((M/number_colonisations) * number_type1_colonisations) - number_type1_colonisations
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:146:25:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L146) *style:* **Use <-, not =, for assignment.**
```r
      not_present_type1 = DDD::roundn((M/number_colonisations) * number_type1_colonisations) - number_type1_colonisations
                        ^
```
[R/DAISIE_dataprep.R:146:41:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L146) *style:* **Put spaces around all infix operators.**
```r
      not_present_type1 = DDD::roundn((M/number_colonisations) * number_type1_colonisations) - number_type1_colonisations
                                       ~^~
```
[R/DAISIE_dataprep.R:147:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L147) *style:* **Lines should not be more than 80 characters.**
```r
      not_present_type2 = DDD::roundn((M/number_colonisations) * number_type2_colonisations) - number_type2_colonisations
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:147:25:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L147) *style:* **Use <-, not =, for assignment.**
```r
      not_present_type2 = DDD::roundn((M/number_colonisations) * number_type2_colonisations) - number_type2_colonisations
                        ^
```
[R/DAISIE_dataprep.R:147:41:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L147) *style:* **Put spaces around all infix operators.**
```r
      not_present_type2 = DDD::roundn((M/number_colonisations) * number_type2_colonisations) - number_type2_colonisations
                                       ~^~
```
[R/DAISIE_dataprep.R:149:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L149) *style:* **Lines should not be more than 80 characters.**
```r
      not_present_type1 = DDD::roundn(M * (1 - prop_type2_pool)) - number_type1_colonisations
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:149:25:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L149) *style:* **Use <-, not =, for assignment.**
```r
      not_present_type1 = DDD::roundn(M * (1 - prop_type2_pool)) - number_type1_colonisations
                        ^
```
[R/DAISIE_dataprep.R:150:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L150) *style:* **Lines should not be more than 80 characters.**
```r
      not_present_type2 = DDD::roundn(M * prop_type2_pool) - number_type2_colonisations
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:150:25:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L150) *style:* **Use <-, not =, for assignment.**
```r
      not_present_type2 = DDD::roundn(M * prop_type2_pool) - number_type2_colonisations
                        ^
```
[R/DAISIE_dataprep.R:152:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L152) *style:* **Lines should not be more than 80 characters.**
```r
    datalist[[1]] = list(island_age = island_age, not_present_type1 = not_present_type1, not_present_type2 = not_present_type2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:152:19:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L152) *style:* **Use <-, not =, for assignment.**
```r
    datalist[[1]] = list(island_age = island_age, not_present_type1 = not_present_type1, not_present_type2 = not_present_type2)
                  ^
```
[R/DAISIE_dataprep.R:155:3:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L155) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/DAISIE_dataprep.R:156:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L156) *style:* **Lines should not be more than 80 characters.**
```r
    datalist[[i + 1]] = list(colonist_name = as.character(datatable[i,"Clade_name"]),branching_times = NA,stac = NA,missing_species = datatable[i,"Missing_species"], type1or2 = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:156:23:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L156) *style:* **Use <-, not =, for assignment.**
```r
    datalist[[i + 1]] = list(colonist_name = as.character(datatable[i,"Clade_name"]),branching_times = NA,stac = NA,missing_species = datatable[i,"Missing_species"], type1or2 = 1)
                      ^
```
[R/DAISIE_dataprep.R:156:71:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L156) *style:* **Commas should always have a space after.**
```r
    datalist[[i + 1]] = list(colonist_name = as.character(datatable[i,"Clade_name"]),branching_times = NA,stac = NA,missing_species = datatable[i,"Missing_species"], type1or2 = 1)
                                                                      ^
```
[R/DAISIE_dataprep.R:156:86:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L156) *style:* **Commas should always have a space after.**
```r
    datalist[[i + 1]] = list(colonist_name = as.character(datatable[i,"Clade_name"]),branching_times = NA,stac = NA,missing_species = datatable[i,"Missing_species"], type1or2 = 1)
                                                                                ^
```
[R/DAISIE_dataprep.R:156:107:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L156) *style:* **Commas should always have a space after.**
```r
    datalist[[i + 1]] = list(colonist_name = as.character(datatable[i,"Clade_name"]),branching_times = NA,stac = NA,missing_species = datatable[i,"Missing_species"], type1or2 = 1)
                                                                                ^
```
[R/DAISIE_dataprep.R:156:117:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L156) *style:* **Commas should always have a space after.**
```r
    datalist[[i + 1]] = list(colonist_name = as.character(datatable[i,"Clade_name"]),branching_times = NA,stac = NA,missing_species = datatable[i,"Missing_species"], type1or2 = 1)
                                                                                ^
```
[R/DAISIE_dataprep.R:156:147:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L156) *style:* **Commas should always have a space after.**
```r
    datalist[[i + 1]] = list(colonist_name = as.character(datatable[i,"Clade_name"]),branching_times = NA,stac = NA,missing_species = datatable[i,"Missing_species"], type1or2 = 1)
                                                                                ^
```
[R/DAISIE_dataprep.R:157:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L157) *style:* **Lines should not be more than 80 characters.**
```r
    the_brts = rev(sort(as.numeric(unlist(strsplit(as.character(datatable[i,"Branching_times"]),split = ",")))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:157:14:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L157) *style:* **Use <-, not =, for assignment.**
```r
    the_brts = rev(sort(as.numeric(unlist(strsplit(as.character(datatable[i,"Branching_times"]),split = ",")))))
             ^
```
[R/DAISIE_dataprep.R:157:77:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L157) *style:* **Commas should always have a space after.**
```r
    the_brts = rev(sort(as.numeric(unlist(strsplit(as.character(datatable[i,"Branching_times"]),split = ",")))))
                                                                            ^
```
[R/DAISIE_dataprep.R:157:97:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L157) *style:* **Commas should always have a space after.**
```r
    the_brts = rev(sort(as.numeric(unlist(strsplit(as.character(datatable[i,"Branching_times"]),split = ",")))))
                                                                                ^
```
[R/DAISIE_dataprep.R:158:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L158) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/DAISIE_dataprep.R:159:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Lines should not be more than 80 characters.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:159:7:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
      ^
```
[R/DAISIE_dataprep.R:159:21:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Put spaces around all infix operators.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                   ~^~
```
[R/DAISIE_dataprep.R:159:33:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                ^
```
[R/DAISIE_dataprep.R:159:46:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Only use double-quotes.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                             ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:159:70:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Commas should always have a space after.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                     ^
```
[R/DAISIE_dataprep.R:159:84:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Commas should always have a space after.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^
```
[R/DAISIE_dataprep.R:159:84:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Only use double-quotes.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^~~~~~~
```
[R/DAISIE_dataprep.R:159:92:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Commas should always have a space after.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^
```
[R/DAISIE_dataprep.R:159:117:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Commas should always have a space after.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^
```
[R/DAISIE_dataprep.R:159:132:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Commas should always have a space after.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^
```
[R/DAISIE_dataprep.R:159:132:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Only use double-quotes.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:159:160:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Commas should always have a space after.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^
```
[R/DAISIE_dataprep.R:159:163:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Put spaces around all infix operators.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ~^~
```
[R/DAISIE_dataprep.R:159:164:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Only use double-quotes.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^~
```
[R/DAISIE_dataprep.R:159:168:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L159) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
    if(max(the_brts)>island_age){print(paste('Colonisation time of ',max(the_brts),' for ',as.character(datatable[i,"Clade_name"]),' is older than island age',sep=''))}
                                                                                ^
```
[R/DAISIE_dataprep.R:160:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L160) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[R/DAISIE_dataprep.R:161:7:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L161) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(the_brts) == 1)
      ^
```
[R/DAISIE_dataprep.R:161:30:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L161) *style:* **Trailing whitespace is superfluous.**
```r
    if(length(the_brts) == 1)
                             ^
```
[R/DAISIE_dataprep.R:162:5:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L162) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    {
    ^
```
[R/DAISIE_dataprep.R:163:1:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L163) *style:* **Lines should not be more than 80 characters.**
```r
      datalist[[i + 1]]$branching_times = c(island_age,min(the_brts,island_age - epss))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/DAISIE_dataprep.R:163:41:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L163) *style:* **Use <-, not =, for assignment.**
```r
      datalist[[i + 1]]$branching_times = c(island_age,min(the_brts,island_age - epss))
                                        ^
```
[R/DAISIE_dataprep.R:163:56:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L163) *style:* **Commas should always have a space after.**
```r
      datalist[[i + 1]]$branching_times = c(island_age,min(the_brts,island_age - epss))
                                                       ^
```
[R/DAISIE_dataprep.R:163:69:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L163) *style:* **Commas should always have a space after.**
```r
      datalist[[i + 1]]$branching_times = c(island_age,min(the_brts,island_age - epss))
                                                                    ^
```
[R/DAISIE_dataprep.R:165:7:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L165) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(length(the_brts) > 1)
      ^
```
[R/DAISIE_dataprep.R:165:29:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L165) *style:* **Trailing whitespace is superfluous.**
```r
    if(length(the_brts) > 1)
                            ^~
```
[R/DAISIE_dataprep.R:166:5:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L166) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    {
    ^
```
[R/DAISIE_dataprep.R:167:41:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L167) *style:* **Use <-, not =, for assignment.**
```r
      datalist[[i + 1]]$branching_times = c(island_age,the_brts)
                                        ^
```
[R/DAISIE_dataprep.R:167:56:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L167) *style:* **Commas should always have a space after.**
```r
      datalist[[i + 1]]$branching_times = c(island_age,the_brts)
                                                       ^
```
[R/DAISIE_dataprep.R:169:7:](https://github.com/rsetienne/DAISIE/blob/b9d73e70bd79fe89b73c35575bbb6b875ca152f9/R/DAISIE_dataprep.R#L169) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(datatable[i,"Status"] == "Non_endemic_MaxAge")
      ^
```


Ras/Carlo?/block/guests/main-accessability/Details/fragments/Data logger.java/disabled/packages/maintenance


ffffffffffffffffffffff


Now could not deploy this pull request since it contains the following references to invalid secrets in the `env` sections of the `now.json` file:

* `pkey-secret` (in env: `PKEY)`

Add those secrets or remove them from the `env` maps in the `now.json` file.


Thanks


Successfully aliased the URL <https://docs-b1gblh4qm.zeit.sh> to the following aliases:

* https://docs.zeit.sh
* https://docs-git-master.zeit.sh


@VelocityRa
Thank you for all that work)))) You are a genious.


Successfully aliased the URL <https://portfoliosite-1d83fdsrd.now.sh> to the following aliases:

* https://simontaggart.com
* https://www.simontaggart.com
* https://portfoliosite.sitaggart.now.sh
* https://portfoliosite-git-master.sitaggart.now.sh


Successfully aliased the URL <https://main-site-q51qyvd97.now.sh> to the following aliases:

* https://fcc-mcr.now.sh
* https://main-site.fcc-mcr.now.sh
* https://main-site-git-master.fcc-mcr.now.sh


Shouldn't this line be executed before the APPPATH\Common.php ?
Like it is now, I don't think APPPATH\Common will override any original method


[](url)


Why do you remove the check? Without the check it is throwing ClassCastException.
I am trying to integrate RedissonSessionManager with tomcat 7, and I see already the ClassCastException in the logs.
e.g.
`java.lang.ClassCastException: org.apache.catalina.session.StandardManager cannot be cast to org.redisson.tomcat.RedissonSessionManager`


I agree that the second variant is more elegant and might have a little smaller callstack, but they are pretty much equivalent when it comes to enumerable handling complexity.
https://dotnetfiddle.net/6FbB7u


There were the following issues with your Pull Request

  * Subject needs to conform to "%{type} #%{issue_number}: %{description}"

Guidelines are available at https://github.com/OpenNebula/one/blob/master/share/doc/dev/COMMIT_MESSAGES.md

---
This message was auto-generated by https://gitcop.com


BTW, this is also exactly what the _lodash_ function `pick()` does:

```suggestion
			const stripped = map.items.map( ( f ) => _.pick( f, [ 'family', 'variants', 'category' ] ) );
```

I know _lodash_ isn't imported currently, but it's a bit more compact.

It's always annoyed me there isn't a clean way to do this using native JS. An alternative approach is to de-/restruct it:

```suggestion
			const stripped = map.items.map( ( { family, variants, category } ) => ( { family, variants, category } ) );
```

But it just looks weird - like the identity function without being that at all.


Successfully aliased the URL <https://programming-20-euu27nrtl.now.sh> to the following aliases:

* https://programming-20.now.sh
* https://programming-20.mooc.now.sh
* https://programming-20-git-master.mooc.now.sh


Successfully aliased the URL <https://main-site-ljqp96kdn.now.sh> to the following aliases:

* https://fcc-mcr.now.sh
* https://main-site.fcc-mcr.now.sh
* https://main-site-git-master.fcc-mcr.now.sh


nothing


I think we are missing an error use case:  if some code creates the device and tries to enable the temperature trans before opening the device.
A more robust behavior would be:
- if the input flag `enable` is `False` ("disable" case) AND `GET_privData(mPriv).res==nullptr` then return `True` (instead of false), eventually with a warning saying that the device was never opened and temperature doesn't need to be disabled.
- if the input flag `enable` is `True` ("enable" case) AND `GET_privData(mPriv).res==nullptr` then return `False` after triggering an Error (device was never opened).


# Specs execution successful
:scroll: [View logs](http://bamboo.comnull)
### Plans updated

Bamboo specs have been successfully imported and the following plans have been updated.

Project | Plan | Build
---|---|---
[Test](http://bamboo.com/browse/TEST) | [Comment test](http://bamboo.com/browse/TEST-CTEST)  | :white_check_mark: [\#1](http://bamboo.com/browse/TEST-CTEST-1)
[New project](http://bamboo.com/browse/NEW) | [Disabled plan](http://bamboo.com/browse/NEW-DISABLED) **disabled** | :white_check_mark: [\#1](http://bamboo.com/browse/NEW-DISABLED-1)

### Deployments updated

Bamboo specs have been successfully imported and the following deployment projects have been updated.

|Deployment project |
----|
[Deployment test](http://bamboo.com/deploy/viewDeploymentProjectVersions.action?id=2162689)|


Координаты не являются неправильными. Вывод, который должен быть сделан в данном случае, - **Не существует прямоугольника с вершинами ({x1};{y1}), ({x2};{y2}) и ({x3};{y3}), стороны которого параллельны осям координат**.
Данный ответ нужно вывести на экран один раз.


Successfully aliased the URL <https://network-8d4s4e6jf.now.sh> to the following aliases:

* https://*.typi.tk
* https://*.0.typi.tk
* https://network.ooh.now.sh
* https://network-git-master.ooh.now.sh


changing font crashes as system_server is not allowed to set proper

        // Notify zygote that themes need a refresh
        SystemProperties.set("sys.refresh_theme", "1");


@Neves-P: this is great! @lintr-bot now gives more relevant comments!


Successfully aliased the URL <https://www-96tpmvz0z.now.sh> to the following aliases:

* https://www.proux.net
* https://www.proux.now.sh
* https://www-git-master.proux.now.sh


<details>

<summary>Submitting the task to Taskcluster failed. Details</summary>

Schema Validation Failed!
Rejecting Schema: https://schemas.taskcluster.net/queue/v1/create-task-request.json#
Errors:
  * data.metadata.owner should match format "email"

---

* method:     createTask
* errorCode:  InputValidationError
* statusCode: 400
* time:       2019-09-02T10:32:19.711Z

</details>


Successfully aliased the URL <https://hitlify-awk9lmg9b.now.sh> to the following aliases:

* https://hitlify.now.sh
* https://hitlify.caglarturali.now.sh
* https://hitlify-git-master.caglarturali.now.sh


Successfully aliased the URL <https://nextjs-dl6eqssfu.now.sh> to the following aliases:

* https://nextjs.eremija.now.sh
* https://nextjs-git-master.eremija.now.sh


Откуда взался `$payments`?


スカイツリーにしたよ


Аналогичный вопрос.


Successfully aliased the URL <https://website-n9grasjmv.now.sh> to the following aliases:

* https://iamgeorge.dev
* https://website.george13.now.sh
* https://website-git-master.george13.now.sh


Successfully aliased the URL <https://alepachecome-pxri2k3ib.now.sh> to the following aliases:

* https://www.alepacheco.me
* https://alepachecome.alepacheco.now.sh
* https://alepachecome-git-master.alepacheco.now.sh


создаётся массив id -> сумма в этом методе создаётся этот массив


Hacker.


Why did you remove this? Personally, I like the clean style of a tool window.


@vinutv Good catch! :-)


Huge update.


Это code duplicate, всё тоже самое что и выше формируется массив id => сумма


Thanks, @jbduncan! It seems I've trained myself really well to not read comments so I never notice when they become out of date. 😅


Any issues with that approach?


инвертируй логику проверки, и убери continue


Please note: Rexogamer only has a capital R.


This fixes the symptoms rather than the cause. My mistake was, that the fast-path (which I mentioned in the comment) has the check `... < maxFragmentSize` while the `break` condition reads `... > maxFragmentSize`. This leaves out the case of `... == maxFragmentSize`. If I'm not much mistaken, it should suffice to change the fast-path condition to `... <= maxFragmentSize`.

What test code did you use to trigger this bug? I would like to see it to check if my assessment is correct.


Successfully aliased the URL <https://network-actatsrl9.now.sh> to the following aliases:

* https://*.typi.tk
* https://*.0.typi.tk
* https://network.ooh.now.sh
* https://network-git-master.ooh.now.sh


MakeCacheMatrix :A pair of functions that cache the inverse of a matrix
This function creates a special "matrix" object that can cache its inverse.


Hello Guys its for learning purpose


fixes #1902


Dear @jasonwynn10,
> I regret to inform you that your plugin "**GitRollbacks**" (v1.0.0-beta submitted on 2019-09-01T04:39:22.000Z) has been rejected.

C1b — Stay in your namespace:
> All classes, interfaces and traits declared by plugins must be under this unique namespace (or subnamespaces). This includes libraries bundled with the plugin. Consider using the [virion framework](https://poggit.pmmp.io/virion), which provides a convenient way of shading libraries (i.e. refactoring libraries into your plugins namespace).

Please resolve these issues and submit the plugin again.

> This comment is posted here because this is the last commit when the released build was created.


uncomment 199 line to test old begavior


I don't care about dying, I'm suffering 🙏 like a bitch. For people who hate me and want My life. They live through the Tribulation period, bunch of big babies. My own people are bullying me for loving God


worker: python bot.py


Сервисный слой не должен знать о типе реквеста, инициатором его вызова может быть и консольная команда.


Successfully aliased the URL <https://nextjs-djd9jlg1o.now.sh> to the following aliases:

* https://nextjs.eremija.now.sh
* https://nextjs-git-master.eremija.now.sh


Successfully aliased the URL <https://network-313kfqpx9.now.sh> to the following aliases:

* https://*.typi.tk
* https://*.0.typi.tk
* https://network.ooh.now.sh
* https://network-git-master.ooh.now.sh


Successfully aliased the URL <https://pepega-h4p166spn.now.sh> to the following aliases:

* https://pepega.com
* https://pepega.sygeman.now.sh
* https://pepega-git-master.sygeman.now.sh


could this be replaced with [`Regex.Escape(pattern)`](https://docs.microsoft.com/en-us/dotnet/api/system.text.regularexpressions.regex.escape?view=netframework-4.8)?


Successfully aliased the URL <https://nextjs-kqitbcb31.now.sh> to the following aliases:

* https://nextjs.eremija.now.sh
* https://nextjs-git-master.eremija.now.sh


MERGE


I would rather see check for expected count of successfully validated after foreach on line 50 and 74... this way the "expected" number varies and it should rather be atomic static number...anyway expected result should be final number and test should be modified.


delete


Successfully aliased the URL <https://namae-4p1m9epyr.now.sh> to the following aliases:

* https://namae.dev
* https://namae.uechi.now.sh
* https://namae-git-master.uechi.now.sh


This is my new Facebook page, I have adapted to My suffering 🙏, but it's not supposed to be this way, stupid is as the people who believe that it's okay to continue to disbelief the words of the Lord of Truth. Hell yes we're going to be free from the Oppresser of the people.


back


Successfully aliased the URL <https://hitlify-48d43ojgj.now.sh> to the following aliases:

* https://hitlify.now.sh
* https://hitlify.caglarturali.now.sh
* https://hitlify-git-master.caglarturali.now.sh


Я бы поменял 24 и 26 местами, без суммирования, просто установкой элемента. Или могут быть однаковые индексы в этом массиве?


@hamdido Is there any way to reproduce it?


It’s the opposite: commands don’t override/replace, it’s whichever is loaded first that takes precedence. Both Common files use `if (! function_exists(` before defining their functions so loading the version from **App** first is the way to go.


Successfully aliased the URL <https://nikoheikkilafi-qp8r0snms.now.sh> to the following aliases:

* https://nikoheikkila.fi
* https://nikoheikkilafi.njh.now.sh
* https://nikoheikkilafi-git-master.njh.now.sh


Homeless and no vehicle and I have to find any way I can to preserve the words of the Lord and His creation and mission for the coming Millennial Kingdom of the Messiah.


Curious. Looks like `GdkEvent` can handle signals despite not being a `GObject` since it is a union whose members (like `GdkEventKey`) are `GObject` types.

Gtk does make `GdkEvent` a `GObject` in the Gtk4 pre-release 3.93.0.

Don't know what the best strategy is. Let's make it an issue, post 0.2.0. When I get a chance, I'll scan the major typelibs for similar cases.


:white_check_mark: All Rules (3 / 3) Passed

      :crown: Good job! this pull request is aligned with your organization's best practices!

      :point_right: You can review your rules settings at smart policy management :point_left:

:point_right: click here to view a full list of the events :point_left:


Successfully aliased the URL <https://hitlify-1v7nu8upi.now.sh> to the following aliases:

* https://hitlify.now.sh
* https://hitlify.caglarturali.now.sh
* https://hitlify-git-master.caglarturali.now.sh


Одинаковых быть не может, я вообще хотел бы чтобы метод считал сразу массив. Там просто рекурсия в методе (getPaymentsWithSum) в идеале надо было бы сделать так:
```php
$payments = $this->getPaymentsWithSum($this->employee)
```
Но я где то затупил


Dear @HeavenPE,
> I regret to inform you that your plugin "**AcidWater**" (v1.0.0 submitted on 2019-09-02T06:26:42.000Z) has been rejected.

B3 — No useless messages in startup/shutdown:
> Plugins must not output unnecessary status messages like "I have been enabled", "Author: Xxx", etc., unless the plugin startup/shutdown takes really much time (more than 1 second) such that the user may become impatient. See https://forums.pmmp.io/threads/clean-up-our-consoles.5656/

Please resolve these issues and submit the plugin again.

> This comment is posted here because this is the last commit when the released build was created.


How can this be achieved?


[Vinoth Kannan posted](https://review.discourse.org/t/fix-include-short-url-as-src-if-upload-url-not-exist/5489/2):

 https://review.discourse.org/t/fix-the-build/5491


Any possible workaround?
Font does apply in my berlyllium and guacamole yet looks like in crDroid settings remains on roboto


О спс, я помнил об этом, но тут упустил


:point_right: click here to view a full list of the events :point_left:


Не, всё нормально. Это рабочий процесс. А вообще, `git commit --amend`, это было на лекции.


Successfully aliased the URL <https://chriswebsite-cl9o43b1a.now.sh> to the following aliases:

* https://www.chrisbeaumont.com
* https://chris-website.chrisbeaumont.now.sh
* https://chris-website-git-master.chrisbeaumont.now.sh


I left the solution to one of the subchapters. The one you describe best matches the pattern "Pattern: Test setups Test Data while testing" or might be an additional one


Does this also nuke the oauth access for an organisation ?  I had been using that for a class where I have been pre-baking the id and secret from the organisation into the docker image. It seemed to be working ...


Successfully aliased the URL <https://kidonngme-jp1jqoh7s.now.sh> to the following aliases:

* https://kidonng.me
* https://kidonngme.kidonng.now.sh
* https://kidonngme-git-master.kidonng.now.sh


Hey @TiagoSantos81 your commit says "[pt]" but this is the English rule.
We recently disabled this rule on purpose because it caused many false alarms and was the by far most disabled rule by English-speaking users. Some false positives were:

* Because she felt sick.
* After a storm comes a calm.
* If only the rain would stop.
* As quick as a wink.
* As yet he has not succeeded.
* Until next time.
* Wherever you say.
* If you will come this way...
* Who lives without folly is not so wise as he thinks.

But the worst of all: Most (almost all) rules highlight the part where a correction is needed. This rule just highlights the first word and leaves the user clueless about where to add a comma.


Successfully aliased the URL <https://nextjs-mcigzf19g.now.sh> to the following aliases:

* https://nextjs.eremija.now.sh
* https://nextjs-git-master.eremija.now.sh


font gets applied but with a crash to lockscreen


sdf


Successfully aliased the URL <https://hitlify-k08g8kmh6.now.sh> to the following aliases:

* https://hitlify.now.sh
* https://hitlify.caglarturali.now.sh
* https://hitlify-git-master.caglarturali.now.sh


Successfully aliased the URL <https://joaolopes-j1bjhylnp.now.sh> to the following aliases:

* https://joaolopes.joaorfclopes.now.sh
* https://joaolopes-git-master.joaorfclopes.now.sh


Hmm... Thought that always did that like restart of SystemUI


Candidate position :
2r1r1k1/1p3pp1/p2q1n1p/3p4/3N4/P1NBP2n/1P3PK1/2RRQ3 b - - 1 24


Appreciated, thanks. Yes, I think a pull request should be OK now. No idea about how the fork managed to change. I guess it was due to some merge issues.


Oh, you're absolutely right!


Can this be a configuration setting? I prefer to start reply at the bottom (aka "bottom-posting").

See also: `✗ Supports bottom posting` on https://useplaintext.email/#rainloop


Successfully aliased the URL <https://website-h5ryq6y5w.now.sh> to the following aliases:

* https://iamgeorge.dev
* https://website.george13.now.sh
* https://website-git-master.george13.now.sh


Successfully aliased the URL <https://kidonngme-i4qgsn98r.now.sh> to the following aliases:

* https://kidonng.me
* https://kidonngme.kidonng.now.sh
* https://kidonngme-git-master.kidonng.now.sh


:white_check_mark: All Rules (3 / 3) Passed

      :crown: Good job! this pull request is aligned with your organization's best practices!

      :point_right: You can review your rules settings at smart policy management :point_left:

:point_right: click here to view a full list of the events :point_left:


:point_right: click here to view a full list of the events :point_left:


[R/generate_qr_table.R:12:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/generate_qr_table.R#L12) *style:* **Lines should not be more than 80 characters.**
```r
#' * __Period__ is `12` for yearly measurements and `4` for quarterly measurements
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:17:31:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L17) *style:* **Trailing whitespace is superfluous.**
```r
#' - `weights` either a vector
                              ^
```
[R/hierarchicalTimeSeries.R:18:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L18) *style:* **Lines should not be more than 80 characters.**
```r
#' if the same weight is used for all time points or a list of ts objects or a mts object
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:19:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
#' if the weight varies for different time points. They must have the same length as
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:83:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L83) *style:* **functions should have cyclomatic complexity of less than 15, this has 42.**
```r
hierarchicalTimeSeries <- R6::R6Class(
^
```
[R/hierarchicalTimeSeries.R:91:9:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L91) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!is.null(list)){
        ^
```
[R/hierarchicalTimeSeries.R:93:11:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L93) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(is.null(names(components))){
          ^
```
[R/hierarchicalTimeSeries.R:94:44:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L94) *style:* **Commas should always have a space after.**
```r
          names(components) <- paste0("ts",seq_along(components))
                                           ^
```
[R/hierarchicalTimeSeries.R:96:11:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L96) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(length(list(...))>0){
          ^
```
[R/hierarchicalTimeSeries.R:96:29:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L96) *style:* **Put spaces around all infix operators.**
```r
        if(length(list(...))>0){
                           ~^~
```
[R/hierarchicalTimeSeries.R:97:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L97) *style:* **Lines should not be more than 80 characters.**
```r
          warning("If the list argument is specified, additional arguments as ...
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:103:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L103) *style:* **Lines should not be more than 80 characters.**
```r
      componentsHts <- sapply(components, function(x) "hierarchicalTimeSeries"%in%class(x))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:103:79:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L103) *style:* **Put spaces around all infix operators.**
```r
      componentsHts <- sapply(components, function(x) "hierarchicalTimeSeries"%in%class(x))
                                                                             ~^~~~~
```
[R/hierarchicalTimeSeries.R:104:9:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L104) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!is.null(weights)){
        ^
```
[R/hierarchicalTimeSeries.R:105:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L105) *style:* **Lines should not be more than 80 characters.**
```r
        if(ifelse(is.list(weights)||is.vector(weights), length(weights), ncol(weights)) != sum(!componentsHts)){
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:105:11:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L105) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(ifelse(is.list(weights)||is.vector(weights), length(weights), ncol(weights)) != sum(!componentsHts)){
          ^
```
[R/hierarchicalTimeSeries.R:105:35:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L105) *style:* **Put spaces around all infix operators.**
```r
        if(ifelse(is.list(weights)||is.vector(weights), length(weights), ncol(weights)) != sum(!componentsHts)){
                                 ~^~~
```
[R/hierarchicalTimeSeries.R:111:9:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L111) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(any(componentsHts)){
        ^
```
[R/hierarchicalTimeSeries.R:113:11:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L113) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(any(!weightsNull)){
          ^
```
[R/hierarchicalTimeSeries.R:114:13:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L114) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(weightsNull)){
            ^
```
[R/hierarchicalTimeSeries.R:115:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L115) *style:* **Lines should not be more than 80 characters.**
```r
            stop("At the moment it is only supported to use either weights for all
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:118:14:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L118) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          for(i in which(componentsHts)){
             ^
```
[R/hierarchicalTimeSeries.R:120:74:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L120) *style:* **Commas should always have a space after.**
```r
                                  start = start(components[[i]]$weights[,1]),
                                                                         ^
```
[R/hierarchicalTimeSeries.R:121:70:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L121) *style:* **Commas should always have a space after.**
```r
                                  end = end(components[[i]]$weights[,1]),
                                                                     ^
```
[R/hierarchicalTimeSeries.R:122:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L122) *style:* **Lines should not be more than 80 characters.**
```r
                                  frequency = frequency(components[[i]]$weights[,1]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:122:82:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L122) *style:* **Commas should always have a space after.**
```r
                                  frequency = frequency(components[[i]]$weights[,1]))
                                                                                ^
```
[R/hierarchicalTimeSeries.R:123:12:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L123) *style:* **Trailing whitespace is superfluous.**
```r
          }
           ^~
```
[R/hierarchicalTimeSeries.R:126:9:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L126) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!is.list(weights)&!is.null(weights)){
        ^
```
[R/hierarchicalTimeSeries.R:126:27:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L126) *style:* **Put spaces around all infix operators.**
```r
      if(!is.list(weights)&!is.null(weights)){
                         ~^~
```
[R/hierarchicalTimeSeries.R:127:12:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L127) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        for(i in which(!componentsHts)){
           ^
```
[R/hierarchicalTimeSeries.R:131:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L131) *style:* **Lines should not be more than 80 characters.**
```r
          weights_ts[[i]] <- ts(c(weights_ts[[i]],rep(tail(weights_ts[[i]],1),4*frequency(components[[i]]$ts))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:131:51:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L131) *style:* **Commas should always have a space after.**
```r
          weights_ts[[i]] <- ts(c(weights_ts[[i]],rep(tail(weights_ts[[i]],1),4*frequency(components[[i]]$ts))),
                                                  ^
```
[R/hierarchicalTimeSeries.R:131:76:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L131) *style:* **Commas should always have a space after.**
```r
          weights_ts[[i]] <- ts(c(weights_ts[[i]],rep(tail(weights_ts[[i]],1),4*frequency(components[[i]]$ts))),
                                                                           ^
```
[R/hierarchicalTimeSeries.R:131:79:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L131) *style:* **Commas should always have a space after.**
```r
          weights_ts[[i]] <- ts(c(weights_ts[[i]],rep(tail(weights_ts[[i]],1),4*frequency(components[[i]]$ts))),
                                                                              ^
```
[R/hierarchicalTimeSeries.R:131:80:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L131) *style:* **Put spaces around all infix operators.**
```r
          weights_ts[[i]] <- ts(c(weights_ts[[i]],rep(tail(weights_ts[[i]],1),4*frequency(components[[i]]$ts))),
                                                                              ~^~
```
[R/hierarchicalTimeSeries.R:132:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L132) *style:* **Lines should not be more than 80 characters.**
```r
                                start = start(components[[i]]$ts), frequency = frequency(components[[i]]$ts))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/hierarchicalTimeSeries.R:135:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L135) *style:* **Trailing whitespace is superfluous.**
```r

^~~~~~
```
[R/hierarchicalTimeSeries.R:140:9:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L140) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if("mts"%in%class(weights)){
        ^
```
[R/hierarchicalTimeSeries.R:140:15:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L140) *style:* **Put spaces around all infix operators.**
```r
      if("mts"%in%class(weights)){
             ~^~~~~
```
[R/hierarchicalTimeSeries.R:143:11:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L143) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        if(length(weights_ts)==0){
          ^
```
[R/hierarchicalTimeSeries.R:143:30:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L143) *style:* **Put spaces around all infix operators.**
```r
        if(length(weights_ts)==0){
                            ~^~~
```
[R/hierarchicalTimeSeries.R:146:41:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L146) *style:* **Commas should always have a space after.**
```r
          weights_ts <- do.call("cbind",weights_ts)
                                        ^
```
[R/hierarchicalTimeSeries.R:148:10:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L148) *style:* **Trailing whitespace is superfluous.**
```r
        }
         ^~
```
[R/hierarchicalTimeSeries.R:243:15:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L243) *style:* **Put spaces around all infix operators.**
```r
        x <- x*0+1
             ~^~
```
[R/hierarchicalTimeSeries.R:243:17:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L243) *style:* **Put spaces around all infix operators.**
```r
        x <- x*0+1
               ~^~
```
[R/hierarchicalTimeSeries.R:246:9:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L246) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(!is.null(weights)){
        ^
```
[R/hierarchicalTimeSeries.R:247:12:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L247) *style:* **Place a space before left parenthesis, except in a function call.**
```r
        for(i in seq_along(tss)){
           ^
```
[R/hierarchicalTimeSeries.R:248:46:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L248) *style:* **Commas should always have a space after.**
```r
          weights_ts[[i]] <- window(weights[,i], start = start(tss[[i]]),
                                             ^
```
[R/hierarchicalTimeSeries.R:254:36:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L254) *style:* **Commas should always have a space after.**
```r
    aggregate_ts = function(ts_vec,weights_ts) {
                                   ^
```
[R/hierarchicalTimeSeries.R:273:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/hierarchicalTimeSeries.R#L273) *style:* **Lines should not be more than 80 characters.**
```r
      methodFunction <- switch(private$method, tramoseats = tramoseats, x13 = x13)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plot_single.R:43:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/plot_single.R#L43) *style:* **functions should have cyclomatic complexity of less than 15, this has 20.**
```r
plot.persephoneSingle <- function(
^
```
[R/plotResiduals.R:50:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/plotResiduals.R#L50) *style:* **functions should have cyclomatic complexity of less than 15, this has 16.**
```r
plotResiduals <-   function(x, which = c("res", "acf", "acf2", "pacf",
^
```
[R/plotSpectrum.R:86:1:](https://github.com/statistikat/persephone/blob/9c1fda43b4dc1c6cce7bb296368e25b620daafdd/R/plotSpectrum.R#L86) *style:* **functions should have cyclomatic complexity of less than 15, this has 25.**
```r
plotSpectrum <- function(x,
^
```


You are right, I just learn about lazy enumerable! Thank you for taking time to answer 👍

Then I guess it's already fairly efficient. Is it really expensive, even checking for 100 locations?
For instance, my PATH contains 48 folders.


Successfully aliased the URL <https://scoop-docs-ouwu6ifuf.now.sh> to the following aliases:

* https://scoop-docs.now.sh
* https://scoop-docs.kidonng.now.sh
* https://scoop-docs-git-master.kidonng.now.sh