Arquivo _.docx_ com a correção da nomenclatura da planilha de importação:
-[Github_commit3_ajuste.docx](https://github.com/BrunaAQ/Batelada_ajuste_pontos_experimentais_Levenber_Maquardt/files/4017612/Github_commit3_ajuste.docx)

Arquivo _.xlsx_ com os dados numéricos a serem importados:
- [Input_batelada_processos_fermentativos_ajuste.xlsx](https://github.com/BrunaAQ/Batelada_ajuste_pontos_experimentais_Levenber_Maquardt/files/4017613/Input_batelada_processos_fermentativos_ajuste.xlsx)


Successfully deployed to following URLs:

* https://blog-9n3lf0t85.now.sh
* https://rauchg.com
* https://www.rauchg.com
* https://blog.rauchg.now.sh
* https://blog-git-master.rauchg.now.sh


> maybe another line break after iq

f564124


<details>

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

Schema Validation Failed!
Rejecting Schema: https://community-tc.services.mozilla.com/schemas/queue/v1/create-task-request.json#
Errors:
  * data should NOT have additional properties: "taskid"

---

* method:     createTask
* errorCode:  InputValidationError
* statusCode: 400
* time:       2020-01-02T22:48:58.540Z

</details>


<details>

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

Taskcluster-GitHub attempted to create a task for this event with the following scopes:

```
[
  "assume:repo:github.com/taskcluster/taskcluster:pull-request",
  "queue:route:checks",
  "queue:scheduler-id:taskcluster-github"
]
```

The expansion of these scopes is not sufficient to create the task, leading to the following:

Client ID static/taskcluster/github does not have sufficient scopes and is missing the following scopes:

```
{
  "AllOf": [
    "secrets:get:project/taskcluster/release",
    "queue:route:notify.email.taskcluster-notifications@mozilla.com.on-failed",
    "queue:route:notify.email.taskcluster-notifications@mozilla.com.on-exception",
    "queue:route:notify.irc-channel.#taskcluster-bots.on-any"
  ]
}
```

This request requires the client to satisfy the following scope expression:

```
{
  "AllOf": [
    "secrets:get:project/taskcluster/release",
    "queue:route:notify.email.taskcluster-notifications@mozilla.com.on-failed",
    "queue:route:notify.email.taskcluster-notifications@mozilla.com.on-exception",
    "queue:route:notify.irc-channel.#taskcluster-bots.on-any",
    "queue:route:checks",
    {
      "AnyOf": [
        {
          "AllOf": [
            "queue:scheduler-id:taskcluster-github",
            {
              "AnyOf": [
                "queue:create-task:highest:proj-taskcluster/ci",
                "queue:create-task:very-high:proj-taskcluster/ci",
                "queue:create-task:high:proj-taskcluster/ci",
                "queue:create-task:medium:proj-taskcluster/ci",
                "queue:create-task:low:proj-taskcluster/ci",
                "queue:create-task:very-low:proj-taskcluster/ci",
                "queue:create-task:lowest:proj-taskcluster/ci"
              ]
            }
          ]
        },
        {
          "AnyOf": [
            "queue:create-task:proj-taskcluster/ci",
            {
              "AllOf": [
                "queue:define-task:proj-taskcluster/ci",
                "queue:task-group-id:taskcluster-github/TTGf50SfT6Gd_38glygpcw",
                "queue:schedule-task:taskcluster-github/TTGf50SfT6Gd_38glygpcw/TTGf50SfT6Gd_38glygpcw"
              ]
            }
          ]
        }
      ]
    }
  ]
}
```

---

* method:     createTask
* errorCode:  InsufficientScopes
* statusCode: 403
* time:       2020-01-02T22:49:40.067Z

</details>


answer is modify ansible/roles/ironic/templates/ironic.conf.j2 file :)


Except `default_lifetime` currently, right?


I have no idea what changed in this commit and what was just reindenting the tabs/whitespace :/


崔雷 修改了页面


That's fixed as of https://github.com/mdlayher/corerad/commit/b9ce5d783b50444f7d96647e48d286178d4c7709 now.


I want to release today scott ... so if you are not sure ... revert


[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))
  ^~
```


Okay, I didnt know - I have never seen "*&" used together in my entire wow emu coding time xD


✅ Device tests passed on iOS on [Azure DevOps](https://dev.azure.com/devdiv/DevDiv/_build/index?buildId=3354683)(iOS): [Html Report](http://xamarin-storage//jenkins-results/tests/index.html) ✅

# :tada: All 142 tests passed :tada:


Feature without option.


Successfully deployed to following URLs:

* https://frontend-c08ekrp4m.now.sh
* https://frontend-phi-seven.now.sh
* https://characteristiq.now.sh
* https://frontend.characteristiq.now.sh
* https://frontend-git-master.characteristiq.now.sh


Successfully deployed to following URLs:

* https://smakoshcom-a5azh3md9.now.sh
* https://smakosh.com
* https://smakoshcom.smakosh.now.sh
* https://smakoshcom-git-master.smakosh.now.sh