[R/parDist.R:23:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L23) *style:* **Lines should not be more than 80 characters.**
```r
parDist <- parallelDist <- function(x, method = "euclidean", diag = FALSE, upper = FALSE, threads = NULL, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:23:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L23) *style:* **Variable or function name should be snake_case.**
```r
parDist <- parallelDist <- function(x, method = "euclidean", diag = FALSE, upper = FALSE, threads = NULL, ...) {
^~~~~~~
```
[R/parDist.R:23:12:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L23) *style:* **Variable or function name should be snake_case.**
```r
parDist <- parallelDist <- function(x, method = "euclidean", diag = FALSE, upper = FALSE, threads = NULL, ...) {
           ^~~~~~~~~~~~
```
[R/parDist.R:24:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  METHODS <- c("bhjattacharyya", "bray", "canberra", "chord", "divergence",
  ^~~~~~~
```
[R/parDist.R:31:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L31) *style:* **Lines should not be more than 80 characters.**
```r
               "simpson", "stiles", "tanimoto", "yule", "yule2", "cosine", "custom") # w/o "levenshtein"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:32:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  methodIdx <- pmatch(method, METHODS)
  ^~~~~~~~~
```
[R/parDist.R:39:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  step.pattern.name <- getStepPatternName(arguments)
  ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:46:5:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L46) *style:* **Variable or function name should be snake_case.**
```r
    funcPtr <- arguments[["func"]]
    ^~~~~~~
```
[R/parDist.R:58:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  N <- ifelse(is.list(x), length(x), nrow(x))
  ^
```
[R/parDist.R:60:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L60) *style:* **Lines should not be more than 80 characters.**
```r
                method = METHODS[methodIdx], call = match.call(), class = "dist")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:64:5:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L64) *style:* **Variable or function name should be snake_case.**
```r
    methods.first.row.only <- c("chord", "geodesic", "podani")
    ^~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:72:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L72) *style:* **Lines should not be more than 80 characters.**
```r
      return(.Call("_parallelDist_cpp_parallelDistMatrixVec", PACKAGE = "parallelDist",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:80:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L80) *style:* **Variable or function name should be snake_case.**
```r
getType <- function(code) {
^~~~~~~
```
[R/parDist.R:87:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L87) *style:* **Variable or function name should be snake_case.**
```r
getStepPatternName <- function(arguments) {
^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:88:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L88) *style:* **Variable or function name should be snake_case.**
```r
  step.pattern.name <- NA
  ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:89:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L89) *style:* **Lines should not be more than 80 characters.**
```r
  supported.patterns.names <- c("asymmetric", "asymmetricP0", "asymmetricP05", "asymmetricP1", "asymmetricP2",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:89:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L89) *style:* **Variable or function name should be snake_case.**
```r
  supported.patterns.names <- c("asymmetric", "asymmetricP0", "asymmetricP05", "asymmetricP1", "asymmetricP2",
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:90:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L90) *style:* **Lines should not be more than 80 characters.**
```r
                                "symmetric1", "symmetric2", "symmetricP0", "symmetricP05", "symmetricP1", "symmetricP2")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:91:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L91) *style:* **Variable or function name should be snake_case.**
```r
  sp.candidate <- arguments[["step.pattern"]]
  ^~~~~~~~~~~~
```
[R/parDist.R:94:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L94) *style:* **Lines should not be more than 80 characters.**
```r
    if (class(sp.candidate) == "stepPattern" && requireNamespace("dtw", quietly = TRUE))  {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:95:7:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L95) *style:* **Variable or function name should be snake_case.**
```r
      supported.patterns <- list(
      ^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:96:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L96) *style:* **Lines should not be more than 80 characters.**
```r
        dtw::asymmetric, dtw::asymmetricP0, dtw::asymmetricP05, dtw::asymmetricP1, dtw::asymmetricP2,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:97:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L97) *style:* **Lines should not be more than 80 characters.**
```r
        dtw::symmetric1, dtw::symmetric2, dtw::symmetricP0, dtw::symmetricP05, dtw::symmetricP1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:100:7:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L100) *style:* **Variable or function name should be snake_case.**
```r
      sp.found <- sapply(supported.patterns, FUN = function(x){
      ^~~~~~~~
```
[R/parDist.R:110:9:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L110) *style:* **Variable or function name should be snake_case.**
```r
        sp.found <- supported.patterns.names == sp.candidate
        ^~~~~~~~
```
[R/parDist.R:114:7:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L114) *style:* **Variable or function name should be snake_case.**
```r
      step.pattern.name <- supported.patterns.names[which(sp.found)]
      ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:122:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L122) *style:* **Variable or function name should be snake_case.**
```r
checkPtr <- function(ptr) {
^~~~~~~~
```
[R/parDist.R:125:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  actualReturnType <- attr(ptr, "type")
  ^~~~~~~~~~~~~~~~
```
[R/parDist.R:126:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L126) *style:* **Variable or function name should be snake_case.**
```r
  expectedReturnType <- "double"
  ^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:128:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L128) *style:* **Variable or function name should be snake_case.**
```r
  actualArgTypes <- sapply(attr(ptr, "args"), getType, USE.NAMES = FALSE)
  ^~~~~~~~~~~~~~
```
[R/parDist.R:128:47:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L128) *warning:* **no visible binding for global variable ‘getType’**
```r
  actualArgTypes <- sapply(attr(ptr, "args"), getType, USE.NAMES = FALSE)
                                              ^~~~~~~
```
[R/parDist.R:129:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L129) *style:* **Variable or function name should be snake_case.**
```r
  expectedArgTypes <- rep("const arma::mat&", 2)
  ^~~~~~~~~~~~~~~~
```
[R/parDist.R:135:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L135) *style:* **Lines should not be more than 80 characters.**
```r
                               "', should be '", expectedReturnType, "'.")), collapse = "\n")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:139:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L139) *style:* **Lines should not be more than 80 characters.**
```r
    msg <- paste(c(msg, paste0("  Wrong number of arguments ('", length(actualArgTypes),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:145:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/parDist.R#L145) *style:* **Lines should not be more than 80 characters.**
```r
                                 "', should be '", expectedArgTypes[[i]], "'.")), collapse = "\n")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:4:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/RcppExports.R#L4) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistVec <- function(dataList, attrs, arguments) {
^~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:4:33:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/RcppExports.R#L4) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistVec <- function(dataList, attrs, arguments) {
                                ^~~~~~~~
```
[R/RcppExports.R:5:12:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/RcppExports.R#L5) *warning:* **no visible binding for global variable ‘_parallelDist_cpp_parallelDistVec’**
```r
    .Call(`_parallelDist_cpp_parallelDistVec`, dataList, attrs, arguments)
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:8:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/RcppExports.R#L8) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistMatrixVec <- function(dataMatrix, attrs, arguments) {
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:8:39:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/RcppExports.R#L8) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistMatrixVec <- function(dataMatrix, attrs, arguments) {
                                      ^~~~~~~~~~
```
[R/RcppExports.R:9:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/RcppExports.R#L9) *style:* **Lines should not be more than 80 characters.**
```r
    .Call(`_parallelDist_cpp_parallelDistMatrixVec`, dataMatrix, attrs, arguments)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:9:12:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/R/RcppExports.R#L9) *warning:* **no visible binding for global variable ‘_parallelDist_cpp_parallelDistMatrixVec’**
```r
    .Call(`_parallelDist_cpp_parallelDistMatrixVec`, dataMatrix, attrs, arguments)
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat.R:23:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat.R#L23) *style:* **Variable or function name should be snake_case.**
```r
isCran <- function() {
^~~~~~
```
[tests/testthat.R:27:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat.R#L27) *style:* **Lines should not be more than 80 characters.**
```r
# workaround for error "cannot open file 'startup.Rs': No such file or directory"
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L30) *style:* **Lines should not be more than 80 characters.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:33:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, comparisonMethod, func, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:36:40:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, comparisonMethod, func, ...) {
                                       ^~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, comparisonMethod, func, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:41:45:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, comparisonMethod, func, ...) {
                                            ^~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:43:5:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L43) *warning:* **no visible global function definition for ‘testMatrixEquality’**
```r
    testMatrixEquality(x, comparisonMethod, func, ...)
    ^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:49:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L49) *style:* **Lines should not be more than 80 characters.**
```r
  expect_error(parDist(mat.sample1, method = "custom"), "Parameter 'func' is missing.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:52:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L52) *style:* **Lines should not be more than 80 characters.**
```r
test_that("custom euclidean distance method produces same outputs as native method", {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:55:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L55) *style:* **Lines should not be more than 80 characters.**
```r
    "double customDist(const arma::mat &A, const arma::mat &B) { return sqrt(arma::accu(arma::square(A - B))); }",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:62:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L62) *style:* **Lines should not be more than 80 characters.**
```r
  ptr <- cppXPtr("int customDist(const arma::mat &A, const arma::mat &B) { return 0; }", depends = c("RcppArmadillo"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:63:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L63) *style:* **Lines should not be more than 80 characters.**
```r
  expect_error(parDist(mat.sample1, method = "custom", func = ptr), "Wrong return type 'int', should be 'double'.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:68:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L68) *style:* **Lines should not be more than 80 characters.**
```r
  ptr <- cppXPtr("double customDist(int a, const arma::mat &B) { return 0; }", depends = c("RcppArmadillo"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:75:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L75) *style:* **Lines should not be more than 80 characters.**
```r
  ptr <- cppXPtr("double customDist(const arma::mat &A) { return 0; }", depends = c("RcppArmadillo"))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:76:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixCustomDistances.R#L76) *style:* **Lines should not be more than 80 characters.**
```r
  expect_error(parDist(mat.sample1, method = "custom", func = ptr), "Wrong number of arguments \\('1'\\), should be 2.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L30) *style:* **Lines should not be more than 80 characters.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixDistances.R:33:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, method, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:37:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L37) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(matrix, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:37:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L37) *warning:* **no visible global function definition for ‘expect_equal’**
```r
  expect_equal(as.matrix(parDist(matrix, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
  ^~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:37:26:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L37) *warning:* **no visible global function definition for ‘parDist’, Did you mean 'pairlist'?**
```r
  expect_equal(as.matrix(parDist(matrix, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
                         ^~~~~~~
```
[tests/testthat/testMatrixDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:43:5:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L43) *warning:* **no visible global function definition for ‘testMatrixEquality’**
```r
    testMatrixEquality(x, method, ...)
    ^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:48:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L48) *style:* **Lines should not be more than 80 characters.**
```r
  expect_error(parDist(mat.sample1, method = "unknown"), "Invalid distance method")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:52:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L52) *style:* **Lines should not be more than 80 characters.**
```r
  expect_error(parDist(data.frame(c(1:2))), "x must be a matrix or a list of matrices.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:81:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L81) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixListEquality(list(mat.sample1, mat.sample2, mat.sample7), "fJaccard")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:97:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L97) *style:* **Variable or function name should be snake_case.**
```r
  mat.mahalanobis <- cbind(1:6, 1:3)
  ^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:100:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L100) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.mahalanobis, "mahalanobis", cov = solve(cov(mat.mahalanobis)), inverted = TRUE)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:101:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L101) *style:* **Lines should not be more than 80 characters.**
```r
               as.matrix(dist(mat.mahalanobis, method = "mahalanobis", cov = cov(mat.mahalanobis))))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:104:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L104) *style:* **Variable or function name should be snake_case.**
```r
  mat.mahalanobis <- cbind(1:6, 1:3)
  ^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:105:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- list(mat.mahalanobis, mat.mahalanobis)
  ^~~~~~~~
```
[tests/testthat/testMatrixDistances.R:107:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L107) *style:* **Lines should not be more than 80 characters.**
```r
               "Calculation of inverted covariance matrix is only supported for input data in matrix format.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:131:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L131) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample3, method = "soergel"))[1, 2], 0.0049504950495049506)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:133:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L133) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample5, method = "soergel"))[1, 2], -0.010101010101010102)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:141:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L141) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample3, method = "wave"))[1, 2], 0.5205532370853329)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:143:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDistances.R#L143) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample5, method = "wave"))[1, 2], -0.0022262504871707334)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1), nrow = 3)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(c(1:100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(-50:49), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(1:8), ncol = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:29:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L29) *style:* **Variable or function name should be snake_case.**
```r
mat.sample8 <- matrix(c(1:15), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.sample9 <- matrix(c(1, 88, 55, 72, 3, 33, 44, 11, 3, 42, 52,
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:31:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L31) *style:* **Lines should not be more than 80 characters.**
```r
                        29, 3, 45, 34, 21, 34, 59, 35, 84), nrow = 2, byrow = TRUE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:34:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L34) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4,
^~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:35:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L35) *style:* **Lines should not be more than 80 characters.**
```r
                 mat.sample5, mat.sample6, mat.sample7, mat.sample8, mat.sample9)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:38:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L38) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:5]
  ^~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:42:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L42) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, method, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:43:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L43) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(matrix, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:43:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L43) *warning:* **no visible global function definition for ‘expect_equal’**
```r
  expect_equal(as.matrix(parDist(matrix, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
  ^~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:43:26:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L43) *warning:* **no visible global function definition for ‘parDist’, Did you mean 'pairlist'?**
```r
  expect_equal(as.matrix(parDist(matrix, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
                         ^~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:46:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L46) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEqualityForMatList <- function(matlist, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:48:5:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L48) *warning:* **no visible global function definition for ‘testMatrixEquality’**
```r
    testMatrixEquality(x, method, ...)
    ^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:55:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L55) *style:* **Lines should not be more than 80 characters.**
```r
  expect_error(parDist(mat.sample1, method = "dtw", step.pattern = "unknown"), "Step pattern is not supported.")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:59:5:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L59) *style:* **Commented code should be removed.**
```r
  # symmetric1 / symmetric
    ^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:60:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L60) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = symmetric1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:62:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L62) *style:* **Lines should not be more than 80 characters.**
```r
    expect_equal(as.matrix(parDist(x, method = "dtw", window.type = "none", step.pattern = "symmetric1")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:66:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L66) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = symmetric1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:68:5:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L68) *style:* **Commented code should be removed.**
```r
  # symmetric2 / symmetricP0
    ^~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:69:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L69) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = symmetric2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:71:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L71) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = symmetric2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:74:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L74) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = symmetricP05)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:76:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L76) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = symmetricP05)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:79:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L79) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = symmetricP1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:81:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L81) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = symmetricP1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:84:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L84) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = symmetricP2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:86:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L86) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = symmetricP2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:89:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L89) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = asymmetric)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:91:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L91) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = asymmetric)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:94:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L94) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = asymmetricP0)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:96:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L96) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = asymmetricP0)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:99:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L99) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = asymmetricP05)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:101:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L101) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = asymmetricP05)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:104:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L104) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = asymmetricP1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:106:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L106) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = asymmetricP1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:109:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L109) *style:* **Lines should not be more than 80 characters.**
```r
  testMatrixEqualityForMatList(mat.list, method = "dtw", window.type = "none", step.pattern = asymmetricP2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:111:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L111) *style:* **Lines should not be more than 80 characters.**
```r
                               window.type = sakoeChibaWindow, step.pattern = asymmetricP2)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:116:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L116) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample9[1:2, 1:3], method = "dtw", norm.method = "path.length", threads = 1)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:117:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L117) *style:* **Lines should not be more than 80 characters.**
```r
               as.matrix(dist(mat.sample9[1:2, 1:3], method = "dtw", step.pattern = symmetric1)) / 3,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:119:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L119) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample3, method = "dtw", norm.method = "path.length", threads = 1)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:120:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L120) *style:* **Lines should not be more than 80 characters.**
```r
               as.matrix(dist(mat.sample3, method = "dtw", step.pattern = symmetric1)) / 5,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:122:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L122) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample4[c(3, 20), ], method = "dtw", norm.method = "path.length", threads = 1)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:123:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L123) *style:* **Lines should not be more than 80 characters.**
```r
               as.matrix(dist(mat.sample4[c(3, 20), ], method = "dtw", step.pattern = symmetric1)) / 7,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:125:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L125) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample9, method = "dtw", norm.method = "n")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:126:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L126) *style:* **Lines should not be more than 80 characters.**
```r
               as.matrix(dist(mat.sample9, method = "dtw", step.pattern = symmetric1)) / dim(mat.sample9)[2],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:128:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L128) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(mat.sample9, method = "dtw", norm.method = "n+m")),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:129:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixDTWDistances.R#L129) *style:* **Lines should not be more than 80 characters.**
```r
               as.matrix(dist(mat.sample9, method = "dtw", step.pattern = symmetric1)) / (dim(mat.sample9)[2] * 2),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
matToList <- function(matrix, vert=TRUE) {
^~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:37:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L37) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:38:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L38) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:39:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L39) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:40:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L40) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:42:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L42) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:44:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L44) *style:* **Lines should not be more than 80 characters.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:44:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L44) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:45:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L45) *style:* **Variable or function name should be snake_case.**
```r
matlist.list.h <- lapply(mat.list, function(x) matToList(x, vert = FALSE))
^~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:48:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L48) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:49:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L49) *style:* **Variable or function name should be snake_case.**
```r
  matlist.list.h <- lapply(mat.list, function(x) matToList(x, vert = FALSE))
  ^~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:52:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L52) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListMatrixEquality <- function(matList, matrix, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:52:42:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L52) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListMatrixEquality <- function(matList, matrix, method, ...) {
                                         ^~~~~~~
```
[tests/testthat/testMatrixListDistances.R:53:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L53) *style:* **Lines should not be more than 80 characters.**
```r
  expect_equal(as.matrix(parDist(matList, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:53:3:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L53) *warning:* **no visible global function definition for ‘expect_equal’**
```r
  expect_equal(as.matrix(parDist(matList, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
  ^~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:53:26:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L53) *warning:* **no visible global function definition for ‘parDist’, Did you mean 'pairlist'?**
```r
  expect_equal(as.matrix(parDist(matList, method = method, ...)), as.matrix(dist(matrix, method = method, ...)))
                         ^~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:36:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
                                   ^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:49:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
                                                ^~~~~~~
```
[tests/testthat/testMatrixListDistances.R:57:19:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  mapply(function(X, Y) {
                  ^
```
[tests/testthat/testMatrixListDistances.R:57:22:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  mapply(function(X, Y) {
                     ^
```
[tests/testthat/testMatrixListDistances.R:58:5:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L58) *warning:* **no visible global function definition for ‘testMatrixListMatrixEquality’**
```r
    testMatrixListMatrixEquality(X, Y, method, ...)
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:119:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L119) *style:* **Lines should not be more than 80 characters.**
```r
    testMatrixListEquality(matlist.list.h, mat.list, "minkowski", p = as.numeric(p_param))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:128:4:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L128) *style:* **Commented code should be removed.**
```r
#  testMatrixListEquality(matlist.list.h, mat.list, "soergel")
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:132:4:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDistances.R#L132) *style:* **Commented code should be removed.**
```r
#  testMatrixListEquality(matlist.list.h, mat.list, "wave")
   ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/bc4edbf57abe05887c1b62eb73b6475ec7c0eb8c/tests/testthat/testMatrixListDTWDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
matList.sample1 <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
^~~~~~~~~~~~~~~
```


ok. I tried to derive it in pawns.cpp at first, but I was using (or wanting to use) semiopen_files(), which was still being derived when my code was executed. I'll have another look ...


> I think WB picker can be fixed easily. Gonna do a new multiplier thing.

No not as easy as I thought but I have another idea


The thing is that there is no `read_known_nodes` in NodeConfiguration. I assume it means the `known_nodes` attribute


Review could be a Functional Component instead of a class component.  If you make this change, consider destructuring your props so that they can be easily referenced without 'this.props.'


Consider destructuring "response" to avoid writing 'response.data'


Ah this happened


CleanupCMake (Myoldmopar) - Win64-Windows-7-VisualStudio-14: OK (3005 of 3037 tests passed, 0 test warnings)

Failures:

integration Test Summary
 * Passed: 602
 * Failed: 31

regression Test Summary
 * Passed: 630
 * Failed: 1

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png) ![Test Badge](http://img.shields.io/badge/tests%20passed-98.95%25-yellow.png)


SECONDARY squid


[R/parDist.R:23:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L23) *style:* **Variable or function name should be snake_case.**
```r
parDist <- parallelDist <- function(x, method = "euclidean", diag = FALSE, upper = FALSE, threads = NULL, ...) {
^~~~~~~
```
[R/parDist.R:23:12:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L23) *style:* **Variable or function name should be snake_case.**
```r
parDist <- parallelDist <- function(x, method = "euclidean", diag = FALSE, upper = FALSE, threads = NULL, ...) {
           ^~~~~~~~~~~~
```
[R/parDist.R:24:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L24) *style:* **Variable or function name should be snake_case.**
```r
  METHODS <- c("bhjattacharyya", "bray", "canberra", "chord", "divergence",
  ^~~~~~~
```
[R/parDist.R:32:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L32) *style:* **Variable or function name should be snake_case.**
```r
  methodIdx <- pmatch(method, METHODS)
  ^~~~~~~~~
```
[R/parDist.R:39:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  step.pattern.name <- getStepPatternName(arguments)
  ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:46:5:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L46) *style:* **Variable or function name should be snake_case.**
```r
    funcPtr <- arguments[["func"]]
    ^~~~~~~
```
[R/parDist.R:58:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L58) *style:* **Variable or function name should be snake_case.**
```r
  N <- ifelse(is.list(x), length(x), nrow(x))
  ^
```
[R/parDist.R:64:5:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L64) *style:* **Variable or function name should be snake_case.**
```r
    methods.first.row.only <- c("chord", "geodesic", "podani")
    ^~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:80:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L80) *style:* **Variable or function name should be snake_case.**
```r
getType <- function(code) {
^~~~~~~
```
[R/parDist.R:87:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L87) *style:* **Variable or function name should be snake_case.**
```r
getStepPatternName <- function(arguments) {
^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:88:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L88) *style:* **Variable or function name should be snake_case.**
```r
  step.pattern.name <- NA
  ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:89:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L89) *style:* **Variable or function name should be snake_case.**
```r
  supported.patterns.names <- c("asymmetric", "asymmetricP0", "asymmetricP05", "asymmetricP1", "asymmetricP2",
  ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/parDist.R:91:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L91) *style:* **Variable or function name should be snake_case.**
```r
  sp.candidate <- arguments[["step.pattern"]]
  ^~~~~~~~~~~~
```
[R/parDist.R:95:7:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L95) *style:* **Variable or function name should be snake_case.**
```r
      supported.patterns <- list(
      ^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:100:7:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L100) *style:* **Variable or function name should be snake_case.**
```r
      sp.found <- sapply(supported.patterns, FUN = function(x){
      ^~~~~~~~
```
[R/parDist.R:110:9:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L110) *style:* **Variable or function name should be snake_case.**
```r
        sp.found <- supported.patterns.names == sp.candidate
        ^~~~~~~~
```
[R/parDist.R:114:7:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L114) *style:* **Variable or function name should be snake_case.**
```r
      step.pattern.name <- supported.patterns.names[which(sp.found)]
      ^~~~~~~~~~~~~~~~~
```
[R/parDist.R:122:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L122) *style:* **Variable or function name should be snake_case.**
```r
checkPtr <- function(ptr) {
^~~~~~~~
```
[R/parDist.R:125:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  actualReturnType <- attr(ptr, "type")
  ^~~~~~~~~~~~~~~~
```
[R/parDist.R:126:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L126) *style:* **Variable or function name should be snake_case.**
```r
  expectedReturnType <- "double"
  ^~~~~~~~~~~~~~~~~~
```
[R/parDist.R:128:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L128) *style:* **Variable or function name should be snake_case.**
```r
  actualArgTypes <- sapply(attr(ptr, "args"), getType, USE.NAMES = FALSE)
  ^~~~~~~~~~~~~~
```
[R/parDist.R:129:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/parDist.R#L129) *style:* **Variable or function name should be snake_case.**
```r
  expectedArgTypes <- rep("const arma::mat&", 2)
  ^~~~~~~~~~~~~~~~
```
[R/RcppExports.R:4:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/RcppExports.R#L4) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistVec <- function(dataList, attrs, arguments) {
^~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:4:33:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/RcppExports.R#L4) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistVec <- function(dataList, attrs, arguments) {
                                ^~~~~~~~
```
[R/RcppExports.R:8:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/RcppExports.R#L8) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistMatrixVec <- function(dataMatrix, attrs, arguments) {
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/RcppExports.R:8:39:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/R/RcppExports.R#L8) *style:* **Variable or function name should be snake_case.**
```r
cpp_parallelDistMatrixVec <- function(dataMatrix, attrs, arguments) {
                                      ^~~~~~~~~~
```
[tests/testthat.R:23:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat.R#L23) *style:* **Variable or function name should be snake_case.**
```r
isCran <- function() {
^~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:33:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, comparisonMethod, func, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:36:40:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, comparisonMethod, func, ...) {
                                       ^~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, comparisonMethod, func, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixCustomDistances.R:41:45:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixCustomDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, comparisonMethod, func, ...) {
                                            ^~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixDistances.R:33:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, method, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matlist, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:97:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L97) *style:* **Variable or function name should be snake_case.**
```r
  mat.mahalanobis <- cbind(1:6, 1:3)
  ^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:104:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L104) *style:* **Variable or function name should be snake_case.**
```r
  mat.mahalanobis <- cbind(1:6, 1:3)
  ^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDistances.R:105:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDistances.R#L105) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- list(mat.mahalanobis, mat.mahalanobis)
  ^~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:23:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L23) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1, 0, 1), nrow = 3)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:25:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L25) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(c(1:100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:26:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L26) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:27:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L27) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(-50:49), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:28:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L28) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(1:8), ncol = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:29:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L29) *style:* **Variable or function name should be snake_case.**
```r
mat.sample8 <- matrix(c(1:15), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:30:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L30) *style:* **Variable or function name should be snake_case.**
```r
mat.sample9 <- matrix(c(1, 88, 55, 72, 3, 33, 44, 11, 3, 42, 52,
^~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:34:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L34) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4,
^~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:38:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L38) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:5]
  ^~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:42:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L42) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEquality <- function(matrix, method, ...) {
^~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixDTWDistances.R:46:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixDTWDistances.R#L46) *style:* **Variable or function name should be snake_case.**
```r
testMatrixEqualityForMatList <- function(matlist, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:22:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L22) *style:* **Variable or function name should be snake_case.**
```r
matToList <- function(matrix, vert=TRUE) {
^~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:36:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L36) *style:* **Variable or function name should be snake_case.**
```r
mat.sample1 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:37:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L37) *style:* **Variable or function name should be snake_case.**
```r
mat.sample2 <- matrix(c(0, 1, 0, 1, 0, 0, 1, 0, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:38:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L38) *style:* **Variable or function name should be snake_case.**
```r
mat.sample3 <- matrix(c(1:500), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:39:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L39) *style:* **Variable or function name should be snake_case.**
```r
mat.sample4 <- matrix(rep(0, 100), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:40:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L40) *style:* **Variable or function name should be snake_case.**
```r
mat.sample5 <- matrix(c(-500:499), ncol = 5)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:41:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L41) *style:* **Variable or function name should be snake_case.**
```r
mat.sample6 <- matrix(c(1:2), ncol = 1)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:42:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L42) *style:* **Variable or function name should be snake_case.**
```r
mat.sample7 <- matrix(c(0.5, 1, 0, 1, 0, 0, 1, 0.3, 1, 1), nrow = 2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:44:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L44) *style:* **Variable or function name should be snake_case.**
```r
mat.list <- list(mat.sample1, mat.sample2, mat.sample3, mat.sample4, mat.sample5, mat.sample6, mat.sample7)
^~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:45:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L45) *style:* **Variable or function name should be snake_case.**
```r
matlist.list.h <- lapply(mat.list, function(x) matToList(x, vert = FALSE))
^~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:48:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L48) *style:* **Variable or function name should be snake_case.**
```r
  mat.list <- mat.list[1:4]
  ^~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:49:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L49) *style:* **Variable or function name should be snake_case.**
```r
  matlist.list.h <- lapply(mat.list, function(x) matToList(x, vert = FALSE))
  ^~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:52:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L52) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListMatrixEquality <- function(matList, matrix, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:52:42:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L52) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListMatrixEquality <- function(matList, matrix, method, ...) {
                                         ^~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
^~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:36:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
                                   ^~~~~~~~~~~
```
[tests/testthat/testMatrixListDistances.R:56:49:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L56) *style:* **Variable or function name should be snake_case.**
```r
testMatrixListEquality <- function(matListList, matList, method, ...) {
                                                ^~~~~~~
```
[tests/testthat/testMatrixListDistances.R:57:19:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  mapply(function(X, Y) {
                  ^
```
[tests/testthat/testMatrixListDistances.R:57:22:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDistances.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  mapply(function(X, Y) {
                     ^
```
[tests/testthat/testMatrixListDTWDistances.R:24:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L24) *style:* **Variable or function name should be snake_case.**
```r
matList.sample1 <- list(structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:32:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L32) *style:* **Variable or function name should be snake_case.**
```r
matList.sample2 <- list(structure(c(0, 0.666221290024121, 0.992138579223845, 0.837675741488087,
^~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:68:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L68) *style:* **Variable or function name should be snake_case.**
```r
matListList <- list(matList.sample1, matList.sample2)
^~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:73:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L73) *style:* **Variable or function name should be snake_case.**
```r
calcDTWDistMatForMatList <- function(matrixList, step.pattern) {
^~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:73:38:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L73) *style:* **Variable or function name should be snake_case.**
```r
calcDTWDistMatForMatList <- function(matrixList, step.pattern) {
                                     ^~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:73:50:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L73) *style:* **Variable or function name should be snake_case.**
```r
calcDTWDistMatForMatList <- function(matrixList, step.pattern) {
                                                 ^~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:74:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  matrixListLength <- length(matrixList)
  ^~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:91:1:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L91) *style:* **Variable or function name should be snake_case.**
```r
testDtwMatrixListEquality <- function(matList, threads = 2, ...) {
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:91:39:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L91) *style:* **Variable or function name should be snake_case.**
```r
testDtwMatrixListEquality <- function(matList, threads = 2, ...) {
                                      ^~~~~~~
```
[tests/testthat/testMatrixListDTWDistances.R:99:3:](https://github.com/alexeckert/parallelDist/blob/dd9fa3f1a018447f10f772e3fb95c83d2f90a1a7/tests/testthat/testMatrixListDTWDistances.R#L99) *style:* **Variable or function name should be snake_case.**
```r
  threadsForTest <- 2
  ^~~~~~~~~~~~~~
```


Created multidev environment [mbta-project#ci-4](https://dashboard.pantheon.io/sites/d0acdad4-8595-45a4-aa0c-8102df856769#ci-4).

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


> No new compatibility-breaking changes were made.

[This line](https://github.com/isaacs/node-graceful-fs/commit/1bf23459bb7333674d5cb552ec5000be70ac4ef0#diff-bed42f22ea20323823ee2d8dfb6b9a71R63) adds the use of [String.prototype.includes()](https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/String/includes#Browser_compatibility) which isn't supported in < 4.x. But those versions of Node aren't tested, as you mentioned, so I can see why you'd believe it still works there.


А я поправил немного в emqttd и все тесты в том числе в кластере проходят. Пока это конечно экспериментальный вариант. хотя  проблем с отпиской не обнаружил.. Думаю как вы будете у нас я подробно поясню, почему для пошел по этому пути.


Thanks!


> @ilia3101: KUDOS MAN! I always believed in you :)
>
> You really managed to build all this color stuff from scratch and also optimized for speed!!!
>
> You can sell it to adobe ;)

Heh :smile_cat:  more like processors are fast, this isn't optimised at all yet compared to most other MLV App parts. It also makes me question how necessary the look up tables are for some operations.


Oh, I think I understand you now! 😬 Next commit should resolve this... Please let me know if I'm still not on the right track, and thanks.


Changed a{ value from "inherit" to "blue" to style links