[R/rbin.R:74:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rbin.R#L74) *style:* **Lines should not be more than 80 characters.**
```r
#' @importFrom stats as.formula formula model.frame model.matrix pnorm qcauchy qlogis rnorm terms toeplitz update
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rbin.R:107:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rbin.R#L107) *style:* **Lines should not be more than 80 characters.**
```r
#' binGEEmod <- gee(y ~ x, family = binomial('probit'), id = id, data = CorBinRes$simdata)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rbin.R:118:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rbin.R#L118) *style:* **Lines should not be more than 80 characters.**
```r
#' binGEEmod <- gee(y ~ x, family = binomial('logit'), id = id, data = CorBinRes$simdata)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rbin.R:124:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rbin.R#L124) *style:* **Variable or function name should be snake_case.**
```r
    cor.matrix = cor.matrix, rlatent = NULL){
    ^~~~~~~~~~
```
[R/rbin.R:133:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rbin.R#L133) *style:* **Variable or function name should be snake_case.**
```r
    R <- nrow(lin_pred)
    ^
```
[R/rbin.R:135:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rbin.R#L135) *style:* **Variable or function name should be snake_case.**
```r
    Ysim <- apply_threshold(lin_pred, rlatent, clsize, "rbin", intercepts)
    ^~~~
```
[R/rmult.acl.R:107:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.acl.R#L107) *style:* **Lines should not be more than 80 characters.**
```r
#' CorOrdRes <- rmult.acl(clsize = clsize, intercepts = intercepts, betas = betas,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rmult.acl.R:110:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.acl.R#L110) *style:* **Lines should not be more than 80 characters.**
```r
#' fit <- ordLORgee(y ~ x1 + x2, data = CorOrdRes$simdata, id = id, repeated = time,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rmult.acl.R:115:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.acl.R#L115) *style:* **Variable or function name should be snake_case.**
```r
rmult.acl <- function(clsize = clsize, intercepts = intercepts, betas = betas,
^~~~~~~~~
```
[R/rmult.acl.R:116:56:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.acl.R#L116) *style:* **Variable or function name should be snake_case.**
```r
    xformula = formula(xdata), xdata = parent.frame(), cor.matrix = cor.matrix,
                                                       ^~~~~~~~~~
```
[R/rmult.bcl.R:104:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.bcl.R#L104) *style:* **Lines should not be more than 80 characters.**
```r
#' cor.matrix <- kronecker(toeplitz(c(1, rep(0.95, clsize - 1))), diag(ncategories))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rmult.bcl.R:105:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.bcl.R#L105) *style:* **Lines should not be more than 80 characters.**
```r
#' CorNomRes <- rmult.bcl(clsize = clsize, ncategories = ncategories, betas = betas,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rmult.bcl.R:108:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.bcl.R#L108) *style:* **Lines should not be more than 80 characters.**
```r
#' fit <- nomLORgee(y ~ x1 + x2, data = CorNomRes$simdata, id = id, repeated = time,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rmult.bcl.R:113:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.bcl.R#L113) *style:* **Variable or function name should be snake_case.**
```r
rmult.bcl <- function(clsize = clsize, ncategories = ncategories, betas = betas,
^~~~~~~~~
```
[R/rmult.bcl.R:114:56:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.bcl.R#L114) *style:* **Variable or function name should be snake_case.**
```r
    xformula = formula(xdata), xdata = parent.frame(), cor.matrix = cor.matrix,
                                                       ^~~~~~~~~~
```
[R/rmult.bcl.R:124:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.bcl.R#L124) *style:* **Variable or function name should be snake_case.**
```r
    R <- nrow(lin_pred)
    ^
```
[R/rmult.bcl.R:127:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.bcl.R#L127) *style:* **Variable or function name should be snake_case.**
```r
    Ysim <- apply_threshold(lin_pred, rlatent, clsize, "rmult.bcl",
    ^~~~
```
[R/rmult.clm.R:107:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.clm.R#L107) *style:* **Lines should not be more than 80 characters.**
```r
#' CorOrdRes <- rmult.clm(clsize = clsize, intercepts = intercepts, betas = betas,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rmult.clm.R:118:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.clm.R#L118) *style:* **Lines should not be more than 80 characters.**
```r
#' fitmod <- ordLORgee(y ~ x, id = id, repeated = time, link = 'probit', data = CorOrdRes$simdata)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rmult.clm.R:122:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.clm.R#L122) *style:* **Variable or function name should be snake_case.**
```r
rmult.clm <- function(clsize = clsize, intercepts = intercepts, betas = betas,
^~~~~~~~~
```
[R/rmult.clm.R:124:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.clm.R#L124) *style:* **Variable or function name should be snake_case.**
```r
    cor.matrix = cor.matrix, rlatent = NULL) {
    ^~~~~~~~~~
```
[R/rmult.clm.R:133:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.clm.R#L133) *style:* **Variable or function name should be snake_case.**
```r
    R <- nrow(lin_pred)
    ^
```
[R/rmult.clm.R:135:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.clm.R#L135) *style:* **Variable or function name should be snake_case.**
```r
    Ysim <- apply_threshold(lin_pred, rlatent, clsize, "rmult.clm", intercepts)
    ^~~~
```
[R/rmult.crm.R:110:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.crm.R#L110) *style:* **Lines should not be more than 80 characters.**
```r
#' CorOrdRes <- rmult.crm(clsize = clsize, intercepts = intercepts, betas = betas,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rmult.crm.R:115:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.crm.R#L115) *style:* **Variable or function name should be snake_case.**
```r
rmult.crm <- function(clsize = clsize, intercepts = intercepts, betas = betas,
^~~~~~~~~
```
[R/rmult.crm.R:117:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.crm.R#L117) *style:* **Variable or function name should be snake_case.**
```r
    cor.matrix = cor.matrix, rlatent = NULL) {
    ^~~~~~~~~~
```
[R/rmult.crm.R:125:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.crm.R#L125) *style:* **Variable or function name should be snake_case.**
```r
    R <- nrow(lin_pred)
    ^
```
[R/rmult.crm.R:132:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rmult.crm.R#L132) *style:* **Variable or function name should be snake_case.**
```r
    Ysim <- apply_threshold(lin_pred_extended, rlatent, clsize, "rmult.crm",
    ^~~~
```
[R/rnorta.R:53:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rnorta.R#L53) *style:* **Lines should not be more than 80 characters.**
```r
#' SimLogistic <- rnorta(R = R, cor.matrix = LatentCorrelation, distr = CommonMarginals)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rnorta.R:64:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rnorta.R#L64) *style:* **Lines should not be more than 80 characters.**
```r
#' SimDiffMars <- rnorta(R = R, cor.matrix = LatentCorrelation, distr = DiffMarginals)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rnorta.R:73:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rnorta.R#L73) *style:* **Lines should not be more than 80 characters.**
```r
#' SimDiffMars2 <- rnorta(R = R, cor.matrix = LatentCorrelation, distr = DiffMarginals,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/rnorta.R:79:20:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rnorta.R#L79) *style:* **Variable or function name should be snake_case.**
```r
rnorta <- function(R = R, cor.matrix = cor.matrix, distr = distr,
                   ^
```
[R/rnorta.R:79:27:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rnorta.R#L79) *style:* **Variable or function name should be snake_case.**
```r
rnorta <- function(R = R, cor.matrix = cor.matrix, distr = distr,
                          ^~~~~~~~~~
```
[R/rsmvnorm.R:27:22:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rsmvnorm.R#L27) *style:* **Variable or function name should be snake_case.**
```r
rsmvnorm <- function(R = R, cor.matrix = cor.matrix) {
                     ^
```
[R/rsmvnorm.R:27:29:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rsmvnorm.R#L27) *style:* **Variable or function name should be snake_case.**
```r
rsmvnorm <- function(R = R, cor.matrix = cor.matrix) {
                            ^~~~~~~~~~
```
[R/rsmvnorm.R:32:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/rsmvnorm.R#L32) *style:* **Variable or function name should be snake_case.**
```r
    cor.matrix <- as.matrix(cor.matrix)
    ^~~~~~~~~~
```
[R/SimCorMultRes_internals.R:14:38:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L14) *style:* **Variable or function name should be snake_case.**
```r
check_correlation_matrix <- function(cor.matrix, clsize, rfctn,
                                     ^~~~~~~~~~
```
[R/SimCorMultRes_internals.R:29:13:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L29) *style:* **Variable or function name should be snake_case.**
```r
            diag.index <- 1:ncateg2 + (i - 1) * ncateg2
            ^~~~~~~~~~
```
[R/SimCorMultRes_internals.R:55:57:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L55) *style:* **Variable or function name should be snake_case.**
```r
check_intercepts <- function(intercepts, clsize, rfctn, R = NULL) {
                                                        ^
```
[R/SimCorMultRes_internals.R:128:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L128) *style:* **Variable or function name should be snake_case.**
```r
    Xmat <- model.matrix(lpformula, data = xdata)
    ^~~~
```
[R/SimCorMultRes_internals.R:130:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L130) *style:* **Variable or function name should be snake_case.**
```r
        Xmat <- apply(Xmat, 2, function(x) rep(x, each = ncategories))
        ^~~~
```
[R/SimCorMultRes_internals.R:134:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L134) *style:* **Variable or function name should be snake_case.**
```r
        Xmat <- matrix(Xmat[, -1], ncol = ncol(Xmat) - 1)
        ^~~~
```
[R/SimCorMultRes_internals.R:138:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L138) *style:* **Variable or function name should be snake_case.**
```r
    lin.pred <- matrix(betas, nrow = nrow(Xmat), ncol = ncol(Xmat),
    ^~~~~~~~
```
[R/SimCorMultRes_internals.R:141:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L141) *style:* **Variable or function name should be snake_case.**
```r
        lin.pred <- matrix(rowSums(lin.pred), ncol = ncategories * clsize,
        ^~~~~~~~
```
[R/SimCorMultRes_internals.R:144:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L144) *style:* **Variable or function name should be snake_case.**
```r
        lin.pred <- matrix(rowSums(lin.pred), ncol = clsize, byrow = TRUE)
        ^~~~~~~~
```
[R/SimCorMultRes_internals.R:160:37:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L160) *style:* **Variable or function name should be snake_case.**
```r
create_rlatent <- function(rlatent, R, link, clsize, cor.matrix, rfctn,
                                    ^
```
[R/SimCorMultRes_internals.R:160:54:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L160) *style:* **Variable or function name should be snake_case.**
```r
create_rlatent <- function(rlatent, R, link, clsize, cor.matrix, rfctn,
                                                     ^~~~~~~~~~
```
[R/SimCorMultRes_internals.R:164:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L164) *style:* **Variable or function name should be snake_case.**
```r
        cor.matrix <- check_correlation_matrix(cor.matrix, clsize, rfctn,
        ^~~~~~~~~~
```
[R/SimCorMultRes_internals.R:183:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L183) *style:* **Variable or function name should be snake_case.**
```r
        cor.matrix <- NULL
        ^~~~~~~~~~
```
[R/SimCorMultRes_internals.R:189:27:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L189) *style:* **Variable or function name should be snake_case.**
```r
create_output <- function(Ysim, R, clsize, rlatent, lpformula, xdata, rfctn,
                          ^~~~
```
[R/SimCorMultRes_internals.R:189:33:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L189) *style:* **Variable or function name should be snake_case.**
```r
create_output <- function(Ysim, R, clsize, rlatent, lpformula, xdata, rfctn,
                                ^
```
[R/SimCorMultRes_internals.R:213:5:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L213) *style:* **Variable or function name should be snake_case.**
```r
    R <- nrow(lin_pred)
    ^
```
[R/SimCorMultRes_internals.R:215:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L215) *style:* **Variable or function name should be snake_case.**
```r
        U <- rlatent - lin_pred
        ^
```
[R/SimCorMultRes_internals.R:217:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L217) *style:* **Variable or function name should be snake_case.**
```r
        U <- rlatent + lin_pred
        ^
```
[R/SimCorMultRes_internals.R:220:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L220) *style:* **Variable or function name should be snake_case.**
```r
        Ysim <- matrix(0, R, clsize)
        ^~~~
```
[R/SimCorMultRes_internals.R:223:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L223) *style:* **Variable or function name should be snake_case.**
```r
        Ysim <- 2 - Ysim
        ^~~~
```
[R/SimCorMultRes_internals.R:225:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L225) *style:* **Variable or function name should be snake_case.**
```r
        U <- matrix(as.vector(t(U)), nrow = clsize * R, ncol = ncategories,
        ^
```
[R/SimCorMultRes_internals.R:227:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L227) *style:* **Variable or function name should be snake_case.**
```r
        Ysim <- apply(U, 1, which.max)
        ^~~~
```
[R/SimCorMultRes_internals.R:228:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L228) *style:* **Variable or function name should be snake_case.**
```r
        Ysim <- matrix(Ysim, ncol = clsize, byrow = TRUE)
        ^~~~
```
[R/SimCorMultRes_internals.R:230:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L230) *style:* **Variable or function name should be snake_case.**
```r
        Ysim <- matrix(0, R, clsize)
        ^~~~
```
[R/SimCorMultRes_internals.R:234:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L234) *style:* **Variable or function name should be snake_case.**
```r
        Ysim <- matrix(as.numeric(t(U <= intercepts)), R * clsize, ncategories -
        ^~~~
```
[R/SimCorMultRes_internals.R:238:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L238) *style:* **Variable or function name should be snake_case.**
```r
        Ysim <- apply(Ysim, 1, min)
        ^~~~
```
[R/SimCorMultRes_internals.R:239:9:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L239) *style:* **Variable or function name should be snake_case.**
```r
        Ysim <- matrix(Ysim, R, clsize, byrow = TRUE)
        ^~~~
```
[R/SimCorMultRes_internals.R:254:22:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L254) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
        betas_bcl[, ( (i - 1) * (dim_betas + 1) + 1):(i * (dim_betas + 1))] <-
                     ^
```
[R/SimCorMultRes_internals.R:256:33:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes_internals.R#L256) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
            betas_matrix_bcl[, ( (i - 1) * (dim_betas) + 1):(i * (dim_betas))])
                                ^
```
[R/SimCorMultRes-package.R:68:1:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/R/SimCorMultRes-package.R#L68) *style:* **Lines should not be more than 80 characters.**
```r
#' @importFrom stats as.formula formula model.frame model.matrix na.omit pnorm qcauchy qlogis rnorm terms toeplitz update
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[tests/testthat/test_core_functions.R:3:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L3) *style:* **Variable or function name should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_core_functions.R:7:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L7) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- toeplitz(c(1, 0.9, 0.9, 0.9))
  ^~~~~~~~~~
```
[tests/testthat/test_core_functions.R:11:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L11) *style:* **Variable or function name should be snake_case.**
```r
  Ysim <- as.numeric(c(t(corbinres$rlatent)) <= intercepts + betas * x)
  ^~~~
```
[tests/testthat/test_core_functions.R:17:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_core_functions.R:21:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L21) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- toeplitz(c(1, 0.9, 0.9, 0.9))
  ^~~~~~~~~~
```
[tests/testthat/test_core_functions.R:26:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L26) *style:* **Variable or function name should be snake_case.**
```r
  Ysim <- as.numeric(c(t(corbinres$rlatent)) <= intercepts + betas * x)
  ^~~~
```
[tests/testthat/test_core_functions.R:33:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L33) *style:* **Variable or function name should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_core_functions.R:40:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L40) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- kronecker(toeplitz(c(1, rep(0.95, clsize - 1))),
  ^~~~~~~~~~
```
[tests/testthat/test_core_functions.R:45:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L45) *style:* **Variable or function name should be snake_case.**
```r
  Xmat <- model.matrix( ~x1 + x2, data = xdata)
  ^~~~
```
[tests/testthat/test_core_functions.R:45:24:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L45) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  Xmat <- model.matrix( ~x1 + x2, data = xdata)
                       ^
```
[tests/testthat/test_core_functions.R:46:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L46) *style:* **Variable or function name should be snake_case.**
```r
  Xmat <- apply(Xmat, 2, function(x) rep(x, each = ncategories))
  ^~~~
```
[tests/testthat/test_core_functions.R:51:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L51) *style:* **Variable or function name should be snake_case.**
```r
  Ysim <- apply(lin_pred, 1, which.max)
  ^~~~
```
[tests/testthat/test_core_functions.R:57:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L57) *style:* **Variable or function name should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_core_functions.R:68:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L68) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- kronecker(toeplitz(c(1, rep(0.95, clsize - 1))),
  ^~~~~~~~~~
```
[tests/testthat/test_core_functions.R:73:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L73) *style:* **Variable or function name should be snake_case.**
```r
  Xmat <- model.matrix( ~x1 + x2, data = xdata)
  ^~~~
```
[tests/testthat/test_core_functions.R:73:24:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L73) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  Xmat <- model.matrix( ~x1 + x2, data = xdata)
                       ^
```
[tests/testthat/test_core_functions.R:74:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L74) *style:* **Variable or function name should be snake_case.**
```r
  Xmat <- apply(Xmat, 2, function(x) rep(x, each = ncategories))
  ^~~~
```
[tests/testthat/test_core_functions.R:79:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L79) *style:* **Variable or function name should be snake_case.**
```r
  Ysim <- apply(lin_pred, 1, which.max)
  ^~~~
```
[tests/testthat/test_core_functions.R:87:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L87) *style:* **Variable or function name should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_core_functions.R:92:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L92) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- toeplitz(c(1, 0.85, 0.5, 0.15))
  ^~~~~~~~~~
```
[tests/testthat/test_core_functions.R:96:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L96) *style:* **Variable or function name should be snake_case.**
```r
  U <-  c(t(corordres$rlatent)) - c(betas) * x
  ^
```
[tests/testthat/test_core_functions.R:98:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L98) *style:* **Variable or function name should be snake_case.**
```r
  Ysim <- cut(U, intercepts, labels = FALSE)
  ^~~~
```
[tests/testthat/test_core_functions.R:106:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L106) *style:* **Variable or function name should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_core_functions.R:111:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L111) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- toeplitz(c(1, 0.85, 0.5, 0.15))
  ^~~~~~~~~~
```
[tests/testthat/test_core_functions.R:115:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L115) *style:* **Variable or function name should be snake_case.**
```r
  U <-  c(t(corordres$rlatent)) - c(betas) * x
  ^
```
[tests/testthat/test_core_functions.R:117:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L117) *style:* **Variable or function name should be snake_case.**
```r
  Ysim <- cut(U, intercepts, labels = FALSE)
  ^~~~
```
[tests/testthat/test_core_functions.R:125:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L125) *style:* **Variable or function name should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_core_functions.R:132:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L132) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- kronecker(toeplitz(c(1, rep(0.95, clsize - 1))), diag(4))
  ^~~~~~~~~~
```
[tests/testthat/test_core_functions.R:148:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L148) *style:* **Variable or function name should be snake_case.**
```r
  N <- 10
  ^
```
[tests/testthat/test_core_functions.R:154:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L154) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- diag(1, (ncategories - 1) * clsize) +
  ^~~~~~~~~~
```
[tests/testthat/test_core_functions.R:160:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L160) *style:* **Variable or function name should be snake_case.**
```r
  U <- c(t(corordres$rlatent)) - rep(x, each = ncategories - 1)
  ^
```
[tests/testthat/test_core_functions.R:161:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L161) *style:* **Variable or function name should be snake_case.**
```r
  Ysim <- matrix(as.numeric(t(U <= intercepts)), N * clsize, ncategories -
  ^~~~
```
[tests/testthat/test_core_functions.R:165:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_core_functions.R#L165) *style:* **Variable or function name should be snake_case.**
```r
  Ysim <- apply(Ysim, 1, min)
  ^~~~
```
[tests/testthat/test_utility_functions.R:3:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_utility_functions.R#L3) *style:* **Variable or function name should be snake_case.**
```r
  R <- 100
  ^
```
[tests/testthat/test_utility_functions.R:17:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_utility_functions.R#L17) *style:* **Variable or function name should be snake_case.**
```r
  R <- 100
  ^
```
[tests/testthat/test_utility_functions.R:18:3:](https://github.com/AnestisTouloumis/SimCorMultRes/blob/e29abcce7ef4b45e4ebf99ce534a52b729dac8ff/tests/testthat/test_utility_functions.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  cor.matrix <- toeplitz(c(1, 0.4))
  ^~~~~~~~~~
```


@kwj280 We can't delete from the playlist table because Sean wants the charts to be able to display albums that have fallen off the playlist during the start and end dates. For example, if we are charting for the period July 1st to July 7th, and album X was convert from the playlist to the library on July 4th, it is still eligible for ranking within the top 40. I'll replace the code that you commented out.


Here's testing map: [swirl4.zip](https://github.com/fabiangreffrath/crispy-doom/files/3356084/swirl4.zip). Speeds are:
* NUKAGE = `3`
* FWATER = `8`
* LAVA1 = `24`
* BLOOD = `66666`

If my inner timer and my eyes aren't tricking me, looks likes it works fine. But I'm a bit tired after job, so, Fabian, could you also please take a look? How to test: load attached map, come closer to the one of four liquids, make it centered in your view. Do not look to another surfaces, just focus your view in one of pixels on the texture and... Try to internally count, it's same to sense of rhythm.


Hi,

We found a regression on this modification.
In case of multiple includes of templates on the theme, `$smarty->source->name` value of the second template return the first value. After that, translation of the second template are not found.
We test to reintroduce `$filename` and older code it works like a charm !


Indeed. I also just went digging for this information and was about to file an issue about it before noticing it here.


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

Created multidev environment [ci-239](https://dashboard.pantheon.io/sites/a1cb0631-9c51-4439-bd6f-e7b7c38806ea#ci-239) for claimyourcoordinatescom.


Packages cane be compile with
-->javac -d . *(means to compile all import packages class).java
And run with
-->java (package name of main class with import package and class student1 of package)pack1.Example(main class name)


merge to gh-pages


Build version: __`3.2.0-renovate/node-11.x.542`__ :crossed_fingers: [`renovate/node-11.x`](https://github.com/streamich/md-mdast/tree/renovate/node-11.x) on [*CircleCI*](https://circleci.com/gh/streamich/md-mdast/542) :tada:


Successfully aliased the URL <https://veldu-rafbil-5a5hushhx.now.sh> to the following aliases.

* https://veldurafbil.is
* https://veldu-rafbil.hugihlynsson.now.sh
* https://veldu-rafbil-git-master.hugihlynsson.now.sh


When determining if an album is still on the playlist, you can utilize its `playlist_flag` on the `library` table. This way, an album can expire on the playlist (it's `Expire` date will be in the past) but it is still on the playlist until Sean converts it to the library.


Just curious, did I miss something in #25?


Successfully aliased the URL <https://code-garage-web-930z9lprj.now.sh> to the following aliases.

* https://codegarage.now.sh
* https://code-garage-web.emalorenzo1.now.sh
* https://code-garage-web-git-master.emalorenzo1.now.sh


@Woliver01 No, not in the Windows app. If you open **L:\Libraries** in Windows Explorer and double-click on **GitPrompt**, you should get a window that [looks something like this](https://images.app.goo.gl/UzBerRpRqNcTaCF89). You type the commands I listed in that window.


Couldn't run policy because the pull request is closed
:point_right: click here to view a full list of the events :point_left:


:white_check_mark: All Rules (2 / 2) Passed

      :crown: Good job! this pull request is aligned with your organization's best practices!

      :point_right: You can review your rules settings at smart policy management :point_left:

:point_right: click here to view a full list of the events :point_left:


Визуализация данных по НХЛ.
Dataset взят с сайта kaggle.


> Hmm, afaik nothing will happen.

Then why here too
https://github.com/ArrowOS-Devices/android_device_xiaomi_whyred/commit/f5ea6abbe4775cea5d0fcef81691c089d6b6af5c#diff-c2366e35d3e9e25b01d19e54bd0b5e25
And I'm daammm sure even whyred dosent support it :)


Successfully aliased the URL <https://ts-react-next-persistent-component-z28uepa8e.now.sh> to the following aliases.

* https://persistent-component.moviesom.com
* https://persistent-component.willim.nl
* https://ts-react-next-persistent-component.willemliu.now.sh
* https://ts-react-next-persistent-component-git-master.willemliu.now.sh


Successfully aliased the URL <https://ext-test-site-nf9syjafy.now.sh> to the following aliases.

* https://ext-test-site.qqq.now.sh
* https://ext-test-site-git-master.qqq.now.sh


Successfully aliased the URL <https://nextjs-static-bnxvnb654.now.sh> to the following aliases.

* https://nextjs-static.jmegs.now.sh
* https://nextjs-static-git-master.jmegs.now.sh


❌ [Build was (probably) aborted](https://jenkins.internalx.com/job/macios/job/xcode11/80/display/redirect)

🔥 [Jenkins job](https://jenkins.internalx.com/job/macios/job/xcode11/80/display/redirect) (on internal Jenkins) failed in stage(s) 'Running XM tests on '10.15', Running XM tests on '10.15'' 🔥

✅ [Build succeeded](https://jenkins.internalx.com/job/macios/job/xcode11/80//console)
✅ Packages: [xamarin.ios-12.99.1.1.pkg](https://bosstoragemirror.blob.core.windows.net/wrench/jenkins/xcode11/e91ce06dae2f1ed71125ae28ff4ea5b414324ef6/80/package/xamarin.ios-12.99.1.1.pkg) [xamarin.mac-5.99.1.1.pkg](https://bosstoragemirror.blob.core.windows.net/wrench/jenkins/xcode11/e91ce06dae2f1ed71125ae28ff4ea5b414324ef6/80/package/xamarin.mac-5.99.1.1.pkg)
✅ [API Diff (from stable)](http://xamarin-storage/jenkins/xamarin-macios/xcode11/e91ce06dae2f1ed71125ae28ff4ea5b414324ef6/80/jenkins-results/api-diff/index.html)
✅ [API Diff (from PR only)](http://xamarin-storage/jenkins/xamarin-macios/xcode11/e91ce06dae2f1ed71125ae28ff4ea5b414324ef6/80/jenkins-results/apicomparison/api-diff.html) (no change)
ℹ [Generator Diff](http://xamarin-storage/jenkins/xamarin-macios/xcode11/e91ce06dae2f1ed71125ae28ff4ea5b414324ef6/80/jenkins-results/generator-diff/index.html) (please review changes)
🔥 [Xamarin.Mac tests on 10.15 failed: Xamarin.Mac tests on macOS 10.15 failed (introspection, xammac_tests)](https://jenkins.internalx.com/job/macios/job/xcode11/80/display/redirect) 🔥
🔥 [Test run failed](http://xamarin-storage/jenkins/xamarin-macios/xcode11/e91ce06dae2f1ed71125ae28ff4ea5b414324ef6/80/jenkins-results/tests/index.html) 🔥

# Test results

<details>
<summary>2 tests failed, 232 tests passed.</summary>

## Failed tests

 * monotouch-test/watchOS 32-bits - simulator/Debug: Crashed
 * introspection/watchOS 32-bits - simulator/Debug (watchOS 3.2): TimedOut
</details>


Successfully aliased the URL <https://react-paginated-canvases-ip6p0n6o1.now.sh> to the following aliases.

* https://react-paginated-canvases.charlesdlandau.net
* https://react-paginated-canvases.charlesdlandau.now.sh
* https://react-paginated-canvases-git-master.charlesdlandau.now.sh


Добавлю, еще не все перенес


(Correção) Aula 41


Successfully aliased the URL <https://modular-scale-ltwpsuyv4.now.sh> to the following aliases.

* https://modular-scale.jmegs.now.sh
* https://modular-scale-git-master.jmegs.now.sh


Duplicate? See L359


I think excluding Laddie and Bess is enough, as other "temporary" party members don't really join player's party long enough (Lloyd) or even used in the game (Chicken, Karl, Jonny).


Второе задание


167068589_Issue7039 (Nigusse) - x86_64-Linux-Ubuntu-18.04-cppcheck: OK (0 of 0 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png)


Need semicolon at EOL here?


167068589_Issue7039 (Nigusse) - x86_64-Linux-Ubuntu-18.04-custom_check: OK (9 of 9 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.png)


Lighthouse scores (anonymous)

Best scores across 4 parallel runs:

✅ performance: 94.25/80

✅ accessibility: 100/90

✅ best-practices: 93/80

✅ seo: 100/80

Detailed reports: run 1, run 2, run 3, run 4


Test passed!


Successfully aliased the URL <https://proyecto-react-e2ec4ltbd.now.sh> to the following aliases.

* https://proyecto-react.jhonhst2.now.sh
* https://proyecto-react-git-master.jhonhst2.now.sh


boolean


Wouldn't it be nicer to make it so that different layers of glow had different transparency, as before? Or that isn't possible?


@matildepark looks like an accident. I'll fix.


good catch 4e767f1


Do you know what's HIDDEN_MEMBERS, anyway?


@kwj280 Why is this additional condition necessary if we know the `playlist_flag` is `'COMPLETE'`?


That's not possible. The boxes get packed into a gl list, so we can't render them at different colours (opacities)


When I open GitPrompt, I get this:
**git version 2.20.1.windows.1.27.g9f16cdd421
Microsoft Windows [Version 10.0.15063]
(c) 2017 Microsoft Corporation. All rights reserved.
L:\Libraries>**
And whenever I try to type a line of code, the L:\ part appears on every line and can't be deleted. I get this:
**L:\Libraries>d:
The system cannot find the drive specified.

L:\Libraries>cd D:\DCData\Libraries\DHCD
The system cannot find the drive specified.

L:\Libraries>git reset --soft HEAD^
More? git branch update-#76
fatal: not a git repository (or any of the parent directories): .git

L:\Libraries>git checkout update-#76
fatal: not a git repository (or any of the parent directories): .git**


@ptatian see above


Successfully aliased the URL <https://webring-checker-33h868vkh.now.sh> to the following aliases.

* https://webring-checker.now.sh
* https://webring-checker.ckipp01.now.sh
* https://webring-checker-git-master.ckipp01.now.sh


Successfully aliased the URL <https://react-paginated-canvases-adoxgotx2.now.sh> to the following aliases.

* https://react-paginated-canvases.charlesdlandau.net
* https://react-paginated-canvases.charlesdlandau.now.sh
* https://react-paginated-canvases-git-master.charlesdlandau.now.sh


[R/ShrinkCovMat_data.R:19:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/ShrinkCovMat_data.R#L19) *style:* **Lines should not be more than 80 characters.**
```r
#' \href{http://genomics-pubs.princeton.edu/oncology/affydata}{http://genomics-pubs.princeton.edu/oncology/affydata}
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/shrinkcovmat.equal.R:34:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.equal.R#L34) *style:* **Variable or function name should be snake_case.**
```r
shrinkcovmat.equal <- function(data, centered = FALSE) {
^~~~~~~~~~~~~~~~~~
```
[R/shrinkcovmat.equal.R:39:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.equal.R#L39) *style:* **Variable or function name should be snake_case.**
```r
  N <- ncol(data)
  ^
```
[R/shrinkcovmat.equal.R:63:8:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.equal.R#L63) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( (N + 1) * trace_sigma_squared_hat + (p - N) /
       ^
```
[R/shrinkcovmat.identity.R:33:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.identity.R#L33) *style:* **Variable or function name should be snake_case.**
```r
shrinkcovmat.identity <- function(data, centered = FALSE) {
^~~~~~~~~~~~~~~~~~~~~
```
[R/shrinkcovmat.identity.R:38:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.identity.R#L38) *style:* **Variable or function name should be snake_case.**
```r
  N <- ncol(data)
  ^
```
[R/shrinkcovmat.identity.R:64:8:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.identity.R#L64) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( (N + 1) * trace_sigma_squared_hat + trace_sigma_hat ^ 2 -
       ^
```
[R/shrinkcovmat.unequal.R:36:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.unequal.R#L36) *style:* **Variable or function name should be snake_case.**
```r
shrinkcovmat.unequal <- function(data, centered = FALSE) {
^~~~~~~~~~~~~~~~~~~~
```
[R/shrinkcovmat.unequal.R:41:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.unequal.R#L41) *style:* **Variable or function name should be snake_case.**
```r
  N <- ncol(data)
  ^
```
[R/shrinkcovmat.unequal.R:69:8:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmat.unequal.R#L69) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( (N + 1) * trace_sigma_squared_hat + trace_sigma_hat ^ 2 -
       ^
```
[R/shrinkcovmathat.default.R:1:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmathat.default.R#L1) *style:* **Variable or function name should be snake_case.**
```r
shrinkcovmathat.default <- function(x, ...) {
^~~~~~~~~~~~~~~~~~~~~~~
```
[R/shrinkcovmathat.default.R:3:10:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmathat.default.R#L3) *style:* **Variable or function name should be snake_case.**
```r
  object$Sigmahat <- x$Sigmahat
         ^~~~~~~~
```
[R/shrinkcovmathat.default.R:5:10:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmathat.default.R#L5) *style:* **Variable or function name should be snake_case.**
```r
  object$Sigmasample <- x$Sigmasample
         ^~~~~~~~~~~
```
[R/shrinkcovmathat.default.R:7:10:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/shrinkcovmathat.default.R#L7) *style:* **Variable or function name should be snake_case.**
```r
  object$Target <- x$Target
         ^~~~~~
```
[R/targetselection.R:24:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/targetselection.R#L24) *style:* **Lines should not be more than 80 characters.**
```r
#' ## Similar intensities, the range of the sample variances is small and the average
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/targetselection.R:25:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/targetselection.R#L25) *style:* **Lines should not be more than 80 characters.**
```r
#' ## is not close to one. The scaled identity matrix seems to be the most suitable
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/targetselection.R:30:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/targetselection.R#L30) *style:* **Lines should not be more than 80 characters.**
```r
#' ## Similar intensities, the range of the sample variances is small and the average
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/targetselection.R:31:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/targetselection.R#L31) *style:* **Lines should not be more than 80 characters.**
```r
#' ## is not close to one. The scaled identity matrix seems to be the most suitable
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/targetselection.R:72:8:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/targetselection.R#L72) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( (N + 1) * trace_sigma_squared_hat +
       ^
```
[R/targetselection.R:76:8:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/targetselection.R#L76) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( (N + 1) * trace_sigma_squared_hat + trace_sigma_hat ^ 2 -
       ^
```
[R/targetselection.R:81:8:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/R/targetselection.R#L81) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( (N + 1) * trace_sigma_squared_hat + trace_sigma_hat ^ 2 -
       ^
```
[tests/testthat/test_shrinkage_equal.R:5:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L5) *style:* **Variable or function name should be snake_case.**
```r
N <- 10
^
```
[tests/testthat/test_shrinkage_equal.R:10:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L10) *style:* **Variable or function name should be snake_case.**
```r
  Y1N <- sum(diag(sample_cov))
  ^~~
```
[tests/testthat/test_shrinkage_equal.R:12:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  Q <- sum(colSums(data_centered ^ 2) ^ 2) / (N - 1)
  ^
```
[tests/testthat/test_shrinkage_equal.R:13:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- (N - 1) / (N * (N - 2) * (N - 3)) *
  ^~~
```
[tests/testthat/test_shrinkage_equal.R:14:6:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L14) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    ( (N - 1) * (N - 2) * sum(sample_cov ^ 2) + Y1N ^ 2 - N * Q)
     ^
```
[tests/testthat/test_shrinkage_equal.R:28:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L28) *style:* **Variable or function name should be snake_case.**
```r
  Y1N <- sum(diag(sample_cov))
  ^~~
```
[tests/testthat/test_shrinkage_equal.R:30:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- 0
  ^~~
```
[tests/testthat/test_shrinkage_equal.R:32:5:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L32) *style:* **Variable or function name should be snake_case.**
```r
    Y2N <- sum(crossprod(datamat[, i], datamat[, (i + 1):N]) ^ 2) + Y2N
    ^~~
```
[tests/testthat/test_shrinkage_equal.R:34:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- 2 * Y2N / N / (N - 1)
  ^~~
```
[tests/testthat/test_shrinkage_equal.R:35:35:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_equal.R#L35) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  lambdahat <- (Y1N ^ 2 + Y2N) / ( (N + 1) * Y2N + (p - N) / p * Y1N ^ 2)
                                  ^
```
[tests/testthat/test_shrinkage_identity.R:5:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L5) *style:* **Variable or function name should be snake_case.**
```r
N <- 5
^
```
[tests/testthat/test_shrinkage_identity.R:10:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L10) *style:* **Variable or function name should be snake_case.**
```r
  Y1N <- sum(diag(sample_cov))
  ^~~
```
[tests/testthat/test_shrinkage_identity.R:12:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L12) *style:* **Variable or function name should be snake_case.**
```r
  Q <- sum(colSums(data_centered ^ 2) ^ 2) / (N - 1)
  ^
```
[tests/testthat/test_shrinkage_identity.R:13:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- (N - 1) / (N * (N - 2) * (N - 3)) *
  ^~~
```
[tests/testthat/test_shrinkage_identity.R:14:6:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L14) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    ( (N - 1) * (N - 2) * sum(sample_cov ^ 2) + Y1N ^ 2 - N * Q)
     ^
```
[tests/testthat/test_shrinkage_identity.R:29:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L29) *style:* **Variable or function name should be snake_case.**
```r
  Y1N <- sum(diag(sample_cov))
  ^~~
```
[tests/testthat/test_shrinkage_identity.R:30:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- 0
  ^~~
```
[tests/testthat/test_shrinkage_identity.R:32:5:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L32) *style:* **Variable or function name should be snake_case.**
```r
    Y2N <- sum(crossprod(datamat[, i], datamat[, (i + 1):N]) ^ 2) + Y2N
    ^~~
```
[tests/testthat/test_shrinkage_identity.R:34:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L34) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- 2 * Y2N / N / (N - 1)
  ^~~
```
[tests/testthat/test_shrinkage_identity.R:36:6:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_identity.R#L36) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    ( (N + 1) * Y2N + Y1N ^ 2 - 2 * Y1N * N + p * N)
     ^
```
[tests/testthat/test_shrinkage_unequal.R:5:1:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L5) *style:* **Variable or function name should be snake_case.**
```r
N <- 4
^
```
[tests/testthat/test_shrinkage_unequal.R:13:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L13) *style:* **Variable or function name should be snake_case.**
```r
  Y1N <- sum(sigma_sample_variances)
  ^~~
```
[tests/testthat/test_shrinkage_unequal.R:15:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L15) *style:* **Variable or function name should be snake_case.**
```r
  Q <- sum(colSums(data_centered ^ 2) ^ 2) / (N - 1)
  ^
```
[tests/testthat/test_shrinkage_unequal.R:16:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L16) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- (N - 1) / (N * (N - 2) * (N - 3)) *
  ^~~
```
[tests/testthat/test_shrinkage_unequal.R:17:6:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L17) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    ( (N - 1) * (N - 2) * sum(sample_cov ^ 2) + Y1N ^ 2 - N * Q)
     ^
```
[tests/testthat/test_shrinkage_unequal.R:18:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  Sum1 <- Sum21 <- Sum22 <- Sum3 <- rep(0, p)
  ^~~~
```
[tests/testthat/test_shrinkage_unequal.R:18:11:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  Sum1 <- Sum21 <- Sum22 <- Sum3 <- rep(0, p)
          ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:18:20:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  Sum1 <- Sum21 <- Sum22 <- Sum3 <- rep(0, p)
                   ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:18:29:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L18) *style:* **Variable or function name should be snake_case.**
```r
  Sum1 <- Sum21 <- Sum22 <- Sum3 <- rep(0, p)
                            ^~~~
```
[tests/testthat/test_shrinkage_unequal.R:21:5:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L21) *style:* **Variable or function name should be snake_case.**
```r
    Sum1 <- rowSums(datamat[, i] * data2) + Sum1
    ^~~~
```
[tests/testthat/test_shrinkage_unequal.R:22:5:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L22) *style:* **Variable or function name should be snake_case.**
```r
    Sum21 <- rowSums(datamat[, i] ^ 3 * data2) + Sum21
    ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:23:5:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L23) *style:* **Variable or function name should be snake_case.**
```r
    Sum22 <- rowSums(data2 ^ 3 * datamat[, i]) + Sum22
    ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:24:5:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L24) *style:* **Variable or function name should be snake_case.**
```r
    Sum3 <- rowSums(datamat[, i] ^ 2 * data2 ^ 2) + Sum3
    ^~~~
```
[tests/testthat/test_shrinkage_unequal.R:26:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L26) *style:* **Variable or function name should be snake_case.**
```r
  Term1 <- 2 * sum(Sum3) / N / (N - 1)
  ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:27:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L27) *style:* **Variable or function name should be snake_case.**
```r
  Term2 <- 2 * (sum(Sum1 * rowSums(datamat ^ 2)) - sum(Sum21 + Sum22))
  ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:28:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L28) *style:* **Variable or function name should be snake_case.**
```r
  Term3 <- 4 * (sum(Sum1 ^ 2) - sum(Sum3) - Term2)
  ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:29:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L29) *style:* **Variable or function name should be snake_case.**
```r
  Term2 <- Term2 / N / (N - 1) / (N - 2)
  ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:30:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L30) *style:* **Variable or function name should be snake_case.**
```r
  Term3 <- Term3 / N / (N - 1) / (N - 2) / (N - 3)
  ^~~~~
```
[tests/testthat/test_shrinkage_unequal.R:31:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L31) *style:* **Variable or function name should be snake_case.**
```r
  Y3N <- Term1 - 2 * Term2 + Term3
  ^~~
```
[tests/testthat/test_shrinkage_unequal.R:48:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L48) *style:* **Variable or function name should be snake_case.**
```r
  Y1N <- sum(sigma_sample_variances)
  ^~~
```
[tests/testthat/test_shrinkage_unequal.R:49:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L49) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- Y3N <- 0
  ^~~
```
[tests/testthat/test_shrinkage_unequal.R:49:10:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L49) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- Y3N <- 0
         ^~~
```
[tests/testthat/test_shrinkage_unequal.R:51:5:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L51) *style:* **Variable or function name should be snake_case.**
```r
    Y2N <- sum(crossprod(datamat[, i], datamat[, (i + 1):N]) ^ 2) + Y2N
    ^~~
```
[tests/testthat/test_shrinkage_unequal.R:52:5:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L52) *style:* **Variable or function name should be snake_case.**
```r
    Y3N <- sum( (datamat[, i] * datamat[, (i + 1):N]) ^ 2) + Y3N
    ^~~
```
[tests/testthat/test_shrinkage_unequal.R:52:16:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L52) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    Y3N <- sum( (datamat[, i] * datamat[, (i + 1):N]) ^ 2) + Y3N
               ^
```
[tests/testthat/test_shrinkage_unequal.R:54:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L54) *style:* **Variable or function name should be snake_case.**
```r
  Y2N <- 2 * Y2N / N / (N - 1)
  ^~~
```
[tests/testthat/test_shrinkage_unequal.R:55:3:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L55) *style:* **Variable or function name should be snake_case.**
```r
  Y3N <- 2 * Y3N / N / (N - 1)
  ^~~
```
[tests/testthat/test_shrinkage_unequal.R:57:6:](https://github.com/AnestisTouloumis/ShrinkCovMat/blob/75403ce19137be1e8419305abc29d009a5b5bd7d/tests/testthat/test_shrinkage_unequal.R#L57) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    ( (N + 1) * Y2N + Y1N ^ 2 - (N + 2 - 2 / (N + 1)) * Y3N)
     ^
```


[inst/build_an_app/server.R:5:1:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/server.R#L5) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[inst/build_an_app/server.R:7:1:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/server.R#L7) *style:* **Trailing whitespace is superfluous.**
```r

^~~~
```
[inst/build_an_app/server.R:12:81:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/server.R#L12) *style:* **Trailing whitespace is superfluous.**
```r
        movies_filtered = movies_filtered[movies_filtered$year > input$year[1] &
                                                                                ^
```
[inst/build_an_app/server.R:13:84:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/server.R#L13) *style:* **Commas should always have a space after.**
```r
                                              movies_filtered$year < input$year[2],]
                                                                                ^
```
[inst/build_an_app/ui.R:8:46:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
    dashboardHeader(title = "Build an app!"),
                                             ^
```
[inst/build_an_app/ui.R:11:62:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L11) *style:* **Trailing whitespace is superfluous.**
```r
            menuItem("Movie controls", tabName = "controls"),
                                                             ^
```
[inst/build_an_app/ui.R:19:89:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L19) *style:* **Trailing whitespace is superfluous.**
```r
                        box(selectInput("classification", "Select movie Classification",
                                                                                ^
```
[inst/build_an_app/ui.R:20:59:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L20) *style:* **Commas should always have a space after.**
```r
                                        choices = c("12A","PG","U","15","18"),
                                                          ^
```
[inst/build_an_app/ui.R:20:64:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L20) *style:* **Commas should always have a space after.**
```r
                                        choices = c("12A","PG","U","15","18"),
                                                               ^
```
[inst/build_an_app/ui.R:20:68:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L20) *style:* **Commas should always have a space after.**
```r
                                        choices = c("12A","PG","U","15","18"),
                                                                   ^
```
[inst/build_an_app/ui.R:20:73:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L20) *style:* **Commas should always have a space after.**
```r
                                        choices = c("12A","PG","U","15","18"),
                                                                        ^
```
[inst/build_an_app/ui.R:20:79:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L20) *style:* **Trailing whitespace is superfluous.**
```r
                                        choices = c("12A","PG","U","15","18"),
                                                                              ^
```
[inst/build_an_app/ui.R:21:58:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L21) *style:* **Trailing whitespace is superfluous.**
```r
                                        multiple = TRUE),
                                                         ^
```
[inst/build_an_app/ui.R:22:39:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L22) *style:* **Trailing whitespace is superfluous.**
```r
                            width = 6,
                                      ^
```
[inst/build_an_app/ui.R:23:48:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L23) *style:* **Trailing whitespace is superfluous.**
```r
                            status = "primary",
                                               ^
```
[inst/build_an_app/ui.R:24:48:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L24) *style:* **Trailing whitespace is superfluous.**
```r
                            solidHeader = TRUE,
                                               ^
```
[inst/build_an_app/ui.R:25:49:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L25) *style:* **Trailing whitespace is superfluous.**
```r
                            collapsible = TRUE),
                                                ^
```
[inst/build_an_app/ui.R:26:81:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L26) *style:* **Trailing whitespace is superfluous.**
```r
                        box(sliderInput("rating", "Select minimum movie rating",
                                                                                ^
```
[inst/build_an_app/ui.R:27:71:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L27) *style:* **Trailing whitespace is superfluous.**
```r
                                        min = 0, max = 10, value = 0),
                                                                      ^
```
[inst/build_an_app/ui.R:28:39:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L28) *style:* **Trailing whitespace is superfluous.**
```r
                            width = 6,
                                      ^
```
[inst/build_an_app/ui.R:29:48:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L29) *style:* **Trailing whitespace is superfluous.**
```r
                            status = "primary",
                                               ^
```
[inst/build_an_app/ui.R:30:48:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L30) *style:* **Trailing whitespace is superfluous.**
```r
                            solidHeader = TRUE,
                                               ^
```
[inst/build_an_app/ui.R:34:86:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L34) *style:* **Trailing whitespace is superfluous.**
```r
                        box(sliderInput("duration", "Select a maximum film duration",
                                                                                ^
```
[inst/build_an_app/ui.R:35:82:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L35) *style:* **Trailing whitespace is superfluous.**
```r
                                        min = 1, max = max_duration, value = 90),
                                                                                ^
```
[inst/build_an_app/ui.R:36:39:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L36) *style:* **Trailing whitespace is superfluous.**
```r
                            width = 6,
                                      ^
```
[inst/build_an_app/ui.R:37:48:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L37) *style:* **Trailing whitespace is superfluous.**
```r
                            status = "primary",
                                               ^
```
[inst/build_an_app/ui.R:38:48:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L38) *style:* **Trailing whitespace is superfluous.**
```r
                            solidHeader = TRUE,
                                               ^
```
[inst/build_an_app/ui.R:40:71:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L40) *style:* **Trailing whitespace is superfluous.**
```r
                        box(sliderInput("year", "Select a year range",
                                                                      ^
```
[inst/build_an_app/ui.R:41:96:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L41) *style:* **Trailing whitespace is superfluous.**
```r
                                        min = min_year, max = max_year, value = c(1950, 2000)),
                                                                                ^
```
[inst/build_an_app/ui.R:42:39:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L42) *style:* **Trailing whitespace is superfluous.**
```r
                            width = 6,
                                      ^
```
[inst/build_an_app/ui.R:43:48:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L43) *style:* **Trailing whitespace is superfluous.**
```r
                            status = "primary",
                                               ^
```
[inst/build_an_app/ui.R:44:48:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L44) *style:* **Trailing whitespace is superfluous.**
```r
                            solidHeader = TRUE,
                                               ^
```
[inst/build_an_app/ui.R:47:11:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L47) *style:* **Trailing whitespace is superfluous.**
```r
        ),
          ^
```
[inst/build_an_app/ui.R:50:49:](https://github.com/jr-packages/jrShiny/blob/0f76f1831866c18c372760d33e67c77c85ea93bf/inst/build_an_app/ui.R#L50) *style:* **Trailing whitespace is superfluous.**
```r
            box(dataTableOutput("movies_table"),
                                                ^
```


Successfully aliased the URL <https://ota-solid-mzkwdw6af.now.sh> to the following aliases.

* https://ota-solid.now.sh
* https://ota-solid.ota.now.sh
* https://ota-solid-git-master.ota.now.sh


Стили