[R/dag_class.R:6:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/dag_class.R#L6) *style:* **functions should have cyclomatic complexity of less than 15, this has 32.**
```r
dag_class <- R6Class(
^
```
[R/dag_class.R:499:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/dag_class.R#L499) *style:* **Variable and function name style should be snake_case.**
```r
      A <- self$adjacency_matrix
      ^
```
[R/dag_class.R:500:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/dag_class.R#L500) *style:* **Variable and function name style should be snake_case.**
```r
      S <- (A + t(A)) > 0
      ^
```
[R/dag_class.R:506:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/dag_class.R#L506) *style:* **Variable and function name style should be snake_case.**
```r
      P <- R <- S
      ^
```
[R/dag_class.R:506:12:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/dag_class.R#L506) *style:* **Variable and function name style should be snake_case.**
```r
      P <- R <- S
           ^
```
[R/dag_class.R:508:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/dag_class.R#L508) *style:* **Variable and function name style should be snake_case.**
```r
        P <- P %*% S
        ^
```
[R/dag_class.R:509:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/dag_class.R#L509) *style:* **Variable and function name style should be snake_case.**
```r
        T <- (R + P) > 0
        ^
```
[R/dag_class.R:511:11:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/dag_class.R#L511) *style:* **Variable and function name style should be snake_case.**
```r
          R <- T
          ^
```
[R/distribution.R:36:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/distribution.R#L36) *style:* **Variable and function name style should be snake_case.**
```r
`distribution<-` <- function(greta_array, value) {
^~~~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:160:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/extract_replace_combine.R#L160) *style:* **Variable and function name style should be snake_case.**
```r
`[<-.greta_array` <- function(x, ..., value) {
^~~~~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:371:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/extract_replace_combine.R#L371) *style:* **Variable and function name style should be snake_case.**
```r
  N <- max(vapply(dims, length, FUN.VALUE = 1L))
  ^
```
[R/extract_replace_combine.R:377:5:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/extract_replace_combine.R#L377) *style:* **Variable and function name style should be snake_case.**
```r
    N <- N + 1
    ^
```
[R/extract_replace_combine.R:482:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/extract_replace_combine.R#L482) *style:* **Variable and function name style should be snake_case.**
```r
`dim<-.greta_array` <- function(x, value) {
^~~~~~~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:531:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/extract_replace_combine.R#L531) *style:* **Variable and function name style should be snake_case.**
```r
head.greta_array <- function(x, n = 6L, ...) {
^~~~~~~~~~~~~~~~
```
[R/extract_replace_combine.R:564:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/extract_replace_combine.R#L564) *style:* **Variable and function name style should be snake_case.**
```r
tail.greta_array <- function(x, n = 6L, ...) {
^~~~~~~~~~~~~~~~
```
[R/functions.R:296:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L296) *style:* **Variable and function name style should be snake_case.**
```r
      U <- representation(a, "cholesky")
      ^
```
[R/functions.R:331:41:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L331) *style:* **Variable and function name style should be snake_case.**
```r
chol2inv <- function(x, size = NCOL(x), LINPACK = FALSE) {
                                        ^~~~~~~
```
[R/functions.R:336:49:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L336) *style:* **Variable and function name style should be snake_case.**
```r
chol2inv.default <- function(x, size = NCOL(x), LINPACK = FALSE) {
                                                ^~~~~~~
```
[R/functions.R:341:53:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L341) *style:* **Variable and function name style should be snake_case.**
```r
chol2inv.greta_array <- function(x, size = NCOL(x), LINPACK = FALSE) {
                                                    ^~~~~~~
```
[R/functions.R:358:21:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L358) *style:* **Variable and function name style should be snake_case.**
```r
cov2cor <- function(V) {
                    ^
```
[R/functions.R:363:29:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L363) *style:* **Variable and function name style should be snake_case.**
```r
cov2cor.default <- function(V) {
                            ^
```
[R/functions.R:368:33:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L368) *style:* **Variable and function name style should be snake_case.**
```r
cov2cor.greta_array <- function(V) {
                                ^
```
[R/functions.R:376:34:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L376) *style:* **Variable and function name style should be snake_case.**
```r
sum.greta_array <- function(..., na.rm = TRUE) {
                                 ^~~~~
```
[R/functions.R:389:35:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L389) *style:* **Variable and function name style should be snake_case.**
```r
prod.greta_array <- function(..., na.rm = TRUE) {
                                  ^~~~~
```
[R/functions.R:402:34:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L402) *style:* **Variable and function name style should be snake_case.**
```r
min.greta_array <- function(..., na.rm = TRUE) {
                                 ^~~~~
```
[R/functions.R:415:43:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L415) *style:* **Variable and function name style should be snake_case.**
```r
mean.greta_array <- function(x, trim = 0, na.rm = TRUE, ...) {
                                          ^~~~~
```
[R/functions.R:425:34:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L425) *style:* **Variable and function name style should be snake_case.**
```r
max.greta_array <- function(..., na.rm = TRUE) {
                                 ^~~~~
```
[R/functions.R:579:22:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L579) *style:* **Variable and function name style should be snake_case.**
```r
sweep <- function(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...) {
                     ^~~~~~
```
[R/functions.R:579:30:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L579) *style:* **Variable and function name style should be snake_case.**
```r
sweep <- function(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...) {
                             ^~~~~
```
[R/functions.R:579:37:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L579) *style:* **Variable and function name style should be snake_case.**
```r
sweep <- function(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...) {
                                    ^~~
```
[R/functions.R:579:48:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L579) *style:* **Variable and function name style should be snake_case.**
```r
sweep <- function(x, MARGIN, STATS, FUN = "-", check.margin = TRUE, ...) {
                                               ^~~~~~~~~~~~
```
[R/functions.R:593:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L593) *style:* **Variable and function name style should be snake_case.**
```r
                              MARGIN,
                              ^~~~~~
```
[R/functions.R:594:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L594) *style:* **Variable and function name style should be snake_case.**
```r
                              STATS,
                              ^~~~~
```
[R/functions.R:595:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L595) *style:* **Variable and function name style should be snake_case.**
```r
                              FUN = c("-", "+", "/", "*"),
                              ^~~
```
[R/functions.R:596:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L596) *style:* **Variable and function name style should be snake_case.**
```r
                              check.margin = TRUE, ...) {
                              ^~~~~~~~~~~~
```
[R/functions.R:599:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L599) *style:* **Variable and function name style should be snake_case.**
```r
  FUN <- match.arg(FUN)
  ^~~
```
[R/functions.R:601:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L601) *style:* **Variable and function name style should be snake_case.**
```r
  STATS <- as.greta_array(STATS)
  ^~~~~
```
[R/functions.R:634:20:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L634) *style:* **Variable and function name style should be snake_case.**
```r
          function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                   ^
```
[R/functions.R:634:23:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L634) *style:* **Variable and function name style should be snake_case.**
```r
          function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                      ^
```
[R/functions.R:634:26:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L634) *style:* **Variable and function name style should be snake_case.**
```r
          function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                         ^~~
```
[R/functions.R:634:55:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L634) *style:* **Variable and function name style should be snake_case.**
```r
          function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                                                      ^~~~~~~~~~~~~
```
[R/functions.R:637:13:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L637) *style:* **Variable and function name style should be snake_case.**
```r
            FUN <- match.arg(FUN)
            ^~~
```
[R/functions.R:667:22:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L667) *style:* **Variable and function name style should be snake_case.**
```r
            function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                     ^
```
[R/functions.R:667:25:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L667) *style:* **Variable and function name style should be snake_case.**
```r
            function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                        ^
```
[R/functions.R:667:28:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L667) *style:* **Variable and function name style should be snake_case.**
```r
            function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                           ^~~
```
[R/functions.R:667:57:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L667) *style:* **Variable and function name style should be snake_case.**
```r
            function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                                                        ^~~~~~~~~~~~~
```
[R/functions.R:677:22:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L677) *style:* **Variable and function name style should be snake_case.**
```r
            function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                     ^
```
[R/functions.R:677:25:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L677) *style:* **Variable and function name style should be snake_case.**
```r
            function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                        ^
```
[R/functions.R:677:28:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L677) *style:* **Variable and function name style should be snake_case.**
```r
            function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                           ^~~
```
[R/functions.R:677:57:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L677) *style:* **Variable and function name style should be snake_case.**
```r
            function(X, Y, FUN = c("*", "/", "+", "-"), make.dimnames = FALSE,
                                                        ^~~~~~~~~~~~~
```
[R/functions.R:688:23:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L688) *style:* **Variable and function name style should be snake_case.**
```r
                      upper.tri = TRUE,
                      ^~~~~~~~~
```
[R/functions.R:695:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L695) *style:* **Variable and function name style should be snake_case.**
```r
                              upper.tri = TRUE,
                              ^~~~~~~~~
```
[R/functions.R:706:35:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L706) *style:* **Variable and function name style should be snake_case.**
```r
                                  upper.tri = TRUE,
                                  ^~~~~~~~~
```
[R/functions.R:728:26:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L728) *style:* **Variable and function name style should be snake_case.**
```r
                         upper.tri = FALSE,
                         ^~~~~~~~~
```
[R/functions.R:736:34:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L736) *style:* **Variable and function name style should be snake_case.**
```r
                                 upper.tri = FALSE,
                                 ^~~~~~~~~
```
[R/functions.R:747:38:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L747) *style:* **Variable and function name style should be snake_case.**
```r
                                     upper.tri = FALSE,
                                     ^~~~~~~~~
```
[R/functions.R:768:19:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L768) *style:* **Variable and function name style should be snake_case.**
```r
apply <- function(X, MARGIN, FUN, ...) {
                  ^
```
[R/functions.R:768:22:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L768) *style:* **Variable and function name style should be snake_case.**
```r
apply <- function(X, MARGIN, FUN, ...) {
                     ^~~~~~
```
[R/functions.R:768:30:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L768) *style:* **Variable and function name style should be snake_case.**
```r
apply <- function(X, MARGIN, FUN, ...) {
                             ^~~
```
[R/functions.R:773:27:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L773) *style:* **Variable and function name style should be snake_case.**
```r
apply.default <- function(X, MARGIN, FUN, ...) {
                          ^
```
[R/functions.R:773:30:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L773) *style:* **Variable and function name style should be snake_case.**
```r
apply.default <- function(X, MARGIN, FUN, ...) {
                             ^~~~~~
```
[R/functions.R:773:38:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L773) *style:* **Variable and function name style should be snake_case.**
```r
apply.default <- function(X, MARGIN, FUN, ...) {
                                     ^~~
```
[R/functions.R:781:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L781) *style:* **Variable and function name style should be snake_case.**
```r
apply.greta_array <- function(X, MARGIN,
                              ^
```
[R/functions.R:781:34:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L781) *style:* **Variable and function name style should be snake_case.**
```r
apply.greta_array <- function(X, MARGIN,
                                 ^~~~~~
```
[R/functions.R:782:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L782) *style:* **Variable and function name style should be snake_case.**
```r
                              FUN = c("sum", "max", "mean", "min", "prod",
                              ^~~
```
[R/functions.R:786:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L786) *style:* **Variable and function name style should be snake_case.**
```r
  FUN <- match.arg(FUN)
  ^~~
```
[R/functions.R:793:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L793) *style:* **Variable and function name style should be snake_case.**
```r
  MARGIN <- as.integer(MARGIN)
  ^~~~~~
```
[R/functions.R:799:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L799) *style:* **Variable and function name style should be snake_case.**
```r
  s.call <- ds[-MARGIN]
  ^~~~~~
```
[R/functions.R:800:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L800) *style:* **Variable and function name style should be snake_case.**
```r
  s.ans <- ds[MARGIN]
  ^~~~~
```
[R/functions.R:802:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L802) *style:* **Variable and function name style should be snake_case.**
```r
  d.call <- d[-MARGIN]
  ^~~~~~
```
[R/functions.R:803:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L803) *style:* **Variable and function name style should be snake_case.**
```r
  d.ans <- d[MARGIN]
  ^~~~~
```
[R/functions.R:847:20:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L847) *style:* **Variable and function name style should be snake_case.**
```r
tapply <- function(X, INDEX, FUN, ...) {
                   ^
```
[R/functions.R:847:23:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L847) *style:* **Variable and function name style should be snake_case.**
```r
tapply <- function(X, INDEX, FUN, ...) {
                      ^~~~~
```
[R/functions.R:847:30:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L847) *style:* **Variable and function name style should be snake_case.**
```r
tapply <- function(X, INDEX, FUN, ...) {
                             ^~~
```
[R/functions.R:852:28:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L852) *style:* **Variable and function name style should be snake_case.**
```r
tapply.default <- function(X, INDEX, FUN = NULL, ...,
                           ^
```
[R/functions.R:852:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L852) *style:* **Variable and function name style should be snake_case.**
```r
tapply.default <- function(X, INDEX, FUN = NULL, ...,
                              ^~~~~
```
[R/functions.R:852:38:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L852) *style:* **Variable and function name style should be snake_case.**
```r
tapply.default <- function(X, INDEX, FUN = NULL, ...,
                                     ^~~
```
[R/functions.R:863:32:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L863) *style:* **Variable and function name style should be snake_case.**
```r
tapply.greta_array <- function(X, INDEX,
                               ^
```
[R/functions.R:863:35:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L863) *style:* **Variable and function name style should be snake_case.**
```r
tapply.greta_array <- function(X, INDEX,
                                  ^~~~~
```
[R/functions.R:864:32:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L864) *style:* **Variable and function name style should be snake_case.**
```r
                               FUN = c("sum", "max", "mean", "min", "prod"),
                               ^~~
```
[R/functions.R:867:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L867) *style:* **Variable and function name style should be snake_case.**
```r
  FUN <- match.arg(FUN)
  ^~~
```
[R/functions.R:897:33:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L897) *style:* **Variable and function name style should be snake_case.**
```r
eigen <- function(x, symmetric, only.values, EISPACK) {
                                ^~~~~~~~~~~
```
[R/functions.R:897:46:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L897) *style:* **Variable and function name style should be snake_case.**
```r
eigen <- function(x, symmetric, only.values, EISPACK) {
                                             ^~~~~~~
```
[R/functions.R:903:27:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L903) *style:* **Variable and function name style should be snake_case.**
```r
                          only.values = FALSE, EISPACK = FALSE) {
                          ^~~~~~~~~~~
```
[R/functions.R:903:48:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L903) *style:* **Variable and function name style should be snake_case.**
```r
                          only.values = FALSE, EISPACK = FALSE) {
                                               ^~~~~~~
```
[R/functions.R:912:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L912) *style:* **Variable and function name style should be snake_case.**
```r
                              only.values = FALSE, EISPACK = FALSE) {
                              ^~~~~~~~~~~
```
[R/functions.R:912:52:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/functions.R#L912) *style:* **Variable and function name style should be snake_case.**
```r
                              only.values = FALSE, EISPACK = FALSE) {
                                                   ^~~~~~~
```
[R/greta_model_class.R:186:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/greta_model_class.R#L186) *style:* **Variable and function name style should be snake_case.**
```r
as.greta_model <- function(x, ...)
^~~~~~~~~~~~~~
```
[R/inference_class.R:228:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference_class.R#L228) *style:* **functions should have cyclomatic complexity of less than 15, this has 35.**
```r
sampler <- R6Class(
^
```
[R/inference_class.R:445:17:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference_class.R#L445) *warning:* **Avoid 1:nrow(...) expressions, use seq_len.**
```r
      for (i in 1:nrow(trace_matrix)) {
                ^
```
[R/inference_class.R:636:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference_class.R#L636) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          trace_fn = function (current_state, kernel_results) {
                              ^
```
[R/inference_class.R:780:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference_class.R#L780) *style:* **Variable and function name style should be snake_case.**
```r
        hmc_L <- tf$compat$v1$placeholder(dtype = tf$int64)
        ^~~~~
```
[R/inference_class.R:818:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference_class.R#L818) *style:* **Variable and function name style should be snake_case.**
```r
      Lmin <- self$parameters$Lmin
      ^~~~
```
[R/inference_class.R:819:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference_class.R#L819) *style:* **Variable and function name style should be snake_case.**
```r
      Lmax <- self$parameters$Lmax
      ^~~~
```
[R/inference_class.R:820:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference_class.R#L820) *style:* **Variable and function name style should be snake_case.**
```r
      L <- sample(seq(Lmin, Lmax), 1)
      ^
```
[R/inference.R:259:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference.R#L259) *style:* **functions should have cyclomatic complexity of less than 15, this has 16.**
```r
run_samplers <- function(samplers,
^
```
[R/inference.R:549:19:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference.R#L549) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    stats::qlogis( (x - lower) / (upper - lower) )
                  ^
```
[R/inference.R:549:49:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference.R#L549) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    stats::qlogis( (x - lower) / (upper - lower) )
                                                ^
```
[R/inference.R:777:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/inference.R#L777) *style:* **Lines should not be more than 80 characters.**
```r
#'     completion, 1 indicates the iteration limit \code{max_iterations} had been
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/mixture.R:120:11:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/mixture.R#L120) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      if ( !(dim_1 | dim_same) ) {
          ^
```
[R/mixture.R:120:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/mixture.R#L120) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      if ( !(dim_1 | dim_same) ) {
                              ^
```
[R/node_class.R:2:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/node_class.R#L2) *style:* **functions should have cyclomatic complexity of less than 15, this has 18.**
```r
node <- R6Class(
^
```
[R/node_types.R:290:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/node_types.R#L290) *style:* **Variable and function name style should be snake_case.**
```r
        K <- dim(x)[[2]]
        ^
```
[R/node_types.R:314:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/node_types.R#L314) *style:* **Variable and function name style should be snake_case.**
```r
        K <- (sqrt(8 * n + 1) - 1) / 2
        ^
```
[R/operators.R:113:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L113) *style:* **Variable and function name style should be snake_case.**
```r
`%/%.greta_array` <- function(e1, e2) {
^~~~~~~~~~~~~~~~~
```
[R/operators.R:123:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L123) *style:* **Variable and function name style should be snake_case.**
```r
`%*%.default` <- function(x, y)
^~~~~~~~~~~~~
```
[R/operators.R:128:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L128) *style:* **Variable and function name style should be snake_case.**
```r
`%*%` <- function(x, y) {
^~~~~
```
[R/operators.R:134:15:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L134) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
    UseMethod ("%*%", x)
              ^
```
[R/operators.R:139:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L139) *style:* **Variable and function name style should be snake_case.**
```r
`%*%.greta_array` <- function(x, y) {
^~~~~~~~~~~~~~~~~
```
[R/operators.R:169:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L169) *style:* **Variable and function name style should be snake_case.**
```r
`&.greta_array` <- function(e1, e2) {
^~~~~~~~~~~~~~~
```
[R/operators.R:185:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L185) *style:* **Variable and function name style should be snake_case.**
```r
`<.greta_array` <- function(e1, e2) {
^~~~~~~~~~~~~~~
```
[R/operators.R:192:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L192) *style:* **Variable and function name style should be snake_case.**
```r
`>.greta_array` <- function(e1, e2) {
^~~~~~~~~~~~~~~
```
[R/operators.R:199:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L199) *style:* **Variable and function name style should be snake_case.**
```r
`<=.greta_array` <- function(e1, e2) {
^~~~~~~~~~~~~~~~
```
[R/operators.R:206:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/operators.R#L206) *style:* **Variable and function name style should be snake_case.**
```r
`>=.greta_array` <- function(e1, e2) {
^~~~~~~~~~~~~~~~
```
[R/optimisers.R:8:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/optimisers.R#L8) *style:* **Lines should not be more than 80 characters.**
```r
#'   \href{https://docs.scipy.org/doc/scipy/reference/generated/scipy.optimize.minimize.html}{SciPy
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/optimisers.R:39:43:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/optimisers.R#L39) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
optimiser_deprecation_warning <- function () {
                                          ^
```
[R/optimisers.R:40:11:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/optimisers.R#L40) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
  warning ("This optimiser is deprecated and will be removed in greta 0.4.0. ",
          ^
```
[R/overloaded.R:12:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/overloaded.R#L12) *style:* **Lines should not be more than 80 characters.**
```r
#'   x,y,size,LINPACK,V,na.rm,dims,MARGIN,STATS,FUN,check.margin,\dots,r,k,upper.tri,transpose,l,X,INDEX,symmetric,only.values,EISPACK,x1,x2,compact,along,rev.along,new.names,force.array,make.names,use.anon.names,use.first.dimnames,hier.names,use.dnns,nrow,ncol
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/package.R:45:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/package.R#L45) *style:* **Variable and function name style should be snake_case.**
```r
.onLoad <- function(libname, pkgname) {
^~~~~~~
```
[R/probability_distributions.R:967:33:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L967) *style:* **Variable and function name style should be snake_case.**
```r
    initialize = function(mean, Sigma, n_realisations, dimension) {
                                ^~~~~
```
[R/probability_distributions.R:971:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L971) *style:* **Variable and function name style should be snake_case.**
```r
      Sigma <- as.greta_array(Sigma)
      ^~~~~
```
[R/probability_distributions.R:992:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L992) *style:* **Variable and function name style should be snake_case.**
```r
      dim_Sigma <- nrow(Sigma)
      ^~~~~~~~~
```
[R/probability_distributions.R:1007:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1007) *style:* **Variable and function name style should be snake_case.**
```r
        Sigma <- representation(Sigma, "cholesky")
        ^~~~~
```
[R/probability_distributions.R:1008:14:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1008) *style:* **Variable and function name style should be snake_case.**
```r
        self$Sigma_is_cholesky <- TRUE
             ^~~~~~~~~~~~~~~~~
```
[R/probability_distributions.R:1021:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1021) *style:* **Variable and function name style should be snake_case.**
```r
        L <- tf_transpose(parameters$Sigma)
        ^
```
[R/probability_distributions.R:1023:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1023) *style:* **Variable and function name style should be snake_case.**
```r
        L <- tf$linalg$cholesky(parameters$Sigma)
        ^
```
[R/probability_distributions.R:1028:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1028) *style:* **Variable and function name style should be snake_case.**
```r
      L <- tf$expand_dims(L, 1L)
      ^
```
[R/probability_distributions.R:1055:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1055) *style:* **Variable and function name style should be snake_case.**
```r
    initialize = function(df, Sigma) {
                              ^~~~~
```
[R/probability_distributions.R:1059:7:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1059) *style:* **Variable and function name style should be snake_case.**
```r
      Sigma <- as.greta_array(Sigma)
      ^~~~~
```
[R/probability_distributions.R:1078:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1078) *style:* **Variable and function name style should be snake_case.**
```r
        Sigma <- representation(Sigma, "cholesky")
        ^~~~~
```
[R/probability_distributions.R:1079:14:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1079) *style:* **Variable and function name style should be snake_case.**
```r
        self$Sigma_is_cholesky <- TRUE
             ^~~~~~~~~~~~~~~~~
```
[R/probability_distributions.R:1136:9:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1136) *style:* **Variable and function name style should be snake_case.**
```r
        Sigma <- tf$expand_dims(parameters$Sigma, 1L)
        ^~~~~
```
[R/probability_distributions.R:1141:11:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1141) *style:* **Variable and function name style should be snake_case.**
```r
          Sigma_chol <- tf$linalg$matrix_transpose(Sigma)
          ^~~~~~~~~~
```
[R/probability_distributions.R:1143:11:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1143) *style:* **Variable and function name style should be snake_case.**
```r
          Sigma_chol <- tf$linalg$cholesky(Sigma)
          ^~~~~~~~~~
```
[R/probability_distributions.R:1347:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1347) *style:* **Lines should not be more than 80 characters.**
```r
#'   sd,sdlog,sigma,lambda,shape,rate,df,scale,shape1,shape2,alpha,beta,df1,df2,a,b,eta
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/probability_distributions.R:1436:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1436) *style:* **Lines should not be more than 80 characters.**
```r
#'   \href{https://rdrr.io/github/rmcelreath/rethinking/man/dlkjcorr.html}{rethinking::dlkjcorr}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/probability_distributions.R:1598:39:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1598) *style:* **Variable and function name style should be snake_case.**
```r
multivariate_normal <- function(mean, Sigma,
                                      ^~~~~
```
[R/probability_distributions.R:1606:25:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/probability_distributions.R#L1606) *style:* **Variable and function name style should be snake_case.**
```r
wishart <- function(df, Sigma)
                        ^~~~~
```
[R/progress_bar.R:61:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/progress_bar.R#L61) *style:* **Lines should not be more than 80 characters.**
```r
# 'rejects' is the total number of rejections so far due to numerical instability
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/samplers.R:28:17:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/samplers.R#L28) *style:* **Variable and function name style should be snake_case.**
```r
hmc <- function(Lmin = 5,
                ^~~~
```
[R/samplers.R:29:17:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/samplers.R#L29) *style:* **Variable and function name style should be snake_case.**
```r
                Lmax = 10,
                ^~~~
```
[R/tf_functions.R:94:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L94) *style:* **Lines should not be more than 80 characters.**
```r
# permute the tensor to get the non-batch dim first, do the relevant "unsorted_segment_*" op, then permute it back
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/tf_functions.R:116:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L116) *style:* **Variable and function name style should be snake_case.**
```r
  L_dummy <- dummy(dims)
  ^~~~~~~
```
[R/tf_functions.R:226:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L226) *style:* **Variable and function name style should be snake_case.**
```r
  K <- dims[[2]]
  ^
```
[R/tf_functions.R:244:23:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L244) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  zero_rows <- lapply( (n - 2):0,
                      ^
```
[R/tf_functions.R:271:34:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L271) *style:* **Variable and function name style should be snake_case.**
```r
tf_chol_to_symmetric <- function(U)
                                 ^
```
[R/tf_functions.R:333:26:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L333) *style:* **Variable and function name style should be snake_case.**
```r
tf_kronecker <- function(X, Y, tf_fun_name) {
                         ^
```
[R/tf_functions.R:333:29:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L333) *style:* **Variable and function name style should be snake_case.**
```r
tf_kronecker <- function(X, Y, tf_fun_name) {
                            ^
```
[R/tf_functions.R:354:25:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L354) *style:* **Variable and function name style should be snake_case.**
```r
tf_sweep <- function(x, STATS, MARGIN, FUN) {
                        ^~~~~
```
[R/tf_functions.R:354:32:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L354) *style:* **Variable and function name style should be snake_case.**
```r
tf_sweep <- function(x, STATS, MARGIN, FUN) {
                               ^~~~~~
```
[R/tf_functions.R:354:40:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L354) *style:* **Variable and function name style should be snake_case.**
```r
tf_sweep <- function(x, STATS, MARGIN, FUN) {
                                       ^~~
```
[R/tf_functions.R:374:25:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L374) *style:* **Variable and function name style should be snake_case.**
```r
tf_chol2inv <- function(U) {
                        ^
```
[R/tf_functions.R:378:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L378) *style:* **Variable and function name style should be snake_case.**
```r
  L <- tf$linalg$matrix_transpose(U)
  ^
```
[R/tf_functions.R:382:24:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L382) *style:* **Variable and function name style should be snake_case.**
```r
tf_cov2cor <- function(V) {
                       ^
```
[R/tf_functions.R:386:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L386) *style:* **Variable and function name style should be snake_case.**
```r
  Is <- tf$sqrt(fl(1) / diag)
  ^~
```
[R/tf_functions.R:387:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L387) *style:* **Variable and function name style should be snake_case.**
```r
  V <- Is * V
  ^
```
[R/tf_functions.R:388:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L388) *style:* **Variable and function name style should be snake_case.**
```r
  V <- tf_transpose(V)
  ^
```
[R/tf_functions.R:389:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/tf_functions.R#L389) *style:* **Variable and function name style should be snake_case.**
```r
  V <- V * Is
  ^
```
[R/unknowns_class.R:3:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/unknowns_class.R#L3) *style:* **Variable and function name style should be snake_case.**
```r
as.unknowns <- function(x) {
^~~~~~~~~~~
```
[R/unknowns_class.R:52:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/unknowns_class.R#L52) *style:* **Variable and function name style should be snake_case.**
```r
`dim<-.unknowns` <- function(x, value) {
^~~~~~~~~~~~~~~~
```
[R/utils.R:30:24:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L30) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
have_conda <- function () {
                       ^
```
[R/utils.R:37:25:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L37) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
have_python <- function () {
                        ^
```
[R/utils.R:43:22:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L43) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
have_tfp <- function () {
                     ^
```
[R/utils.R:48:21:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L48) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
have_tf <- function () {
                    ^
```
[R/utils.R:186:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L186) *style:* **Lines should not be more than 80 characters.**
```r
# coerce an integer(ish) vector to a list as expected in tensorflow shape arguments
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/utils.R:255:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L255) *style:* **Variable and function name style should be snake_case.**
```r
as_2D_array <- function(x) {
^~~~~~~~~~~
```
[R/utils.R:367:40:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L367) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
disable_tensorflow_logging <- function (disable = TRUE) {
                                       ^
```
[R/utils.R:481:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L481) *style:* **Variable and function name style should be snake_case.**
```r
check_2D <- function(x) {
^~~~~~~~
```
[R/utils.R:1090:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/utils.R#L1090) *style:* **Variable and function name style should be snake_case.**
```r
chol_to_symmetric <- function(L) {
                              ^
```
[R/variable.R:19:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/R/variable.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
#' @details \code{lower} and \code{upper} must be fixed, they cannot be greta arrays.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/helpers.R:55:1:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L55) *style:* **Variable and function name style should be snake_case.**
```r
is.greta_array <- function(x)
^~~~~~~~~~~~~~
```
[tests/testthat/helpers.R:402:20:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L402) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  ans <- stats::dt( (x - location) / scale, df ) / scale
                   ^
```
[tests/testthat/helpers.R:402:47:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L402) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  ans <- stats::dt( (x - location) / scale, df ) / scale
                                              ^
```
[tests/testthat/helpers.R:409:20:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L409) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  ans <- stats::pt( (q - location) / scale, df )
                   ^
```
[tests/testthat/helpers.R:409:47:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L409) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  ans <- stats::pt( (q - location) / scale, df )
                                              ^
```
[tests/testthat/helpers.R:469:22:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L469) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
rlkjcorr <- function (n, K, eta = 1) {
                     ^
```
[tests/testthat/helpers.R:469:26:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L469) *style:* **Variable and function name style should be snake_case.**
```r
rlkjcorr <- function (n, K, eta = 1) {
                         ^
```
[tests/testthat/helpers.R:478:5:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L478) *style:* **Variable and function name style should be snake_case.**
```r
    R <- matrix(0, K, K)
    ^
```
[tests/testthat/helpers.R:498:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L498) *style:* **Variable and function name style should be snake_case.**
```r
  R <- replicate(n, f())
  ^
```
[tests/testthat/helpers.R:501:5:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L501) *style:* **Variable and function name style should be snake_case.**
```r
    R <- R[, , 1]
    ^
```
[tests/testthat/helpers.R:503:5:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L503) *style:* **Variable and function name style should be snake_case.**
```r
    R <- aperm(R, c(3, 1, 2))
    ^
```
[tests/testthat/helpers.R:660:13:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L660) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    idx <- ( (k - 1) * b + 1 ):(k * b)
            ^
```
[tests/testthat/helpers.R:660:29:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L660) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    idx <- ( (k - 1) * b + 1 ):(k * b)
                            ^
```
[tests/testthat/helpers.R:691:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/helpers.R#L691) *style:* **Variable and function name style should be snake_case.**
```r
  Sigma <- rWishart(1, 3, diag(2))[, , 1]
  ^~~~~
```
[tests/testthat/test_distributions.R:289:33:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_distributions.R#L289) *style:* **Variable and function name style should be snake_case.**
```r
  dmvnorm2 <- function(x, mean, Sigma, log = FALSE)
                                ^~~~~
```
[tests/testthat/test_distributions.R:311:31:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_distributions.R#L311) *style:* **Variable and function name style should be snake_case.**
```r
  dwishart <- function(x, df, Sigma, log = FALSE) {
                              ^~~~~
```
[tests/testthat/test_distributions.R:341:35:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_distributions.R#L341) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      result <- sum(lgamma(2 * 1:( (n - 1) / 2 + 1 )))
                                  ^
```
[tests/testthat/test_distributions.R:341:51:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_distributions.R#L341) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      result <- sum(lgamma(2 * 1:( (n - 1) / 2 + 1 )))
                                                  ^
```
[tests/testthat/test_distributions.R:345:36:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_distributions.R#L345) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                - (n - 1) * lgamma( (n + 1) / 2 ))
                                   ^
```
[tests/testthat/test_distributions.R:345:48:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_distributions.R#L345) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
                - (n - 1) * lgamma( (n + 1) / 2 ))
                                               ^
```
[tests/testthat/test_functions.R:170:27:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_functions.R#L170) *style:* **Variable and function name style should be snake_case.**
```r
  check_apply <- function(X, MARGIN, FUN) {
                          ^
```
[tests/testthat/test_functions.R:170:30:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_functions.R#L170) *style:* **Variable and function name style should be snake_case.**
```r
  check_apply <- function(X, MARGIN, FUN) {
                             ^~~~~~
```
[tests/testthat/test_functions.R:170:38:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_functions.R#L170) *style:* **Variable and function name style should be snake_case.**
```r
  check_apply <- function(X, MARGIN, FUN) {
                                     ^~~
```
[tests/testthat/test_functions.R:259:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_functions.R#L259) *style:* **Variable and function name style should be snake_case.**
```r
  STATS <- randn(5)
  ^~~~~
```
[tests/testthat/test_functions.R:260:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_functions.R#L260) *style:* **Variable and function name style should be snake_case.**
```r
  ga_STATS <- as_data(STATS)
  ^~~~~~~~
```
[tests/testthat/test_inference.R:407:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_inference.R#L407) *style:* **Variable and function name style should be snake_case.**
```r
  Sigma <- lkj_correlation(1, k)
  ^~~~~
```
[tests/testthat/test_misc.R:9:6:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_misc.R#L9) *style:* **Variable and function name style should be snake_case.**
```r
  tf$`__version__` <- "0.9.0"
     ^~~~~~~~~~~~~
```
[tests/testthat/test_misc.R:22:6:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_misc.R#L22) *style:* **Variable and function name style should be snake_case.**
```r
  tf$`__version__` <- true_version
     ^~~~~~~~~~~~~
```
[tests/testthat/test_posteriors.R:11:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_posteriors.R#L11) *style:* **Variable and function name style should be snake_case.**
```r
  N <- 100
  ^
```
[tests/testthat/test_posteriors.R:123:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_posteriors.R#L123) *style:* **Variable and function name style should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_representations.R:35:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L35) *style:* **Variable and function name style should be snake_case.**
```r
  W <- rWishart(1, m + 1, diag(m))[, , 1]
  ^
```
[tests/testthat/test_representations.R:36:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L36) *style:* **Variable and function name style should be snake_case.**
```r
  U <- chol(W)
  ^
```
[tests/testthat/test_representations.R:39:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L39) *style:* **Variable and function name style should be snake_case.**
```r
  W <- as_data(W)
  ^
```
[tests/testthat/test_representations.R:40:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L40) *style:* **Variable and function name style should be snake_case.**
```r
  U <- as_data(U)
  ^
```
[tests/testthat/test_representations.R:43:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L43) *style:* **Variable and function name style should be snake_case.**
```r
  W2 <- chol_to_symmetric(U)
  ^~
```
[tests/testthat/test_representations.R:150:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L150) *style:* **Variable and function name style should be snake_case.**
```r
  U <- as_data(chol(sig))
  ^
```
[tests/testthat/test_representations.R:180:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L180) *style:* **Variable and function name style should be snake_case.**
```r
  U <- as_data(chol(sig))
  ^
```
[tests/testthat/test_representations.R:199:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L199) *style:* **Variable and function name style should be snake_case.**
```r
  Ux <- as_data(chol(x))
  ^~
```
[tests/testthat/test_representations.R:230:3:](https://github.com/greta-dev/greta/blob/2868115fa1e6dcea4b9115f72cfad55221844f48/tests/testthat/test_representations.R#L230) *style:* **Variable and function name style should be snake_case.**
```r
  Ux <- as_data(chol(x))
  ^~
```


@jkbye -- I tried to compress this test and make it a bit more readable.  I think this tests the same thing that you were testing, let me know there's an important difference.


This change introduced a fatal error on product detail pages that don't have variations -

Examples:
https://koicbddev.wpengine.com/product/koi-cbd-soft-chews/
https://koicbddev.wpengine.com/product/koi-stik/

A potential fix may be to place this inside a conditional that checks the product type first.


Successfully deployed to following URLs:

* https://liff-mahjong-mj8lcxi16.now.sh
* https://liff-mahjong.now.sh
* https://liff-mahjong.isudzumi.now.sh
* https://liff-mahjong-git-master.isudzumi.now.sh


removeAirTermSDUncontrolled (mjwitte) - x86_64-MacOS-10.13-clang: OK (2579 of 2584 tests passed, 444 test warnings)

Messages:\n
 * 443 tests had: RDD diffs.
 * 172 tests had: AUD diffs.
 * 172 tests had: BND diffs.
 * 172 tests had: EIO diffs.
 * 25 tests had: MTD diffs.
 * 15 tests had: ESO small diffs.
 * 17 tests had: Table small diffs.
 * 4 tests had: ESO big diffs.
 * 18 tests had: MTR small diffs.
 * 3 tests had: ERR diffs.
 * 5 tests had: EDD diffs.
 * 1 test had: MDD diffs.
 * 1 test had: Table big diffs.

Failures:\n

PTHPFixture Test Summary
 * Passed: 2
 * Failed: 1

regression Test Summary
 * Passed: 665
 * Failed: 4

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


Sorry :(

Unfortunately, `ggstatsplot` is a beast in terms of its dependencies because it combines visualization and different kinds of statistical analyses in a single package.

Clearly I don't have developers in mind 😉
(https://www.youtube.com/watch?v=mum13N7CGUI)

![image](https://user-images.githubusercontent.com/11330453/69583616-9927d380-0fdb-11ea-9f22-b2f1d85ec070.png)


Successfully deployed to following URLs:

* https://response-docs-a7l8s3rhk.now.sh
* https://response-docs.now.sh
* https://response.lavra.io
* https://response-docs.lavra.now.sh
* https://response-docs-git-master.lavra.now.sh


TBH - this discussion is why I have set this on the back burner until now. The location of StrawResponse in my code is something currently under review as in I am about to move these things around (currently _tfit has StrawResponnse set in the CosmicTrackFinder --> Drift Utils is passed that for example in TimeResiduals functionality, this is how I get vprop currently. As part of the upgrade which I have in mind, and which will allow for this fix, that will have to change. I need to have a conversation with Dave, which I was trying not to have yet as I am currently just formulating other parts of the infrastructure. You are correct though, I think, the coming changes should correct both this seg fault and another issue I have elsewhere but I need to sort full plan first before I move anything.....anyway, thanks for your help here. Very useful :)


@jkbye The example file actually works now!  This file should help give you ideas of ways you can stretch the package and tests that you can write.


Copy of this build can be found at
https://www.mewbuilds.com/build/c0330765ad9ad5a3428d82deda3d4a9d67008a9b/index.html
                       https://www.cloudflare-ipfs.com/ipfs/QmVTse6CDuXAKYT9WWu8CR7CCvj8FThJhHG5hEtZH6be6v
                       Virus Total analysis
                       https://www.virustotal.com/file/72c94bc29e0fcce427c2deb29654b71362f2bbeb2280b74b5f839bda6e1806f0/analysis/1574721194/


TeamCity Bvcms / Build [Build 2881](https://builds.tpsdb.com/viewLog.html?buildId=10049&buildTypeId=Bvcms_Build) outcome was **FAILURE**
Summary: Compilation error: IntegrationTests\IntegrationTests.csproj (new) Build time: 00:05:43


Copy of this build can be found at
https://www.mewbuilds.com/build/81683d712ad4537ad1a6dca662b733b52be8bd55/index.html
                       https://www.cloudflare-ipfs.com/ipfs/QmPUQcsgZM2hVxJskGiMtsH71fUxTNkaRQ3K4RfrSdgrBQ
                       Virus Total analysis
                       https://www.virustotal.com/file/199256ecb3fe4a078869e7b14d118d7088ca63bfaedccc7806f2450ddd75f02e/analysis/1574721219/


Successfully deployed to following URLs:

* https://response-docs-n7tpuw401.now.sh
* https://response-docs.now.sh
* https://response.lavra.io
* https://response-docs.lavra.now.sh
* https://response-docs-git-master.lavra.now.sh


arquivo com os dados Pseudomonas Aeruginosa no formato json.