{"comment":{"url":"https://api.github.com/repos/thijsjanzen/junctions/comments/31384907","html_url":"https://github.com/thijsjanzen/junctions/commit/097438344bab2291ec8ad3a4894ac9ed66cd0992#commitcomment-31384907","id":31384907,"node_id":"MDEzOkNvbW1pdENvbW1lbnQzMTM4NDkwNw==","user":{"login":"lintr-bot","id":10925265,"node_id":"MDQ6VXNlcjEwOTI1MjY1","avatar_url":"https://avatars3.githubusercontent.com/u/10925265?v=4","gravatar_id":"","url":"https://api.github.com/users/lintr-bot","html_url":"https://github.com/lintr-bot","followers_url":"https://api.github.com/users/lintr-bot/followers","following_url":"https://api.github.com/users/lintr-bot/following{/other_user}","gists_url":"https://api.github.com/users/lintr-bot/gists{/gist_id}","starred_url":"https://api.github.com/users/lintr-bot/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/lintr-bot/subscriptions","organizations_url":"https://api.github.com/users/lintr-bot/orgs","repos_url":"https://api.github.com/users/lintr-bot/repos","events_url":"https://api.github.com/users/lintr-bot/events{/privacy}","received_events_url":"https://api.github.com/users/lintr-bot/received_events","type":"User","site_admin":false},"position":null,"line":null,"path":null,"commit_id":"097438344bab2291ec8ad3a4894ac9ed66cd0992","created_at":"2018-11-21T16:37:12Z","updated_at":"2018-11-21T16:37:12Z","author_association":"NONE","body":"[R/calc_K.R:1:20:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calc_K.R#L1) *style:* **Variable or function name should be snake_case.**\n```r\n​calc_k <- function(N = Inf,\n                   ^\n```\n[R/calc_K.R:2:20:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calc_K.R#L2) *style:* **Variable or function name should be snake_case.**\n```r\n​                   R = Inf,\n                   ^\n```\n[R/calc_K.R:3:20:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calc_K.R#L3) *style:* **Variable or function name should be snake_case.**\n```r\n​                   H_0 = 0.5,\n                   ^~~\n```\n[R/calc_K.R:6:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calc_K.R#L6) *style:* **Variable or function name should be snake_case.**\n```r\n​  K <- H_0 * C * 2 * N * R / (2 * N * C + R)\n  ^\n```\n[R/calc_K.R:9:5:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calc_K.R#L9) *style:* **Variable or function name should be snake_case.**\n```r\n​    K <- H_0 * R\n    ^\n```\n[R/calc_K.R:13:5:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calc_K.R#L13) *style:* **Variable or function name should be snake_case.**\n```r\n​    K <- H_0 * C * 2 * N\n    ^\n```\n[R/calc_K.R:17:5:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calc_K.R#L17) *style:* **Variable or function name should be snake_case.**\n```r\n​    K <- Inf\n    ^\n```\n[R/calculate_error.R:1:24:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_error.R#L1) *style:* **Variable or function name should be snake_case.**\n```r\n​time_error <- function(J = NA,\n                       ^\n```\n[R/calculate_error.R:2:24:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_error.R#L2) *style:* **Variable or function name should be snake_case.**\n```r\n​                       N = Inf,\n                       ^\n```\n[R/calculate_error.R:3:24:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_error.R#L3) *style:* **Variable or function name should be snake_case.**\n```r\n​                       R = Inf,\n                       ^\n```\n[R/calculate_error.R:4:24:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_error.R#L4) *style:* **Variable or function name should be snake_case.**\n```r\n​                       H_0 = 0.5,\n                       ^~~\n```\n[R/calculate_error.R:10:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_error.R#L10) *style:* **Variable or function name should be snake_case.**\n```r\n​  K <- junctions::calc_k(N, R, H_0, C)\n  ^\n```\n[R/calculate_error.R:16:7:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_error.R#L16) *style:* **Do not place spaces around code in parentheses or square brackets.**\n```r\n​  if ( relative) return(  error)\n      ^\n```\n[R/calculate_error.R:16:25:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_error.R#L16) *style:* **Do not place spaces around code in parentheses or square brackets.**\n```r\n​  if ( relative) return(  error)\n                        ^\n```\n[R/calculate_error.R:17:26:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_error.R#L17) *style:* **Put spaces around all infix operators.**\n```r\n​  if (!relative) return(t*error)\n                        ~^~\n```\n[R/calculate_J.R:1:33:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L1) *style:* **Variable or function name should be snake_case.**\n```r\n​number_of_junctions <- function(N = Inf,\n                                ^\n```\n[R/calculate_J.R:2:33:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L2) *style:* **Variable or function name should be snake_case.**\n```r\n​                                R = Inf,\n                                ^\n```\n[R/calculate_J.R:3:33:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L3) *style:* **Variable or function name should be snake_case.**\n```r\n​                                H_0 = 0.5,\n                                ^~~\n```\n[R/calculate_J.R:16:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L16) *style:* **Variable or function name should be snake_case.**\n```r\n​  K <- junctions::calc_k(N, R, H_0, C)\n  ^\n```\n[R/calculate_J.R:22:36:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L22) *style:* **Variable or function name should be snake_case.**\n```r\n​number_of_junctions_di <- function(N = Inf,\n                                   ^\n```\n[R/calculate_J.R:23:36:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L23) *style:* **Variable or function name should be snake_case.**\n```r\n​                                   H_0 = 0.5,\n                                   ^~~\n```\n[R/calculate_J.R:28:4:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L28) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​ if(is.infinite(N)) local_k <- H_0 * C\n   ^\n```\n[R/calculate_J.R:30:44:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L30) *style:* **Put spaces around all infix operators.**\n```r\n​ local_j <- local_k - local_k * (1 - 1 / (2*N) - di)^t\n                                          ~^~\n```\n[R/calculate_J.R:35:41:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L35) *style:* **Variable or function name should be snake_case.**\n```r\n​number_of_junctions_markers <- function(N = Inf,\n                                        ^\n```\n[R/calculate_J.R:36:41:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L36) *style:* **Variable or function name should be snake_case.**\n```r\n​                                        H_0 = 0.5,\n                                        ^~~\n```\n[R/calculate_J.R:41:5:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L41) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(length(marker_distribution) < 2) {\n    ^\n```\n[R/calculate_J.R:46:6:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L46) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  for(i in 2:length(marker_distribution)) {\n     ^\n```\n[R/calculate_J.R:47:57:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L47) *style:* **Put spaces around all infix operators.**\n```r\n​    di <- marker_distribution[i] - marker_distribution[i-1]\n                                                       ~^~\n```\n[R/calculate_J.R:48:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L48) *warning:* **no visible global function definition for ‘number_of_junctions_di’**\n```r\n​    expected_junctions <- number_of_junctions_di(N, H_0, C, t, di)\n                          ^~~~~~~~~~~~~~~~~~~~~~\n```\n[R/calculate_J.R:53:1:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L53) *style:* **Trailing blank lines are superfluous.**\n```r\n​\n^\n```\n[R/calculate_J.R:54:1:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_J.R#L54) *style:* **Trailing blank lines are superfluous.**\n```r\n​\n^\n```\n[R/calculate_MAT.R:1:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_MAT.R#L1) *style:* **Variable or function name should be snake_case.**\n```r\n​calculate_mat <- function(N = Inf, \n                          ^\n```\n[R/calculate_MAT.R:1:35:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_MAT.R#L1) *style:* **Trailing whitespace is superfluous.**\n```r\n​calculate_mat <- function(N = Inf, \n                                  ^\n```\n[R/calculate_MAT.R:2:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_MAT.R#L2) *style:* **Variable or function name should be snake_case.**\n```r\n​                          R = Inf, \n                          ^\n```\n[R/calculate_MAT.R:2:35:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_MAT.R#L2) *style:* **Trailing whitespace is superfluous.**\n```r\n​                          R = Inf, \n                                  ^\n```\n[R/calculate_MAT.R:3:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_MAT.R#L3) *style:* **Variable or function name should be snake_case.**\n```r\n​                          H_0 = 0.5, \n                          ^~~\n```\n[R/calculate_MAT.R:3:37:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_MAT.R#L3) *style:* **Trailing whitespace is superfluous.**\n```r\n​                          H_0 = 0.5, \n                                    ^\n```\n[R/calculate_MAT.R:9:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_MAT.R#L9) *style:* **Variable or function name should be snake_case.**\n```r\n​  K <- junctions::calc_k(N, R, H_0, C)\n  ^\n```\n[R/calculate_time.R:1:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L1) *style:* **Variable or function name should be snake_case.**\n```r\n​estimate_time <- function(J = NA,\n                          ^\n```\n[R/calculate_time.R:2:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L2) *style:* **Variable or function name should be snake_case.**\n```r\n​                          N = Inf,\n                          ^\n```\n[R/calculate_time.R:3:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L3) *style:* **Variable or function name should be snake_case.**\n```r\n​                          R = Inf,\n                          ^\n```\n[R/calculate_time.R:4:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L4) *style:* **Variable or function name should be snake_case.**\n```r\n​                          H_0 = 0.5,\n                          ^~~\n```\n[R/calculate_time.R:16:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L16) *style:* **Variable or function name should be snake_case.**\n```r\n​  K <- junctions::calc_k(N, R, H_0, C)\n  ^\n```\n[R/calculate_time.R:25:35:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L25) *style:* **Variable or function name should be snake_case.**\n```r\n​estimate_time_markers <- function(J = NA,\n                                  ^\n```\n[R/calculate_time.R:26:35:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L26) *style:* **Variable or function name should be snake_case.**\n```r\n​                                  N = Inf,\n                                  ^\n```\n[R/calculate_time.R:27:35:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L27) *style:* **Variable or function name should be snake_case.**\n```r\n​                                  H_0 = 0.5,\n                                  ^~~\n```\n[R/calculate_time.R:45:53:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/calculate_time.R#L45) *style:* **Do not place spaces around code in parentheses or square brackets.**\n```r\n​  fitted <- optimize(to_fit, interval = c(2, 100000) )\n                                                    ^\n```\n[R/RcppExports.R:7:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/RcppExports.R#L7) *style:* **Variable or function name should be snake_case.**\n```r\n​                          size_in_Morgan,\n                          ^~~~~~~~~~~~~~\n```\n[R/RcppExports.R:8:33:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/RcppExports.R#L8) *style:* **Variable or function name should be snake_case.**\n```r\n​                          seed, R) {\n                                ^\n```\n[R/RcppExports.R:9:11:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/RcppExports.R#L9) *style:* **Only use double-quotes.**\n```r\n​    .Call('_junctions_sim_fin_chrom', PACKAGE = 'junctions',\n          ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/RcppExports.R:9:49:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/RcppExports.R#L9) *style:* **Only use double-quotes.**\n```r\n​    .Call('_junctions_sim_fin_chrom', PACKAGE = 'junctions',\n                                                ^~~~~~~~~~~\n```\n[R/RcppExports.R:14:37:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/RcppExports.R#L14) *style:* **Variable or function name should be snake_case.**\n```r\n​                          run_time, size_in_Morgan, markers, seed) {\n                                    ^~~~~~~~~~~~~~\n```\n[R/RcppExports.R:15:11:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/RcppExports.R#L15) *style:* **Only use double-quotes.**\n```r\n​    .Call('_junctions_sim_inf_chrom', PACKAGE = 'junctions',\n          ^~~~~~~~~~~~~~~~~~~~~~~~~~\n```\n[R/RcppExports.R:15:49:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/RcppExports.R#L15) *style:* **Only use double-quotes.**\n```r\n​    .Call('_junctions_sim_inf_chrom', PACKAGE = 'junctions',\n                                                ^~~~~~~~~~~\n```\n[R/RcppExports.R:19:1:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/RcppExports.R#L19) *style:* **Trailing blank lines are superfluous.**\n```r\n​\n^\n```\n[R/sim_fin_chrom.R:1:27:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/sim_fin_chrom.R#L1) *style:* **Remove spaces before the left parenthesis in a function call.**\n```r\n​sim_fin_chrom <- function (pop_size = 100,\n                          ^\n```\n[R/sim_fin_chrom.R:6:28:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/R/sim_fin_chrom.R#L6) *style:* **Variable or function name should be snake_case.**\n```r\n​                           R = 100) {\n                           ^\n```\n[tests/testthat/test-equations.R:11:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-equations.R#L11) *style:* **Variable or function name should be snake_case.**\n```r\n​  A <- is.infinite(v3)\n  ^\n```\n[tests/testthat/test-equations.R:17:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-equations.R#L17) *style:* **Variable or function name should be snake_case.**\n```r\n​  maxT <- 200\n  ^~~~\n```\n[tests/testthat/test-equations.R:18:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-equations.R#L18) *style:* **Variable or function name should be snake_case.**\n```r\n​  J <- junctions::number_of_junctions(N = 100, R = 1000, \n  ^\n```\n[tests/testthat/test-equations.R:18:57:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-equations.R#L18) *style:* **Trailing whitespace is superfluous.**\n```r\n​  J <- junctions::number_of_junctions(N = 100, R = 1000, \n                                                        ^\n```\n[tests/testthat/test-equations.R:21:57:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-equations.R#L21) *style:* **Trailing whitespace is superfluous.**\n```r\n​  time_estim <- junctions::estimate_time(J = J, N = 100, \n                                                        ^\n```\n[tests/testthat/test-equations.R:22:62:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-equations.R#L22) *style:* **Trailing whitespace is superfluous.**\n```r\n​                                         R = 1000, H_0 = 0.5, \n                                                             ^\n```\n[tests/testthat/test-marker_dist.R:4:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L4) *style:* **Variable or function name should be snake_case.**\n```r\n​  R <- 1000\n  ^\n```\n[tests/testthat/test-marker_dist.R:8:20:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L8) *style:* **Commas should always have a space after.**\n```r\n​  markers <- seq(0,1, length.out = R+1)\n                   ^\n```\n[tests/testthat/test-marker_dist.R:8:37:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​  markers <- seq(0,1, length.out = R+1)\n                                   ~^~\n```\n[tests/testthat/test-marker_dist.R:16:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L16) *style:* **Variable or function name should be snake_case.**\n```r\n​  N <- 1e3\n  ^\n```\n[tests/testthat/test-marker_dist.R:17:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L17) *style:* **Variable or function name should be snake_case.**\n```r\n​  R <- 1000\n  ^\n```\n[tests/testthat/test-marker_dist.R:23:6:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L23) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  for(r in seq_len(num_repl)) {\n     ^\n```\n[tests/testthat/test-marker_dist.R:43:11:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L43) *style:* **Commas should always have a space after.**\n```r\n​    cat(r,\"\\n\")\n          ^\n```\n[tests/testthat/test-marker_dist.R:49:6:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L49) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  for(i in seq_along(found_obs)) {\n     ^\n```\n[tests/testthat/test-marker_dist.R:63:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L63) *style:* **Variable or function name should be snake_case.**\n```r\n​  N <- 1e3\n  ^\n```\n[tests/testthat/test-marker_dist.R:64:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L64) *style:* **Variable or function name should be snake_case.**\n```r\n​  R <- 1000\n  ^\n```\n[tests/testthat/test-marker_dist.R:68:6:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L68) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  for(r in seq_len(num_repl)) {\n     ^\n```\n[tests/testthat/test-marker_dist.R:85:11:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-marker_dist.R#L85) *style:* **Commas should always have a space after.**\n```r\n​    cat(r,\"\\n\")\n          ^\n```\n[tests/testthat/test-sims.R:4:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L4) *style:* **Variable or function name should be snake_case.**\n```r\n​  R <- 100 #chromosome size\n  ^\n```\n[tests/testthat/test-sims.R:5:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L5) *style:* **Variable or function name should be snake_case.**\n```r\n​  N <- 100 #population size\n  ^\n```\n[tests/testthat/test-sims.R:6:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L6) *style:* **Variable or function name should be snake_case.**\n```r\n​  H_0 <- 0.5 #initial heterozygosity\n  ^~~\n```\n[tests/testthat/test-sims.R:8:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L8) *style:* **Variable or function name should be snake_case.**\n```r\n​  maxT <- 1000\n  ^~~~\n```\n[tests/testthat/test-sims.R:14:46:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L14) *style:* **Do not place spaces around code in parentheses or square brackets.**\n```r\n​    v <- rbind(v, as.numeric(v2$avgJunctions) )\n                                             ^\n```\n[tests/testthat/test-sims.R:29:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L29) *style:* **Variable or function name should be snake_case.**\n```r\n​  N <- 50 #population size\n  ^\n```\n[tests/testthat/test-sims.R:30:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L30) *style:* **Variable or function name should be snake_case.**\n```r\n​  H_0 <- 0.5 #initial heterozygosity\n  ^~~\n```\n[tests/testthat/test-sims.R:32:3:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L32) *style:* **Variable or function name should be snake_case.**\n```r\n​  maxT <- 1000\n  ^~~~\n```\n[tests/testthat/test-sims.R:38:46:](https://github.com/thijsjanzen/junctions/blob/097438344bab2291ec8ad3a4894ac9ed66cd0992/tests/testthat/test-sims.R#L38) *style:* **Do not place spaces around code in parentheses or square brackets.**\n```r\n​    v <- rbind(v, as.numeric(v2$avgJunctions) )\n                                             ^\n```"}}
{"actor":{"display_login":"lintr-bot"}}