[R/default_param_doc.R:125:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/default_param_doc.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  L,
  ^
```
[R/default_param_doc.R:148:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/default_param_doc.R#L148) *style:* **Variable or function name should be snake_case.**
```r
  D0,
  ^~
```
[R/default_param_doc.R:149:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/default_param_doc.R#L149) *style:* **Variable or function name should be snake_case.**
```r
  D_0,
  ^~~
```
[R/default_param_doc.R:151:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/default_param_doc.R#L151) *style:* **Variable or function name should be snake_case.**
```r
  D0s,
  ^~~
```
[R/default_param_doc.R:152:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/default_param_doc.R#L152) *style:* **Variable or function name should be snake_case.**
```r
  D_0s,
  ^~~~
```
[R/default_param_doc.R:154:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/default_param_doc.R#L154) *style:* **Variable or function name should be snake_case.**
```r
  E0,
  ^~
```
[R/default_param_doc.R:155:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/default_param_doc.R#L155) *style:* **Variable or function name should be snake_case.**
```r
  E_0,
  ^~~
```
[R/sls_conditionings.R:24:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_conditionings.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  A <- abs(t_d - t_c); B <- abs(t_p - t_d)
  ^
```
[R/sls_conditionings.R:24:24:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_conditionings.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  A <- abs(t_d - t_c); B <- abs(t_p - t_d)
                       ^
```
[R/sls_conditionings.R:30:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_conditionings.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  PS   <- 1 - sls::pn(
  ^~
```
[R/sls_conditionings.R:50:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_conditionings.R#L50) *style:* **Variable or function name should be snake_case.**
```r
  P1   <- sum(aux1) #branch 2 survives till the present
  ^~
```
[R/sls_conditionings.R:52:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_conditionings.R#L52) *style:* **Variable or function name should be snake_case.**
```r
  P2   <- sum(aux2) #both branches 1 and 2 survive till the present
  ^~
```
[R/sls_convolutions.R:7:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L7) *style:* **Variable or function name should be snake_case.**
```r
phase.factor <- function(n_max, n, k) {
^~~~~~~~~~~~
```
[R/sls_convolutions.R:17:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L17) *style:* **Variable or function name should be snake_case.**
```r
DFT <- function(vec) {
^~~
```
[R/sls_convolutions.R:24:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  O <- outer(
  ^
```
[R/sls_convolutions.R:38:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L38) *style:* **Variable or function name should be snake_case.**
```r
IDFT <- function(vec) {
^~~~
```
[R/sls_convolutions.R:45:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  O <- outer(
  ^
```
[R/sls_convolutions.R:68:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L68) *style:* **Variable or function name should be snake_case.**
```r
  N <- length(times)
  ^
```
[R/sls_convolutions.R:69:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L69) *style:* **Variable or function name should be snake_case.**
```r
  X <- vector("list", N)
  ^
```
[R/sls_convolutions.R:97:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L97) *style:* **Variable or function name should be snake_case.**
```r
  N  <- length(times)
  ^
```
[R/sls_convolutions.R:105:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  LAMBDAS <- matrix(ls, nrow = dim(ns)[1], ncol = dim(ns)[2], byrow = T)
  ^~~~~~~
```
[R/sls_convolutions.R:107:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L107) *style:* **Variable or function name should be snake_case.**
```r
  MUS     <- matrix(ms, nrow = dim(ns)[1], ncol = dim(ns)[2], byrow = T)
  ^~~
```
[R/sls_convolutions.R:109:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L109) *style:* **Variable or function name should be snake_case.**
```r
  TIMES   <- matrix(times, nrow = dim(ns)[1], ncol = dim(ns)[2], byrow = T)
  ^~~~~
```
[R/sls_convolutions.R:140:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L140) *style:* **Variable or function name should be snake_case.**
```r
  N <- length(times)
  ^
```
[R/sls_convolutions.R:141:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_convolutions.R#L141) *style:* **Variable or function name should be snake_case.**
```r
  X <- vector("list", N)
  ^
```
[R/sls_likelihoods_bisse.R:20:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_bisse.R#L20) *style:* **Variable or function name should be snake_case.**
```r
  DD <- (exp_factor * d_0 * (lambda - mu) ^ 2) / denominator ^ 2
  ^~
```
[R/sls_likelihoods_bisse.R:74:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_bisse.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  BRTS <- sort(c(brts, t_p, t_ds), decreasing = TRUE)
  ^~~~
```
[R/sls_likelihoods_bisse.R:98:9:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_bisse.R#L98) *style:* **Variable or function name should be snake_case.**
```r
        DS0 <- d_0s
        ^~~
```
[R/sls_likelihoods_bisse.R:100:9:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_bisse.R#L100) *style:* **Variable or function name should be snake_case.**
```r
        DS0 <- d_0s[which[t_ds == t_f]]
        ^~~
```
[R/sls_likelihoods_bisse.R:134:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_bisse.R#L134) *style:* **Variable or function name should be snake_case.**
```r
  BRTS <- c(rep(brts[1], n_0 - 1), brts)
  ^~~~
```
[R/sls_likelihoods_div.R:40:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L40) *style:* **Variable or function name should be snake_case.**
```r
  BRTSM <- rbind(
  ^~~~~
```
[R/sls_likelihoods_div.R:44:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L44) *style:* **Variable or function name should be snake_case.**
```r
  TD <- c(t_d, -1); dim(TD) <- c(2, 1)
  ^~
```
[R/sls_likelihoods_div.R:45:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  EVENTSM <- (M <- cbind(BRTSM, TD))[, order(-M[1, ])]
  ^~~~~~~
```
[R/sls_likelihoods_div.R:45:15:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  EVENTSM <- (M <- cbind(BRTSM, TD))[, order(-M[1, ])]
              ^
```
[R/sls_likelihoods_div.R:60:28:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L60) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (length(ts_m_pre_shift ) == 0) {
                           ^
```
[R/sls_likelihoods_div.R:104:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L104) *style:* **Variable or function name should be snake_case.**
```r
  Pc <- sls::pc_1shift(
  ^~
```
[R/sls_likelihoods_div.R:164:10:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L164) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  while ( (clade <- clade + 1) <= n_clades) {
         ^
```
[R/sls_likelihoods_div.R:168:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L168) *style:* **Variable or function name should be snake_case.**
```r
    K      <- ks[clade]
    ^
```
[R/sls_likelihoods_div.R:226:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L226) *style:* **Variable or function name should be snake_case.**
```r
    P  <- vm * q_t[t, (missnumspec[clade] + 1)]
    ^
```
[R/sls_likelihoods_div.R:239:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_div.R#L239) *style:* **Variable or function name should be snake_case.**
```r
  Pc <- sls::pc_1shift(
  ^~
```
[R/sls_likelihoods_nee.R:7:17:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nee.R#L7) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
pt  <- function (lambda, mu, t) {
                ^
```
[R/sls_likelihoods_nee.R:9:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nee.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  Lambda <- exp(
  ^~~~~~
```
[R/sls_likelihoods_nee.R:26:17:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nee.R#L26) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
ut  <- function (lambda, mu, t) {
                ^
```
[R/sls_likelihoods_nee.R:28:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nee.R#L28) *style:* **Variable or function name should be snake_case.**
```r
  Lambda <- exp(
  ^~~~~~
```
[R/sls_likelihoods_nodiv.R:29:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nodiv.R#L29) *style:* **Variable or function name should be snake_case.**
```r
  BRTSM <- rbind(
  ^~~~~
```
[R/sls_likelihoods_nodiv.R:33:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nodiv.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  TD <- c(t_d, -1); dim(TD) <- c(2, 1)
  ^~
```
[R/sls_likelihoods_nodiv.R:45:28:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nodiv.R#L45) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (length(ts_m_pre_shift ) == 0) {
                           ^
```
[R/sls_likelihoods_nodiv.R:143:10:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nodiv.R#L143) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  while ( (clade <- clade + 1) <= n_clades ) {
         ^
```
[R/sls_likelihoods_nodiv.R:143:43:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nodiv.R#L143) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  while ( (clade <- clade + 1) <= n_clades ) {
                                          ^
```
[R/sls_likelihoods_nodiv.R:147:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nodiv.R#L147) *style:* **Variable or function name should be snake_case.**
```r
    K      <- ks[clade]
    ^
```
[R/sls_likelihoods_nodiv.R:205:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_likelihoods_nodiv.R#L205) *style:* **Variable or function name should be snake_case.**
```r
    P  <- vm * q_t[t, (missnumspec[clade] + 1)]
    ^
```
[R/sls_loglik_choosepar.R:35:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_loglik_choosepar.R#L35) *style:* **Variable or function name should be snake_case.**
```r
  Npars <- length(namepars)
  ^~~~~
```
[R/sls_loglik_choosepar.R:58:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_loglik_choosepar.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  first_S_branch <- ifelse(length(brts_s) != 0, max(abs(brts_s)), 0)
  ^~~~~~~~~~~~~~
```
[R/sls_ML_cluster.R:56:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_ML_cluster.R#L56) *style:* **Variable or function name should be snake_case.**
```r
  NM <- (soc - 1) + length(brts_m)
  ^~
```
[R/sls_ML_cluster.R:57:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_ML_cluster.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  NS <- 1 + length(brts_s)
  ^~
```
[R/sls_ML_cluster.R:91:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_ML_cluster.R#L91) *style:* **Variable or function name should be snake_case.**
```r
    MLE_1 <- unlist(
    ^~~~~
```
[R/sls_ML_cluster.R:166:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_ML_cluster.R#L166) *style:* **Variable or function name should be snake_case.**
```r
  NM <- (soc - 1) + length(brts_m)
  ^~
```
[R/sls_ML_cluster.R:167:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_ML_cluster.R#L167) *style:* **Variable or function name should be snake_case.**
```r
  NS <- 1 + length(brts_s)
  ^~
```
[R/sls_ML_cluster.R:197:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_ML_cluster.R#L197) *style:* **Variable or function name should be snake_case.**
```r
  MLE_1 <- unlist(
  ^~~~~
```
[R/sls_ML_cluster.R:230:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_ML_cluster.R#L230) *style:* **Variable or function name should be snake_case.**
```r
  MLE_2 <- unlist(
  ^~~~~
```
[R/sls_sim_utils.R:9:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L9) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_pars <- function(
^~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:46:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L46) *style:* **Variable and function names should not be longer than 30 characters.**
```r
sls_sim.initialize_data_new_clade <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:46:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L46) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.initialize_data_new_clade <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:76:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L76) *style:* **Variable or function name should be snake_case.**
```r
    Lmother <- l_1[[motherclade]]
    ^~~~~~~
```
[R/sls_sim_utils.R:83:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L83) *style:* **Variable or function name should be snake_case.**
```r
    L <- matrix(0, nrow = l_matrix_size, 5)
    ^
```
[R/sls_sim_utils.R:123:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L123) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.sample_deltas <- function(
^~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:132:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L132) *style:* **Variable or function name should be snake_case.**
```r
  PARS   <- pars[[clade]]
  ^~~~
```
[R/sls_sim_utils.R:136:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L136) *style:* **Variable or function name should be snake_case.**
```r
  N <- length(pool)
  ^
```
[R/sls_sim_utils.R:160:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L160) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.decide_event <- function(
^~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:170:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L170) *style:* **Variable or function name should be snake_case.**
```r
  L <- l_1[[clade]]
  ^
```
[R/sls_sim_utils.R:187:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L187) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if ( (t - delta_t) < 0 ) {
      ^
```
[R/sls_sim_utils.R:187:25:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L187) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if ( (t - delta_t) < 0 ) {
                        ^
```
[R/sls_sim_utils.R:210:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L210) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.use_event <- function(
^~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:220:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L220) *style:* **Variable or function name should be snake_case.**
```r
  L <- data$l_1[[clade]]
  ^
```
[R/sls_sim_utils.R:222:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L222) *style:* **Variable or function name should be snake_case.**
```r
  N <- length(pool)
  ^
```
[R/sls_sim_utils.R:244:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L244) *style:* **Variable or function name should be snake_case.**
```r
    L <- data$l_1[[clade]]
    ^
```
[R/sls_sim_utils.R:246:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L246) *style:* **Variable or function name should be snake_case.**
```r
    N <- length(pool)
    ^
```
[R/sls_sim_utils.R:279:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L279) *style:* **Variable or function name should be snake_case.**
```r
    L2 <- sls_sim.cut_l_matrix(L)
    ^~
```
[R/sls_sim_utils.R:280:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L280) *style:* **Variable or function name should be snake_case.**
```r
    L <- L2
    ^
```
[R/sls_sim_utils.R:314:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L314) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.check_survival <- function(
^~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:315:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L315) *style:* **Variable or function name should be snake_case.**
```r
  L,
  ^
```
[R/sls_sim_utils.R:332:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L332) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.conditioning <- function(
^~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:347:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L347) *style:* **Variable or function name should be snake_case.**
```r
    L <- l_1[[clade]]
    ^
```
[R/sls_sim_utils.R:363:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L363) *style:* **Variable or function name should be snake_case.**
```r
      L_left  <- L[coords_left, ]; dim(L_left)  <- c(sum(coords_left), 5)
      ^~~~~~
```
[R/sls_sim_utils.R:364:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L364) *style:* **Variable or function name should be snake_case.**
```r
      L_right <- L[coords_right, ]; dim(L_right) <- c(sum(coords_right), 5)
      ^~~~~~~
```
[R/sls_sim_utils.R:374:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L374) *style:* **Variable or function name should be snake_case.**
```r
      L_left_cs  <- L_left[coords_left_cs, ]
      ^~~~~~~~~
```
[R/sls_sim_utils.R:379:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L379) *style:* **Variable or function name should be snake_case.**
```r
      L_right_cs <- L_right[coords_right_cs, ]
      ^~~~~~~~~~
```
[R/sls_sim_utils.R:402:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L402) *style:* **Variable or function name should be snake_case.**
```r
      L <- l_1[[clade]]
      ^
```
[R/sls_sim_utils.R:430:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L430) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_brts <- function(
^~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:446:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L446) *style:* **Variable or function name should be snake_case.**
```r
      L <- sls_sim.cut_l_matrix(
      ^
```
[R/sls_sim_utils.R:484:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L484) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.read_l_1 <- function(
^~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:492:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L492) *style:* **Variable or function name should be snake_case.**
```r
    L <- l_1[[i]]
    ^
```
[R/sls_sim_utils.R:504:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L504) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_standard_l_2 <- function(
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:539:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L539) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_shifts_info <- function(
^~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:556:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L556) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_t_0 <- function(
^~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:570:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L570) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_n_0 <- function(
^~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:584:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L584) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_motherclade <- function(
^~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:598:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L598) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_pool <- function(
^~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:599:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L599) *style:* **Variable or function name should be snake_case.**
```r
  L
  ^
```
[R/sls_sim_utils.R:612:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L612) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.cut_l_matrix <- function(
^~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:613:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L613) *style:* **Variable or function name should be snake_case.**
```r
  L
  ^
```
[R/sls_sim_utils.R:620:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L620) *style:* **Variable or function name should be snake_case.**
```r
    L2 <- L[1:n_max, ]
    ^~
```
[R/sls_sim_utils.R:621:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L621) *style:* **Variable or function name should be snake_case.**
```r
    cols_L <- ncol(L)
    ^~~~~~
```
[R/sls_sim_utils.R:624:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L624) *style:* **Variable or function name should be snake_case.**
```r
    L2 <- L
    ^~
```
[R/sls_sim_utils.R:625:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L625) *style:* **Variable or function name should be snake_case.**
```r
    cols_L <- length(L)
    ^~~~~~
```
[R/sls_sim_utils.R:637:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L637) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.adapt_l_matrix_size <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:642:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L642) *style:* **Variable or function name should be snake_case.**
```r
  L <- data$l_1[[clade]]
  ^
```
[R/sls_sim_utils.R:644:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L644) *style:* **Variable or function name should be snake_case.**
```r
    append_L <- matrix(0, nrow = nrow(L), ncol = ncol(L))
    ^~~~~~~~
```
[R/sls_sim_utils.R:646:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_sim_utils.R#L646) *style:* **Variable or function name should be snake_case.**
```r
    L2 <- rbind(L, append_L)
    ^~
```
[R/sls_utils.R:7:1:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_utils.R#L7) *style:* **Variable or function name should be snake_case.**
```r
P_transition_matrix <- function(
^~~~~~~~~~~~~~~~~~~
```
[R/sls_utils.R:13:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/R/sls_utils.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  M <- matrix(0, nrow = matrix_size, ncol = matrix_size)
  ^
```
[tests/testthat/test-conditionings.R:14:39:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L14) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    p_ns_cs * (1 - (p_0_sp) ^ (ns - 1) )
                                      ^
```
[tests/testthat/test-conditionings.R:43:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L43) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:50:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L50) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:67:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L67) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:74:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:91:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L91) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:98:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L98) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:118:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L118) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:125:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:142:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L142) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:149:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L149) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:166:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L166) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:173:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L173) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:185:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L185) *style:* **Variable or function name should be snake_case.**
```r
  diff_Pc_vs_DDD <- function(
  ^~~~~~~~~~~~~~
```
[tests/testthat/test-conditionings.R:219:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L219) *style:* **Variable or function name should be snake_case.**
```r
      DDDloglik0 <- DDD::dd_KI_loglik(
      ^~~~~~~~~~
```
[tests/testthat/test-conditionings.R:227:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L227) *style:* **Variable or function name should be snake_case.**
```r
      DDDloglik1 <- DDD::dd_KI_loglik(
      ^~~~~~~~~~
```
[tests/testthat/test-conditionings.R:235:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L235) *style:* **Variable or function name should be snake_case.**
```r
      Pc <- sls::pc_1shift(
      ^~
```
[tests/testthat/test-conditionings.R:243:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-conditionings.R#L243) *style:* **Variable or function name should be snake_case.**
```r
      DDD_Pc <- (DDDloglik0 - DDDloglik1)
      ^~~~~~
```
[tests/testthat/test-loglik-BISSE.R:3:11:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-BISSE.R#L3) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
test_that( "test bisse and DDD logliks equivalence", {
          ^
```
[tests/testthat/test-loglik-BISSE.R:22:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-BISSE.R#L22) *style:* **Variable or function name should be snake_case.**
```r
    Delta_ddd   <- ddd1 - ddd2
    ^~~~~~~~~
```
[tests/testthat/test-loglik-BISSE.R:23:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-BISSE.R#L23) *style:* **Variable or function name should be snake_case.**
```r
    Deltabisse <- bisse1 - bisse2
    ^~~~~~~~~~
```
[tests/testthat/test-loglik-BISSE.R:56:11:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-BISSE.R#L56) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
test_that( "test bisse alternative functions", {
          ^
```
[tests/testthat/test-loglik-division.R:3:11:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L3) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
test_that( "all the likelihoods with division yield the same result", {
          ^
```
[tests/testthat/test-loglik-division.R:24:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L24) *style:* **Variable or function name should be snake_case.**
```r
    res1.1 <- fun1(
    ^~~~~~
```
[tests/testthat/test-loglik-division.R:33:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L33) *style:* **Variable or function name should be snake_case.**
```r
    res2.1 <- fun2(
    ^~~~~~
```
[tests/testthat/test-loglik-division.R:42:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L42) *style:* **Variable or function name should be snake_case.**
```r
    res1.2 <- res2.2 <- 0
    ^~~~~~
```
[tests/testthat/test-loglik-division.R:42:15:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L42) *style:* **Variable or function name should be snake_case.**
```r
    res1.2 <- res2.2 <- 0
              ^~~~~~
```
[tests/testthat/test-loglik-division.R:46:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L46) *style:* **Variable or function name should be snake_case.**
```r
      res1.2 <- fun1(
      ^~~~~~
```
[tests/testthat/test-loglik-division.R:55:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L55) *style:* **Variable or function name should be snake_case.**
```r
      res2.2 <- fun2(
      ^~~~~~
```
[tests/testthat/test-loglik-division.R:65:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L65) *style:* **Variable or function name should be snake_case.**
```r
    Delta1 <- res1.1 - res1.2; Delta1
    ^~~~~~
```
[tests/testthat/test-loglik-division.R:66:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L66) *style:* **Variable or function name should be snake_case.**
```r
    Delta2 <- res2.1 - res2.2; Delta2
    ^~~~~~
```
[tests/testthat/test-loglik-division.R:72:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-division.R#L72) *style:* **Variable or function name should be snake_case.**
```r
  test.diff <- function(
  ^~~~~~~~~
```
[tests/testthat/test-loglik-nodivision.R:3:11:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L3) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
test_that( "all the likelihoods with no division yield the same result", {
          ^
```
[tests/testthat/test-loglik-nodivision.R:23:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L23) *style:* **Variable or function name should be snake_case.**
```r
    res1.1 <- fun1(
    ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:32:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L32) *style:* **Variable or function name should be snake_case.**
```r
    res2.1 <- fun2(
    ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:41:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L41) *style:* **Variable or function name should be snake_case.**
```r
    res1.2 <- res2.2 <- 0
    ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:41:15:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L41) *style:* **Variable or function name should be snake_case.**
```r
    res1.2 <- res2.2 <- 0
              ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:45:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L45) *style:* **Variable or function name should be snake_case.**
```r
      res1.2 <- fun1(pars_m = pars_m2,
      ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:53:7:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L53) *style:* **Variable or function name should be snake_case.**
```r
      res2.2 <- fun2(
      ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:63:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L63) *style:* **Variable or function name should be snake_case.**
```r
    Delta1 <- res1.1 - res1.2; Delta1
    ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:64:5:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L64) *style:* **Variable or function name should be snake_case.**
```r
    Delta2 <- res2.1 - res2.2; Delta2
    ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:70:3:](https://github.com/Giappo/sls/blob/ecec87c8bf46dfddbe737b418a7eb3a4222901a4/tests/testthat/test-loglik-nodivision.R#L70) *style:* **Variable or function name should be snake_case.**
```r
  test.diff <- function(
  ^~~~~~~~~
```


I'm already lazy loading calling the same function:
```js
async initializeOrFindExistingConnections() {
    if (!this.currentProdDbClient) {
      await this.getProductionConnection();
    }
    if (!this.amqpChannel) {
      await this.getProductionConnection();
    }
    if (!this.ledgerDbConnection) {
      this.getLedgerConnection();
    }
  }
```
This way I only load the connections variables once as they will be already set.


Copy of this build can be found at
https://www.mewbuilds.com/build/b6a5bd2b61b4e63b647aecefb2b9364c9018e07e/index.html
                       https://www.cloudflare-ipfs.com/ipfs/QmVfEdRVMTDXJuxzzZ6DqAb6d4fR6CBEoaKoMQPhH8Vips


«хоть» звучит как то не серьезно =) возможно стоит пересмотреть фоазу или заменить хотябы на «как».


i, j ? names of vars should help me understand it functions


Name of function doesn't show what method is used to sort


Deployment failed with the following error:

~~~
Missing `start` (or `now-start`) script in `package.json`. See: https://docs.npmjs.com/cli/start
~~~


Created multidev environment [mjbernha-d8-circle-project#pr-3](https://dashboard.pantheon.io/sites/cdf53849-7d9e-4298-a9c7-e343633cda43#pr-3).

[![Visit Site](https://raw.githubusercontent.com/pantheon-systems/ci-drops-8/0.1.0/data/img/visit-site-36.png)](https://pr-3-mjbernha-d8-circle-project.pantheonsite.io/)


<?php


Not reason to do that `setTimeout`. Making sure that `sendSingleTransactionToQueue` is `async` and `await` ing should be enough.

After that, you can directly fire `run`, or the common pattern to achieve this is to run `sendSingleTransactionToQueue` in a while loop.


which array?


what does it sort?


Без «свои»


![](https://github.trello.services/images/mini-trello-icon.png) [Add Entity class](https://trello.com/c/3MS9WlEo/5-add-entity-class)


# 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)|


![](https://github.trello.services/images/mini-trello-icon.png) [Add EntityManager class](https://trello.com/c/79lYcGUr/6-add-entitymanager-class)


methods should contain verbs


![](https://github.trello.services/images/mini-trello-icon.png) [JavaDoc(Tpassado/Ttotal)](https://trello.com/c/uVEm0Ab7/27-javadoctpassado-ttotal)


![](https://github.trello.services/images/mini-trello-icon.png) [Add MainGame class](https://trello.com/c/SgSqXST8/4-add-maingame-class)


informLESS names of vars


![](https://github.trello.services/images/mini-trello-icon.png) [Junit(Tpassado/Ttotal)](https://trello.com/c/wG63cdAA/26-junittpassado-ttotal)


The following doc(s) have been deployed to the [4263adjust](https://4263adjust-static-docs.pantheonsite.io/docs) Multidev environment:
- [/docs/guides/drupal-8-composer-no-ci](https://4263adjust-static-docs.pantheonsite.io/docs/guides/drupal-8-composer-no-ci)


what does it scan?


this code looks smart but doesn't do anything interesting:
obj_stats.turn_amount is 8
obj_stats.turn_speed is 0.3

if we substitute these constants, we end up with basically `dir = lerp(dir, dir+8, 0.3)` or `lerp(dir, dir-8, 0.3)`; which is the same as saying `dir += 8*0.3` or `dir -= 8*0.3`

Your code might as well have been: `dir += obj_stats.turnrate * sign(hIn);` where obj_stats.turnrate = 2.4.


Yeah, but doesn't this lead to problems?

On Wed, Nov 21, 2018, 17:43 someaddons <notifications@github.com wrote:

> you mean the order of the AITarget creation? no thats just fine, they get
> ordered as before in an arraylist by the order they're created, just the
> null targets have an own state with an arraylist where they're added in the
> same order as before. only difference is that the null target list gets
> checked before other state's lists
>
> —
> You are receiving this because you commented.
> Reply to this email directly, view it on GitHub
> <https://github.com/ldtteam/minecolonies/commit/41ca70c8c4bddfbf8205c35de4e2c655d61e6dc5#commitcomment-31387138>,
> or mute the thread
> <https://github.com/notifications/unsubscribe-auth/AGI9y8l-ajK32evrl45Zw2MXFc5ojIIyks5uxazigaJpZM4YsJbJ>
> .
>


what does it print?


change names of vars, so that they help me to understand it functions


OBS: em Controlador.cpp mudei a range de movimento, que estava hard coded para 2. Agora este valor está no Utils.cpp


Aliasing failed with the following error:

~~~
Error! The alias nhdurco.now.sh is a deployment URL or it's in use by a different team.
~~~


good code shouldnt have comments


Adding the camera scrolling seems to have caused a lot of issues with room wrapping.  You might want to limit the camera from moving outside of room bounds, and add a special clause to speed it up when you wrap.


Let me know if you have questions about what I added, my next plan is to add functionality to the server so that it operates multiple channels and designates multicast based on the channel specified by the client


These surfaces are never freed in cleanup.


You can run the server standalone, I just plopped it in a server package


Didn't verify the surface exists before drawing.  Surfaces are volatile, you cannot do this.  Verify it exists with surface_exists and replace it when it is gone.


Try resizing the game, minimizing, or moving the game window to see the game crash because of this.


Used to store my classmate's application emails.


Good job @puneetsl


thank you so much =)))


Uniquement fiche de présentation


j


Creating and destroying a map every frame for input is inefficient.  Create the map once in the input manager, obj_stats, and refer to it in the player instead.


This works in principle but does not keep the player's direction in 0-360 range.  Does not present a problem now but possibly could in the future.


merge


puto el que lo lea


Due to the irandom_range call this basically sets the asteroid to a random direction, the - point_direction doesn't do anything.  random(360) would do the same thing with less steps.


cout << "Como estan putas";


Uno.


This is an asymptotic approach, the camera will never perfectly reach the player.  Not too big a deal, something to keep in mind though.  Definitely not the proper approach to true easing.


Dos.


Ah, good change, now that the par_asteroid instance is gone this should be a 0.  instance_number can't be less than 0 though, so consider changing this to instance_exists(par_asteroid)


Thanks 👍


This is a hard coded 120, consider swapping to room_speed * 2 for more readability.


Well, thank you very much. I think I can finish it by myself. Thank you again

Best regards
Penny


This should be POSITIVE.


牛号


围观星神


Successfully aliased the URL <https://occasio-partners-mnj1rw2a7.now.sh> to the following alias.

* https://occasio-partners.now.sh


![](https://github.trello.services/images/mini-trello-icon.png) [Test git](https://trello.com/c/PPnbMmXc/1-test-git)


Añadido la configuracion correspondiente para PHP


撒大声地


re


Oh fuck that's what I shouldn't have deleted


コメントテストです


Let me test this tomorrow.


Ah, então vai ficar palerma nos dois? ok


This change breaks all pages that use a PlaceholderField on a regular Django model since `cms_page` will be `None` in this case. Someone started PR #153 to address this, but could the fix be as simple as `if hasattr(cms_page, 'node):` on L145?


JPA 에 \@PrePersist 라는 애노테이션이있는데 이거 쓰면 저장하기전에 메서드가 호출돼요. 지금처럼 이걸 명시적으로 호출하시지않아도됩니다.

https://stackoverflow.com/questions/221611/creation-timestamp-and-last-update-timestamp-with-hibernate-and-mysql


- Any particular reason to not await?
- What would happen if an error occurs while abandoning or deferring a message?

#### Tried to simulate the error path for sending a disposition
```js
function delay(t, value) {
  return new Promise((resolve) => setTimeout(() => resolve(value), t));
}

async function defer() {
  await delay(2000); // wait for some time to simulate an async operation to defer a message.
  throw new Error("some error"); // We can also do return Promise.reject(new Error("some error"));
}

async function onMessage() { // customer's message handler
  // await defer();
  // defer().catch(err => console.log("catching defer : %O", err));
  defer();
}

async function _onAmqpMessage() {  // internal sdk message handler that wraps customer's message handler
  try {
    await onMessage();
  } catch (err) {
    console.log(">>>>>> Errr occurred in _onAmqpMessage: %O", err);
  }
}

_onAmqpMessage();
```

#### Not awaiting `defer()` in onMessage(), results in the following error:
> $ node foo.js
(node:10562) UnhandledPromiseRejectionWarning: Error: some error
    at defer (/Users/amarz/sdk/azure-service-bus-node/foo.js:7:9)
(node:10562) UnhandledPromiseRejectionWarning: Unhandled promise rejection. This error originated either by throwing inside of an async function without a catch block, or by rejecting a promise which was not handled with .catch(). (rejection id: 1)
(node:10562) [DEP0018] DeprecationWarning: Unhandled promise rejections are deprecated. In the future, promise rejections that are not handled will terminate the Node.js process with a non-zero exit code.

#### Awaiting `defer()` in onMessage(), will result in the error being caught in the catch block of _onAmqpMessage():
> $ node foo.js
\>>>>>> Errr occurred in _onAmqpMessage: Error: some error
    at defer (/Users/amarz/sdk/azure-service-bus-node/foo.js:7:9)
#### Catching `defer()` in onMessage() will result in the error being caught in `.catch()`:
> $ node foo.js
catching defer : Error: some error
    at defer (/Users/amarz/sdk/azure-service-bus-node/foo.js:7:9)


[Jenkins vg tests](http://jenkins.cgcloud.info/job/vg/2384/) complete for merge to master.  View the [full report here](http://vg-data.s3.amazonaws.com/vg_ci/jenkins_reports/branch/master/index.html).

19 tests passed, 0 tests failed and 10 tests skipped in 21808 seconds

Tests produced 2792 warnings. 2792 were for lower-than-expected alignment scores


Me pergunto se aceita esses caracteres, mas isso é por sua conta né.


The guidance is to ~embed~ add the *portable* pdb files in the NuGet package, not set embed the pdb files in the dll files which is what `<DebugType>embedded</DebugType>` does.


>By the way, the alphabetical order of scripts was also violated during their execution.

You mean with ```GlobalScriptPaths=scripts\gl*.int,scripts\sfall\gl*.int``` and there are two gl_test.int in both paths, sfall will run ```scripts\sfall\gl_test.int``` before the supposed ```scripts\gl_test.int```?


符号が逆じゃないか？
参考: https://docs.oracle.com/javase/jp/6/api/java/util/Date.html


seem there are two spaces between `stmt` and `debug_query_string`


コメント変えるの忘れてたｗ


Era bem niver que eu iria sugerir pra colocar hehe


Piña le agregó un signo de +


I apparently forgot to push this commit prior to last release, it was staged.....


wer


how do i use this


Kelompok 5 sudah pak


olha eu n tinha visto que tava palerma, mais pior que ele também combina com Lancer kkkkk


Actually .. i personally fail to be consistent about anything .. :)

A rough guide is:

local names, all lower case, underscore separators.
typedefs: add a _t to the end
ClassNames: tend to be First letter upper case
KIND names: all caps

Same problem for me with {} positioning. I'm not consistent.
One advantage of Python, you pretty much have to be.

The only thing I really hate is attempts to vertically align parameters.
Vertical alignment is OK in tables. Using spaces please, never use tabs.

Note Felix allows hyphen-in-names, i use that inconsistently too.


nice!!


Hmm, maybe I misread what people were saying ("embedded" is an overloaded term), but is there a compelling reason to avoid `<DebugType>embedded</DebugType>` PDBs? From my perspective, my consumers are guaranteed to have the symbols deployed to production (no worry if the PDB was deployed or not), so I'm guaranteed to get better call stacks in bug reports.

For examples of call stacks "in the wild" see [these](https://stackoverflow.com/questions/51344882/error-connecting-to-aurora-during-entity-framework-core-db-update) SO [questions](https://stackoverflow.com/questions/49269914/unable-to-connect-to-any-of-the-specified-mysql-hosts-when-i-publish-abp-to-ubun/49279839).


Essa linha é discutível. Fale com o Detoria se não falou ainda


This is my code that is documented and finished finally! I could simplify more though and make better


asdf


update


this paragraph code it's not work
must change to "<button type="submit" class="btn btn-lg btn-success pull-right" name="resize">{% trans "Resize" %}</button>"


BTW, thanks for all your work on SourceLink; it's really improved the .NET debugging experience!


This is weird


for subresource /api/v1/users/{userId}/phones


As sequelize dynamically manages the pool, i've done this only to make sure the connections would be released/decreased before starting a new cycle and then explode. I can try without it now. let's seee.


It is not understandable what is showed by this constant


Should the ready callback return a list of dependencies or just a way to talk to its dependencies?


don't use russian variable names. use **array** name instead


Successfully aliased the URL <https://mooven-evqhwmwhpu.now.sh> to the following alias.

* https://mooven.now.sh


Started to have issues with subscriptions, probably caused by this change.

```
books: {
  query: BOOKS_QUERY,
  variables () {
    return {
      type: this.type
    }
  },
  subscribeToMore: {
    document: NEW_BOOK_SUBSCRIPTION,
    updateQuery (...) {
      console.log('Never gets called after type change')

      return ...
    }
  }
}
```

I have a query with reactive variables and with subscription on top of it (using subscribeToMore). It works for the first time and the query gets updated when new book is created. However when the type is changed, I can see (in WS frames) the subscription is stopped, but never started again.

For now I need rollback to v3.0.0-beta.25, where this is not an issue.


please use proper formatting for brackets


#6 Seems to break API support. Tested with Mura Core 7.1.249


[R/create_bd_tree.R:70:18:](https://github.com/richelbilderbeek/razzo/blob/a62883f65a64aad531463a91e8af8b487afd7ab0/R/create_bd_tree.R#L70) *warning:* **no visible global function definition for ‘bd_phylo_2_l_table’**
```r
  bd_l_matrix <- bd_phylo_2_l_table(bd_tree)
                 ^~~~~~~~~~~~~~~~~~
```
[R/utils.R:65:10:](https://github.com/richelbilderbeek/razzo/blob/a62883f65a64aad531463a91e8af8b487afd7ab0/R/utils.R#L65) *warning:* **no visible global function definition for ‘convert_tree2brts’**
```r
  brt <- convert_tree2brts(phylo)
         ^~~~~~~~~~~~~~~~~
```


variable name does not follow general c/c++ codding convention.


Please add general indention to the code.


saw approval from MonsieurNicolas
at https://github.com/MonsieurNicolas/stellar-core/commit/cba1a614c60e5816c8b25f4923086cc9828ffb67


merging MonsieurNicolas/stellar-core/compileFixlibcxx = cba1a614 into auto


MonsieurNicolas/stellar-core/compileFixlibcxx = cba1a614 merged ok, testing candidate = bbadfc1a


FYI your can also do self.gres = job.get ('gres') in one line


Name doesn't show what is done in this function.


Successfully aliased the URL <https://winmine-exe-h7y65wsec.now.sh> to the following alias.

* https://winmine-exe.now.sh


It is not understandable what is showed by this variables


[R/default_param_doc.R:125:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/default_param_doc.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  L,
  ^
```
[R/default_param_doc.R:148:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/default_param_doc.R#L148) *style:* **Variable or function name should be snake_case.**
```r
  D0,
  ^~
```
[R/default_param_doc.R:149:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/default_param_doc.R#L149) *style:* **Variable or function name should be snake_case.**
```r
  D_0,
  ^~~
```
[R/default_param_doc.R:151:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/default_param_doc.R#L151) *style:* **Variable or function name should be snake_case.**
```r
  D0s,
  ^~~
```
[R/default_param_doc.R:152:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/default_param_doc.R#L152) *style:* **Variable or function name should be snake_case.**
```r
  D_0s,
  ^~~~
```
[R/default_param_doc.R:154:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/default_param_doc.R#L154) *style:* **Variable or function name should be snake_case.**
```r
  E0,
  ^~
```
[R/default_param_doc.R:155:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/default_param_doc.R#L155) *style:* **Variable or function name should be snake_case.**
```r
  E_0,
  ^~~
```
[R/sls_conditionings.R:24:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_conditionings.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  A <- abs(t_d - t_c); B <- abs(t_p - t_d)
  ^
```
[R/sls_conditionings.R:24:24:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_conditionings.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  A <- abs(t_d - t_c); B <- abs(t_p - t_d)
                       ^
```
[R/sls_conditionings.R:30:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_conditionings.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  PS   <- 1 - sls::pn(
  ^~
```
[R/sls_conditionings.R:50:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_conditionings.R#L50) *style:* **Variable or function name should be snake_case.**
```r
  P1   <- sum(aux1) #branch 2 survives till the present
  ^~
```
[R/sls_conditionings.R:52:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_conditionings.R#L52) *style:* **Variable or function name should be snake_case.**
```r
  P2   <- sum(aux2) #both branches 1 and 2 survive till the present
  ^~
```
[R/sls_convolutions.R:7:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L7) *style:* **Variable or function name should be snake_case.**
```r
phase.factor <- function(n_max, n, k) {
^~~~~~~~~~~~
```
[R/sls_convolutions.R:17:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L17) *style:* **Variable or function name should be snake_case.**
```r
DFT <- function(vec) {
^~~
```
[R/sls_convolutions.R:24:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  O <- outer(
  ^
```
[R/sls_convolutions.R:38:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L38) *style:* **Variable or function name should be snake_case.**
```r
IDFT <- function(vec) {
^~~~
```
[R/sls_convolutions.R:45:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  O <- outer(
  ^
```
[R/sls_convolutions.R:68:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L68) *style:* **Variable or function name should be snake_case.**
```r
  N <- length(times)
  ^
```
[R/sls_convolutions.R:69:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L69) *style:* **Variable or function name should be snake_case.**
```r
  X <- vector("list", N)
  ^
```
[R/sls_convolutions.R:97:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L97) *style:* **Variable or function name should be snake_case.**
```r
  N  <- length(times)
  ^
```
[R/sls_convolutions.R:105:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  LAMBDAS <- matrix(ls, nrow = dim(ns)[1], ncol = dim(ns)[2], byrow = T)
  ^~~~~~~
```
[R/sls_convolutions.R:107:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L107) *style:* **Variable or function name should be snake_case.**
```r
  MUS     <- matrix(ms, nrow = dim(ns)[1], ncol = dim(ns)[2], byrow = T)
  ^~~
```
[R/sls_convolutions.R:109:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L109) *style:* **Variable or function name should be snake_case.**
```r
  TIMES   <- matrix(times, nrow = dim(ns)[1], ncol = dim(ns)[2], byrow = T)
  ^~~~~
```
[R/sls_convolutions.R:140:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L140) *style:* **Variable or function name should be snake_case.**
```r
  N <- length(times)
  ^
```
[R/sls_convolutions.R:141:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_convolutions.R#L141) *style:* **Variable or function name should be snake_case.**
```r
  X <- vector("list", N)
  ^
```
[R/sls_likelihoods_bisse.R:20:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_bisse.R#L20) *style:* **Variable or function name should be snake_case.**
```r
  DD <- (exp_factor * d_0 * (lambda - mu) ^ 2) / denominator ^ 2
  ^~
```
[R/sls_likelihoods_bisse.R:74:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_bisse.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  BRTS <- sort(c(brts, t_p, t_ds), decreasing = TRUE)
  ^~~~
```
[R/sls_likelihoods_bisse.R:98:9:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_bisse.R#L98) *style:* **Variable or function name should be snake_case.**
```r
        DS0 <- d_0s
        ^~~
```
[R/sls_likelihoods_bisse.R:100:9:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_bisse.R#L100) *style:* **Variable or function name should be snake_case.**
```r
        DS0 <- d_0s[which[t_ds == t_f]]
        ^~~
```
[R/sls_likelihoods_bisse.R:134:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_bisse.R#L134) *style:* **Variable or function name should be snake_case.**
```r
  BRTS <- c(rep(brts[1], n_0 - 1), brts)
  ^~~~
```
[R/sls_likelihoods_div.R:40:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L40) *style:* **Variable or function name should be snake_case.**
```r
  BRTSM <- rbind(
  ^~~~~
```
[R/sls_likelihoods_div.R:44:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L44) *style:* **Variable or function name should be snake_case.**
```r
  TD <- c(t_d, -1); dim(TD) <- c(2, 1)
  ^~
```
[R/sls_likelihoods_div.R:45:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  EVENTSM <- (M <- cbind(BRTSM, TD))[, order(-M[1, ])]
  ^~~~~~~
```
[R/sls_likelihoods_div.R:45:15:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  EVENTSM <- (M <- cbind(BRTSM, TD))[, order(-M[1, ])]
              ^
```
[R/sls_likelihoods_div.R:60:28:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L60) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (length(ts_m_pre_shift ) == 0) {
                           ^
```
[R/sls_likelihoods_div.R:104:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L104) *style:* **Variable or function name should be snake_case.**
```r
  Pc <- sls::pc_1shift(
  ^~
```
[R/sls_likelihoods_div.R:164:10:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L164) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  while ( (clade <- clade + 1) <= n_clades) {
         ^
```
[R/sls_likelihoods_div.R:168:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L168) *style:* **Variable or function name should be snake_case.**
```r
    K      <- ks[clade]
    ^
```
[R/sls_likelihoods_div.R:226:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L226) *style:* **Variable or function name should be snake_case.**
```r
    P  <- vm * q_t[t, (missnumspec[clade] + 1)]
    ^
```
[R/sls_likelihoods_div.R:239:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_div.R#L239) *style:* **Variable or function name should be snake_case.**
```r
  Pc <- sls::pc_1shift(
  ^~
```
[R/sls_likelihoods_nee.R:7:17:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nee.R#L7) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
pt  <- function (lambda, mu, t) {
                ^
```
[R/sls_likelihoods_nee.R:9:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nee.R#L9) *style:* **Variable or function name should be snake_case.**
```r
  Lambda <- exp(
  ^~~~~~
```
[R/sls_likelihoods_nee.R:26:17:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nee.R#L26) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
ut  <- function (lambda, mu, t) {
                ^
```
[R/sls_likelihoods_nee.R:28:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nee.R#L28) *style:* **Variable or function name should be snake_case.**
```r
  Lambda <- exp(
  ^~~~~~
```
[R/sls_likelihoods_nodiv.R:29:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nodiv.R#L29) *style:* **Variable or function name should be snake_case.**
```r
  BRTSM <- rbind(
  ^~~~~
```
[R/sls_likelihoods_nodiv.R:33:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nodiv.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  TD <- c(t_d, -1); dim(TD) <- c(2, 1)
  ^~
```
[R/sls_likelihoods_nodiv.R:45:28:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nodiv.R#L45) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if (length(ts_m_pre_shift ) == 0) {
                           ^
```
[R/sls_likelihoods_nodiv.R:143:10:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nodiv.R#L143) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  while ( (clade <- clade + 1) <= n_clades ) {
         ^
```
[R/sls_likelihoods_nodiv.R:143:43:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nodiv.R#L143) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  while ( (clade <- clade + 1) <= n_clades ) {
                                          ^
```
[R/sls_likelihoods_nodiv.R:147:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nodiv.R#L147) *style:* **Variable or function name should be snake_case.**
```r
    K      <- ks[clade]
    ^
```
[R/sls_likelihoods_nodiv.R:205:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_likelihoods_nodiv.R#L205) *style:* **Variable or function name should be snake_case.**
```r
    P  <- vm * q_t[t, (missnumspec[clade] + 1)]
    ^
```
[R/sls_loglik_choosepar.R:35:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_loglik_choosepar.R#L35) *style:* **Variable or function name should be snake_case.**
```r
  Npars <- length(namepars)
  ^~~~~
```
[R/sls_loglik_choosepar.R:58:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_loglik_choosepar.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  first_S_branch <- ifelse(length(brts_s) != 0, max(abs(brts_s)), 0)
  ^~~~~~~~~~~~~~
```
[R/sls_ML_cluster.R:56:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_ML_cluster.R#L56) *style:* **Variable or function name should be snake_case.**
```r
  NM <- (soc - 1) + length(brts_m)
  ^~
```
[R/sls_ML_cluster.R:57:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_ML_cluster.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  NS <- 1 + length(brts_s)
  ^~
```
[R/sls_ML_cluster.R:91:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_ML_cluster.R#L91) *style:* **Variable or function name should be snake_case.**
```r
    MLE_1 <- unlist(
    ^~~~~
```
[R/sls_ML_cluster.R:166:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_ML_cluster.R#L166) *style:* **Variable or function name should be snake_case.**
```r
  NM <- (soc - 1) + length(brts_m)
  ^~
```
[R/sls_ML_cluster.R:167:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_ML_cluster.R#L167) *style:* **Variable or function name should be snake_case.**
```r
  NS <- 1 + length(brts_s)
  ^~
```
[R/sls_ML_cluster.R:197:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_ML_cluster.R#L197) *style:* **Variable or function name should be snake_case.**
```r
  MLE_1 <- unlist(
  ^~~~~
```
[R/sls_ML_cluster.R:230:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_ML_cluster.R#L230) *style:* **Variable or function name should be snake_case.**
```r
  MLE_2 <- unlist(
  ^~~~~
```
[R/sls_sim_utils.R:9:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L9) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_pars <- function(
^~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:46:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L46) *style:* **Variable and function names should not be longer than 30 characters.**
```r
sls_sim.initialize_data_new_clade <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:46:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L46) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.initialize_data_new_clade <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:76:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L76) *style:* **Variable or function name should be snake_case.**
```r
    Lmother <- l_1[[motherclade]]
    ^~~~~~~
```
[R/sls_sim_utils.R:83:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L83) *style:* **Variable or function name should be snake_case.**
```r
    L <- matrix(0, nrow = l_matrix_size, 5)
    ^
```
[R/sls_sim_utils.R:123:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L123) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.sample_deltas <- function(
^~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:132:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L132) *style:* **Variable or function name should be snake_case.**
```r
  PARS   <- pars[[clade]]
  ^~~~
```
[R/sls_sim_utils.R:136:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L136) *style:* **Variable or function name should be snake_case.**
```r
  N <- length(pool)
  ^
```
[R/sls_sim_utils.R:160:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L160) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.decide_event <- function(
^~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:170:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L170) *style:* **Variable or function name should be snake_case.**
```r
  L <- l_1[[clade]]
  ^
```
[R/sls_sim_utils.R:187:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L187) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if ( (t - delta_t) < 0 ) {
      ^
```
[R/sls_sim_utils.R:187:25:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L187) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  if ( (t - delta_t) < 0 ) {
                        ^
```
[R/sls_sim_utils.R:210:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L210) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.use_event <- function(
^~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:220:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L220) *style:* **Variable or function name should be snake_case.**
```r
  L <- data$l_1[[clade]]
  ^
```
[R/sls_sim_utils.R:222:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L222) *style:* **Variable or function name should be snake_case.**
```r
  N <- length(pool)
  ^
```
[R/sls_sim_utils.R:244:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L244) *style:* **Variable or function name should be snake_case.**
```r
    L <- data$l_1[[clade]]
    ^
```
[R/sls_sim_utils.R:246:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L246) *style:* **Variable or function name should be snake_case.**
```r
    N <- length(pool)
    ^
```
[R/sls_sim_utils.R:279:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L279) *style:* **Variable or function name should be snake_case.**
```r
    L2 <- sls_sim.cut_l_matrix(L)
    ^~
```
[R/sls_sim_utils.R:280:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L280) *style:* **Variable or function name should be snake_case.**
```r
    L <- L2
    ^
```
[R/sls_sim_utils.R:314:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L314) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.check_survival <- function(
^~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:315:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L315) *style:* **Variable or function name should be snake_case.**
```r
  L,
  ^
```
[R/sls_sim_utils.R:332:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L332) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.conditioning <- function(
^~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:347:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L347) *style:* **Variable or function name should be snake_case.**
```r
    L <- l_1[[clade]]
    ^
```
[R/sls_sim_utils.R:363:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L363) *style:* **Variable or function name should be snake_case.**
```r
      L_left  <- L[coords_left, ]; dim(L_left)  <- c(sum(coords_left), 5)
      ^~~~~~
```
[R/sls_sim_utils.R:364:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L364) *style:* **Variable or function name should be snake_case.**
```r
      L_right <- L[coords_right, ]; dim(L_right) <- c(sum(coords_right), 5)
      ^~~~~~~
```
[R/sls_sim_utils.R:374:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L374) *style:* **Variable or function name should be snake_case.**
```r
      L_left_cs  <- L_left[coords_left_cs, ]
      ^~~~~~~~~
```
[R/sls_sim_utils.R:379:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L379) *style:* **Variable or function name should be snake_case.**
```r
      L_right_cs <- L_right[coords_right_cs, ]
      ^~~~~~~~~~
```
[R/sls_sim_utils.R:402:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L402) *style:* **Variable or function name should be snake_case.**
```r
      L <- l_1[[clade]]
      ^
```
[R/sls_sim_utils.R:430:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L430) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_brts <- function(
^~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:446:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L446) *style:* **Variable or function name should be snake_case.**
```r
      L <- sls_sim.cut_l_matrix(
      ^
```
[R/sls_sim_utils.R:484:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L484) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.read_l_1 <- function(
^~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:492:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L492) *style:* **Variable or function name should be snake_case.**
```r
    L <- l_1[[i]]
    ^
```
[R/sls_sim_utils.R:504:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L504) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_standard_l_2 <- function(
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:539:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L539) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_shifts_info <- function(
^~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:556:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L556) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_t_0 <- function(
^~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:570:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L570) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_n_0 <- function(
^~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:584:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L584) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_motherclade <- function(
^~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:598:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L598) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.get_pool <- function(
^~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:599:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L599) *style:* **Variable or function name should be snake_case.**
```r
  L
  ^
```
[R/sls_sim_utils.R:612:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L612) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.cut_l_matrix <- function(
^~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:613:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L613) *style:* **Variable or function name should be snake_case.**
```r
  L
  ^
```
[R/sls_sim_utils.R:620:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L620) *style:* **Variable or function name should be snake_case.**
```r
    L2 <- L[1:n_max, ]
    ^~
```
[R/sls_sim_utils.R:621:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L621) *style:* **Variable or function name should be snake_case.**
```r
    cols_L <- ncol(L)
    ^~~~~~
```
[R/sls_sim_utils.R:624:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L624) *style:* **Variable or function name should be snake_case.**
```r
    L2 <- L
    ^~
```
[R/sls_sim_utils.R:625:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L625) *style:* **Variable or function name should be snake_case.**
```r
    cols_L <- length(L)
    ^~~~~~
```
[R/sls_sim_utils.R:637:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L637) *style:* **Variable or function name should be snake_case.**
```r
sls_sim.adapt_l_matrix_size <- function(
^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/sls_sim_utils.R:642:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L642) *style:* **Variable or function name should be snake_case.**
```r
  L <- data$l_1[[clade]]
  ^
```
[R/sls_sim_utils.R:644:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L644) *style:* **Variable or function name should be snake_case.**
```r
    append_L <- matrix(0, nrow = nrow(L), ncol = ncol(L))
    ^~~~~~~~
```
[R/sls_sim_utils.R:646:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_sim_utils.R#L646) *style:* **Variable or function name should be snake_case.**
```r
    L2 <- rbind(L, append_L)
    ^~
```
[R/sls_utils.R:7:1:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_utils.R#L7) *style:* **Variable or function name should be snake_case.**
```r
P_transition_matrix <- function(
^~~~~~~~~~~~~~~~~~~
```
[R/sls_utils.R:13:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/R/sls_utils.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  M <- matrix(0, nrow = matrix_size, ncol = matrix_size)
  ^
```
[tests/testthat/test-conditionings.R:14:39:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L14) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    p_ns_cs * (1 - (p_0_sp) ^ (ns - 1) )
                                      ^
```
[tests/testthat/test-conditionings.R:43:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L43) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:50:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L50) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:67:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L67) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:74:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:91:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L91) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:98:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L98) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:118:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L118) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:125:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:142:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L142) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:149:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L149) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:166:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L166) *style:* **Variable or function name should be snake_case.**
```r
  Pc1 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:173:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L173) *style:* **Variable or function name should be snake_case.**
```r
  Pc3 <- sls::pc_1shift(
  ^~~
```
[tests/testthat/test-conditionings.R:185:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L185) *style:* **Variable or function name should be snake_case.**
```r
  diff_Pc_vs_DDD <- function(
  ^~~~~~~~~~~~~~
```
[tests/testthat/test-conditionings.R:219:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L219) *style:* **Variable or function name should be snake_case.**
```r
      DDDloglik0 <- DDD::dd_KI_loglik(
      ^~~~~~~~~~
```
[tests/testthat/test-conditionings.R:227:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L227) *style:* **Variable or function name should be snake_case.**
```r
      DDDloglik1 <- DDD::dd_KI_loglik(
      ^~~~~~~~~~
```
[tests/testthat/test-conditionings.R:235:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L235) *style:* **Variable or function name should be snake_case.**
```r
      Pc <- sls::pc_1shift(
      ^~
```
[tests/testthat/test-conditionings.R:243:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-conditionings.R#L243) *style:* **Variable or function name should be snake_case.**
```r
      DDD_Pc <- (DDDloglik0 - DDDloglik1)
      ^~~~~~
```
[tests/testthat/test-loglik-BISSE.R:3:11:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-BISSE.R#L3) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
test_that( "test bisse and DDD logliks equivalence", {
          ^
```
[tests/testthat/test-loglik-BISSE.R:22:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-BISSE.R#L22) *style:* **Variable or function name should be snake_case.**
```r
    Delta_ddd   <- ddd1 - ddd2
    ^~~~~~~~~
```
[tests/testthat/test-loglik-BISSE.R:23:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-BISSE.R#L23) *style:* **Variable or function name should be snake_case.**
```r
    Deltabisse <- bisse1 - bisse2
    ^~~~~~~~~~
```
[tests/testthat/test-loglik-BISSE.R:56:11:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-BISSE.R#L56) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
test_that( "test bisse alternative functions", {
          ^
```
[tests/testthat/test-loglik-division.R:3:11:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-division.R#L3) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
test_that( "all the likelihoods with division yield the same result", {
          ^
```
[tests/testthat/test-loglik-division.R:24:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-division.R#L24) *style:* **Variable or function name should be snake_case.**
```r
    res1.1 <- fun1(
    ^~~~~~
```
[tests/testthat/test-loglik-division.R:33:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-division.R#L33) *style:* **Variable or function name should be snake_case.**
```r
    res2.1 <- fun2(
    ^~~~~~
```
[tests/testthat/test-loglik-division.R:42:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-division.R#L42) *style:* **Variable or function name should be snake_case.**
```r
    res1.2 <- res2.2 <- 0
    ^~~~~~
```
[tests/testthat/test-loglik-division.R:42:15:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-division.R#L42) *style:* **Variable or function name should be snake_case.**
```r
    res1.2 <- res2.2 <- 0
              ^~~~~~
```
[tests/testthat/test-loglik-division.R:46:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-division.R#L46) *style:* **Variable or function name should be snake_case.**
```r
      res1.2 <- fun1(
      ^~~~~~
```
[tests/testthat/test-loglik-division.R:55:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-division.R#L55) *style:* **Variable or function name should be snake_case.**
```r
      res2.2 <- fun2(
      ^~~~~~
```
[tests/testthat/test-loglik-division.R:72:3:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-division.R#L72) *style:* **Variable or function name should be snake_case.**
```r
  test.diff <- function(
  ^~~~~~~~~
```
[tests/testthat/test-loglik-nodivision.R:3:11:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-nodivision.R#L3) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
test_that( "all the likelihoods with no division yield the same result", {
          ^
```
[tests/testthat/test-loglik-nodivision.R:23:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-nodivision.R#L23) *style:* **Variable or function name should be snake_case.**
```r
    res1.1 <- fun1(
    ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:32:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-nodivision.R#L32) *style:* **Variable or function name should be snake_case.**
```r
    res2.1 <- fun2(
    ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:41:5:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-nodivision.R#L41) *style:* **Variable or function name should be snake_case.**
```r
    res1.2 <- res2.2 <- 0
    ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:41:15:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-nodivision.R#L41) *style:* **Variable or function name should be snake_case.**
```r
    res1.2 <- res2.2 <- 0
              ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:45:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-nodivision.R#L45) *style:* **Variable or function name should be snake_case.**
```r
      res1.2 <- fun1(pars_m = pars_m2,
      ^~~~~~
```
[tests/testthat/test-loglik-nodivision.R:53:7:](https://github.com/Giappo/sls/blob/5a9b64eff91917508849f6f5b7395e095650796e/tests/testthat/test-loglik-nodivision.R#L53) *style:* **Variable or function name should be snake_case.**
```r
      res2.2 <- fun2(
      ^~~~~~
```


Why you did not use Arrow Function ?


ok


Thanks for the feedback. I have included the asciinema screencast (not sure the URLs are correct) and also checked in the pngs. However the image URLs have not been changed yet.