[R/Condition.R:23:17:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L23) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  k  <-  lgamma((theta_x / 2) + (theta_y / 2)) -
                ^
```
[R/Condition.R:25:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L25) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  l  <- ( (theta_x / 2) - 1) * log(nx) + ((theta_y / 2) - 1) * log(ny)
        ^
```
[R/Condition.R:25:43:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L25) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  l  <- ( (theta_x / 2) - 1) * log(nx) + ((theta_y / 2) - 1) * log(ny)
                                          ^
```
[R/Condition.R:115:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L115) *style:* **Variable and function names should be all lowercase.**
```r
logLikelihood.Guilds.Conditional <- function(parameters, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:115:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L115) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
logLikelihood.Guilds.Conditional <- function(parameters, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:115:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L115) *style:* **Variable and function names should not be longer than 30 characters.**
```r
logLikelihood.Guilds.Conditional <- function(parameters, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:137:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L137) *style:* **Variable and function names should be all lowercase.**
```r
  ll <- logLikelihood.Guilds(parameters, model, sadx, sady, verbose)
        ^~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:137:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L137) *warning:* **no visible global function definition for ‘logLikelihood.Guilds’**
```r
  ll <- logLikelihood.Guilds(parameters, model, sadx, sady, verbose)
        ^~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:140:23:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L140) *warning:* **no visible global function definition for ‘calc_conditional’**
```r
  conditional_part <- calc_conditional(parameters, model, Nx, Ny)
                      ^~~~~~~~~~~~~~~~
```
[R/Condition.R:146:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L146) *style:* **Variable and function names should be all lowercase.**
```r
conditional.LogLik <- function(v, model, J, Sx, Sy, Nx, Ny, kda_x, kda_y,
^~~~~~~~~~~~~~~~~~
```
[R/Condition.R:166:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L166) *style:* **Variable and function names should be all lowercase.**
```r
  ll <- logLikguilds(theta_x, theta_y, alpha_x, alpha_y, J,
        ^~~~~~~~~~~~
```
[R/Condition.R:170:14:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L170) *warning:* **no visible global function definition for ‘calc_conditional’**
```r
  cond_ll <- calc_conditional(v, model, Nx, Ny)
             ^~~~~~~~~~~~~~~~
```
[R/Condition.R:175:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L175) *style:* **Variable and function names should be all lowercase.**
```r
maxLikelihood.Guilds.Conditional <- function(init_vals, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:175:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L175) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
maxLikelihood.Guilds.Conditional <- function(init_vals, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:175:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L175) *style:* **Variable and function names should not be longer than 30 characters.**
```r
maxLikelihood.Guilds.Conditional <- function(init_vals, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:179:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L179) *style:* **Variable and function names should be all lowercase.**
```r
  kda_x <- calcKDA(sadx)
           ^~~~~~~
```
[R/Condition.R:179:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L179) *warning:* **no visible global function definition for ‘calcKDA’**
```r
  kda_x <- calcKDA(sadx)
           ^~~~~~~
```
[R/Condition.R:180:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L180) *style:* **Variable and function names should be all lowercase.**
```r
  kda_y <- calcKDA(sady)
           ^~~~~~~
```
[R/Condition.R:180:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L180) *warning:* **no visible global function definition for ‘calcKDA’**
```r
  kda_y <- calcKDA(sady)
           ^~~~~~~
```
[R/Condition.R:201:17:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L201) *style:* **Variable and function names should be all lowercase.**
```r
    out <- -1 * conditional.LogLik(x, model, J, Sx, Sy, Nx, Ny,
                ^~~~~~~~~~~~~~~~~~
```
[R/Condition.R:209:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/Condition.R#L209) *warning:* **no visible global function definition for ‘simplex’, Did you mean 'complex'?**
```r
    x <- simplex(init_vals, g, verbose)
         ^~~~~~~
```
[R/drawLocal.R:8:19:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L8) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
      return(-1 * pm_sadaux(x, I, th, j, k))
                  ^~~~~~~~~
```
[R/drawLocal.R:9:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/drawLocal.R:10:36:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L10) *style:* **Commas should always have a space after.**
```r
    xmax <- stats::optimize(f, c(0,1))$minimum
                                   ^
```
[R/drawLocal.R:11:13:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L11) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
    ymax <- pm_sadaux(xmax, I, th, j, k)
            ^~~~~~~~~
```
[R/drawLocal.R:12:11:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L12) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
    y0 <- pm_sadaux(0, I, th, j, k)
          ^~~~~~~~~
```
[R/drawLocal.R:14:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
		} else if ((k == j) && (th == 1)) {
^~
```
[R/drawLocal.R:15:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
		  y[idx1] <- 0
^~
```
[R/drawLocal.R:16:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
		} else if ((k == j) && (th < 1)) {
^~
```
[R/drawLocal.R:17:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
		  y[idx1] <- Inf
^~
```
[R/drawLocal.R:17:16:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L17) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
        return(pm_sadaux(x, I, th, j, k) - ymax + 1)
               ^~~~~~~~~
```
[R/drawLocal.R:18:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L18) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/drawLocal.R:22:11:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L22) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
    y1 <- pm_sadaux(x1, I, th, j, k)
          ^~~~~~~~~
```
[R/drawLocal.R:23:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L23) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    while(ymax < (y1 + 1)) {
         ^
```
[R/drawLocal.R:25:13:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L25) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
      y1 <- pm_sadaux(x1, I, th, j, k)
            ^~~~~~~~~
```
[R/drawLocal.R:26:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L26) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/drawLocal.R:27:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L27) *style:* **Use two spaces to indent, never tabs.**
```r
		f <- function(x) {
^~
```
[R/drawLocal.R:27:19:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L27) *style:* **Put spaces around all infix operators.**
```r
		f <- function(x) {
                 ~^~~
```
[R/drawLocal.R:28:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L28) *style:* **Use two spaces to indent, never tabs.**
```r
				return(pm_sadaux(x, I, th, j, k)- ymax + 1)
^~~~
```
[R/drawLocal.R:28:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L28) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
				return(pm_sadaux(x, I, th, j, k)- ymax + 1)
           ^~~~~~~~~
```
[R/drawLocal.R:29:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L29) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/drawLocal.R:30:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L30) *style:* **Use two spaces to indent, never tabs.**
```r

^~
```
[R/drawLocal.R:30:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L30) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/drawLocal.R:31:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L31) *style:* **Use two spaces to indent, never tabs.**
```r
		xplu <- stats::uniroot(f, c(xmax, x1), tol = pracma::eps())$root
^~
```
[R/drawLocal.R:31:22:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L31) *style:* **Put spaces around all infix operators.**
```r
		xplu <- stats::uniroot(f, c(xmax, x1), tol = pracma::eps())$root
                    ~^~~
```
[R/drawLocal.R:31:60:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L31) *style:* **Put spaces around all infix operators.**
```r
		xplu <- stats::uniroot(f, c(xmax, x1), tol = pracma::eps())$root
                                                          ~^~
```
[R/drawLocal.R:32:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L32) *style:* **Use two spaces to indent, never tabs.**
```r
		xlft <- xmax - 10 * (xmax - xmin)
^~
```
[R/drawLocal.R:32:22:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L32) *style:* **Put spaces around all infix operators.**
```r
		xlft <- xmax - 10 * (xmax - xmin)
                    ~^~~
```
[R/drawLocal.R:32:30:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L32) *style:* **Put spaces around all infix operators.**
```r
		xlft <- xmax - 10 * (xmax - xmin)
                            ~^~
```
[R/drawLocal.R:32:35:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L32) *style:* **Put spaces around all infix operators.**
```r
		xlft <- xmax - 10 * (xmax - xmin)
                                 ~^
```
[R/drawLocal.R:32:36:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L32) *style:* **Trailing whitespace is superfluous.**
```r
		xlft <- xmax - 10 * (xmax - xmin)
                                   ^
```
[R/drawLocal.R:33:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L33) *style:* **Use two spaces to indent, never tabs.**
```r
		xlft <- max(0, xlft)
^~
```
[R/drawLocal.R:33:22:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L33) *style:* **Put spaces around all infix operators.**
```r
		xlft <- max(0, xlft)
                    ~^~~
```
[R/drawLocal.R:34:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L34) *style:* **Use two spaces to indent, never tabs.**
```r
		xrgt <- xmax + 10 * (xplu - xmax)
^~
```
[R/drawLocal.R:34:22:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L34) *style:* **Put spaces around all infix operators.**
```r
		xrgt <- xmax + 10 * (xplu - xmax)
                    ~^~~
```
[R/drawLocal.R:34:30:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L34) *style:* **Put spaces around all infix operators.**
```r
		xrgt <- xmax + 10 * (xplu - xmax)
                            ~^~
```
[R/drawLocal.R:34:35:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L34) *style:* **Put spaces around all infix operators.**
```r
		xrgt <- xmax + 10 * (xplu - xmax)
                                 ~^~
```
[R/drawLocal.R:35:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L35) *style:* **Use two spaces to indent, never tabs.**
```r
		xrgt <- min(1, xrgt)
^~
```
[R/drawLocal.R:35:22:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L35) *style:* **Put spaces around all infix operators.**
```r
		xrgt <- min(1, xrgt)
                    ~^~~
```
[R/drawLocal.R:37:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L37) *style:* **Use two spaces to indent, never tabs.**
```r
		f <- function(x) {
^~
```
[R/drawLocal.R:37:19:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L37) *style:* **Put spaces around all infix operators.**
```r
		f <- function(x) {
                 ~^~~
```
[R/drawLocal.R:38:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L38) *style:* **Use two spaces to indent, never tabs.**
```r
		    return( exp( pm_sadaux(x, I, th, j, k)))
^~
```
[R/drawLocal.R:38:20:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L38) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
		    return( exp( pm_sadaux(x, I, th, j, k)))
                   ^~~~~~~~~
```
[R/drawLocal.R:39:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L39) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/drawLocal.R:41:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L41) *style:* **Use two spaces to indent, never tabs.**
```r
		res[cnt] <- integrate(f, xlft, xrgt, abs.tol = 1e-9)$val  #checked!!!!!1
^~
```
[R/drawLocal.R:41:26:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L41) *style:* **Put spaces around all infix operators.**
```r
		res[cnt] <- integrate(f, xlft, xrgt, abs.tol = 1e-9)$val  #checked!!!!!1
                        ~^~~
```
[R/drawLocal.R:41:62:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L41) *style:* **Put spaces around all infix operators.**
```r
		res[cnt] <- integrate(f, xlft, xrgt, abs.tol = 1e-9)$val  #checked!!!!!1
                                                            ~^~
```
[R/drawLocal.R:44:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L44) *style:* **Use two spaces to indent, never tabs.**
```r
	#the original algorithm had 1:j, but at the interp1 algorithm
^
```
[R/drawLocal.R:44:63:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L44) *style:* **Trailing whitespace is superfluous.**
```r
	#the original algorithm had 1:j, but at the interp1 algorithm
                                                              ^
```
[R/drawLocal.R:45:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L45) *style:* **Use two spaces to indent, never tabs.**
```r
	# does not evaluate at the ends.
^
```
[R/drawLocal.R:46:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L46) *style:* **Use two spaces to indent, never tabs.**
```r
	k2 <- 1:(j - 1)
^
```
[R/drawLocal.R:46:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L46) *style:* **Put spaces around all infix operators.**
```r
	k2 <- 1:(j - 1)
          ~^
```
[R/drawLocal.R:46:17:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L46) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	k2 <- 1:(j - 1)
                ^
```
[R/drawLocal.R:46:17:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L46) *style:* **Trailing whitespace is superfluous.**
```r
	k2 <- 1:(j - 1)
                ^~
```
[R/drawLocal.R:47:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L47) *style:* **Use two spaces to indent, never tabs.**
```r
	kesk <- pracma::interp1(x = log2(k1), y = k1 * res, xi = log2(k2), method = "spline")
^
```
[R/drawLocal.R:47:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L47) *style:* **lines should not be more than 80 characters.**
```r
	kesk <- pracma::interp1(x = log2(k1), y = k1 * res, xi = log2(k2), method = "spline")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/drawLocal.R:47:14:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L47) *style:* **Put spaces around all infix operators.**
```r
	kesk <- pracma::interp1(x = log2(k1), y = k1 * res, xi = log2(k2), method = "spline")
            ~^~~
```
[R/drawLocal.R:47:35:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L47) *style:* **Put spaces around all infix operators.**
```r
	kesk <- pracma::interp1(x = log2(k1), y = k1 * res, xi = log2(k2), method = "spline")
                                 ~^~
```
[R/drawLocal.R:47:49:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L47) *style:* **Put spaces around all infix operators.**
```r
	kesk <- pracma::interp1(x = log2(k1), y = k1 * res, xi = log2(k2), method = "spline")
                                                ^~
```
[R/drawLocal.R:47:54:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L47) *style:* **Put spaces around all infix operators.**
```r
	kesk <- pracma::interp1(x = log2(k1), y = k1 * res, xi = log2(k2), method = "spline")
                                                     ^~
```
[R/drawLocal.R:47:64:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L47) *style:* **Put spaces around all infix operators.**
```r
	kesk <- pracma::interp1(x = log2(k1), y = k1 * res, xi = log2(k2), method = "spline")
                                                              ~^~
```
[R/drawLocal.R:47:83:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L47) *style:* **Put spaces around all infix operators.**
```r
	kesk <- pracma::interp1(x = log2(k1), y = k1 * res, xi = log2(k2), method = "spline")
                                                                                ~^~
```
[R/drawLocal.R:48:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L48) *style:* **Use two spaces to indent, never tabs.**
```r
	k2 <- c(k2, j)
^
```
[R/drawLocal.R:48:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L48) *style:* **Put spaces around all infix operators.**
```r
	k2 <- c(k2, j)
          ~^~~
```
[R/drawLocal.R:49:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L49) *style:* **Use two spaces to indent, never tabs.**
```r
	kesk <- c(kesk, 0)
^
```
[R/drawLocal.R:49:14:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L49) *style:* **Put spaces around all infix operators.**
```r
	kesk <- c(kesk, 0)
            ~^~~
```
[R/drawLocal.R:50:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L50) *style:* **Use two spaces to indent, never tabs.**
```r
	esk <- kesk / k2
^
```
[R/drawLocal.R:50:13:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L50) *style:* **Put spaces around all infix operators.**
```r
	esk <- kesk / k2
           ~^
```
[R/drawLocal.R:51:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L51) *style:* **Use two spaces to indent, never tabs.**
```r
	esk[esk < pracma::eps()] <- pracma::eps()
^
```
[R/drawLocal.R:51:17:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L51) *style:* **Put spaces around all infix operators.**
```r
	esk[esk < pracma::eps()] <- pracma::eps()
               ~^~
```
[R/drawLocal.R:51:34:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L51) *style:* **Put spaces around all infix operators.**
```r
	esk[esk < pracma::eps()] <- pracma::eps()
                                ~^~~
```
[R/drawLocal.R:52:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L52) *style:* **Use two spaces to indent, never tabs.**
```r
	return(esk)
^
```
[R/drawLocal.R:58:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L58) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(idx0) > 0) {
    ^
```
[R/drawLocal.R:59:42:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L59) *style:* **Put spaces around all infix operators.**
```r
    aux <- log(th) + lgamma(I) - lgamma(I+j) +
                                        ~^~
```
[R/drawLocal.R:66:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L66) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if ((k<j)||((k == j) && (th > 1))) {
        ^
```
[R/drawLocal.R:66:11:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L66) *style:* **Put spaces around all infix operators.**
```r
    if ((k<j)||((k == j) && (th > 1))) {
         ~^~
```
[R/drawLocal.R:66:14:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L66) *style:* **Put spaces around all infix operators.**
```r
    if ((k<j)||((k == j) && (th > 1))) {
            ~^~~
```
[R/drawLocal.R:66:16:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L66) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if ((k<j)||((k == j) && (th > 1))) {
               ^
```
[R/drawLocal.R:66:17:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L66) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if ((k<j)||((k == j) && (th > 1))) {
                ^
```
[R/drawLocal.R:68:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L68) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		} else if ((k == j) && (th == 1)) {
                          ^
```
[R/drawLocal.R:68:28:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L68) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		} else if ((k == j) && (th == 1)) {
                           ^
```
[R/drawLocal.R:68:31:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L68) *style:* **Put spaces around all infix operators.**
```r
		} else if ((k == j) && (th == 1)) {
                             ~^~~
```
[R/drawLocal.R:68:37:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L68) *style:* **Put spaces around all infix operators.**
```r
		} else if ((k == j) && (th == 1)) {
                                    ^~~
```
[R/drawLocal.R:70:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L70) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		} else if ((k == j) && (th < 1)) {
                          ^
```
[R/drawLocal.R:70:28:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L70) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		} else if ((k == j) && (th < 1)) {
                           ^
```
[R/drawLocal.R:70:31:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L70) *style:* **Put spaces around all infix operators.**
```r
		} else if ((k == j) && (th < 1)) {
                             ~^~~
```
[R/drawLocal.R:70:37:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L70) *style:* **Put spaces around all infix operators.**
```r
		} else if ((k == j) && (th < 1)) {
                                   ~^~~
```
[R/drawLocal.R:74:17:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L74) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  idxp <- which((x > 0) & (x < 1))
                ^
```
[R/drawLocal.R:76:29:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L76) *style:* **Put spaces around all infix operators.**
```r
  aux <- log(th) + lgamma(I)-lgamma(I + j) +
                           ~^~
```
[R/drawLocal.R:80:13:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L80) *style:* **Put spaces around all infix operators.**
```r
         (th-1) * log(1 - xx) - log(xx)
           ~^~
```
[R/drawLocal.R:87:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L87) *warning:* **no visible global function definition for ‘getpx’, Did you mean 'get'?**
```r
  nx <- getpx(theta, alpha_x, alpha_y, JX, JY)
        ^~~~~
```
[R/drawLocal.R:91:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L91) *style:* **Put spaces around all infix operators.**
```r
  I_X <- alpha_x * nx * (J-1) / (1 - alpha_x * nx - alpha_y * ny)
                         ~^~
```
[R/drawLocal.R:92:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L92) *style:* **Put spaces around all infix operators.**
```r
  I_Y <- alpha_y * ny * (J-1) / (1 - alpha_x * nx - alpha_y * ny)
                         ~^~
```
[R/drawLocal.R:94:11:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L94) *warning:* **no visible global function definition for ‘pm_sad’**
```r
  sadx <- pm_sad(theta, I_X, JX)
          ^~~~~~
```
[R/drawLocal.R:95:11:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L95) *warning:* **no visible global function definition for ‘pm_sad’**
```r
  sady <- pm_sad(theta, I_Y, JY)
          ^~~~~~
```
[R/drawLocal.R:106:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L106) *style:* **Put spaces around all infix operators.**
```r
  I_X <- alpha_x * nx * (J-1) / (1 - alpha_x * nx - alpha_y * ny)
                         ~^~
```
[R/drawLocal.R:106:66:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L106) *style:* **Trailing whitespace is superfluous.**
```r
  I_X <- alpha_x * nx * (J-1) / (1 - alpha_x * nx - alpha_y * ny)
                                                                 ^
```
[R/drawLocal.R:107:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L107) *style:* **Put spaces around all infix operators.**
```r
  I_Y <- alpha_y * ny * (J-1) / (1 - alpha_x * nx - alpha_y * ny)
                         ~^~
```
[R/drawLocal.R:110:3:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L110) *style:* **Variable and function names should be all lowercase.**
```r
  allN <- 0:J
  ^~~~
```
[R/drawLocal.R:111:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L111) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.infinite(I_X) && is.infinite(I_Y)) {
    ^
```
[R/drawLocal.R:112:28:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L112) *style:* **Put spaces around all infix operators.**
```r
     probs <- exp( lgamma(J+1) -
                          ~^~
```
[R/drawLocal.R:112:33:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L112) *style:* **Trailing whitespace is superfluous.**
```r
     probs <- exp( lgamma(J+1) -
                                ^
```
[R/drawLocal.R:113:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L113) *style:* **Variable and function names should be all lowercase.**
```r
                  (lgamma(allN + 1) +
                          ^~~~
```
[R/drawLocal.R:113:38:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L113) *style:* **Trailing whitespace is superfluous.**
```r
                  (lgamma(allN + 1) +
                                     ^
```
[R/drawLocal.R:114:30:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L114) *style:* **Variable and function names should be all lowercase.**
```r
                  lgamma(J - allN + 1)) +
                             ^~~~
```
[R/drawLocal.R:114:42:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L114) *style:* **Trailing whitespace is superfluous.**
```r
                  lgamma(J - allN + 1)) +
                                         ^
```
[R/drawLocal.R:115:21:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L115) *style:* **Variable and function names should be all lowercase.**
```r
                    allN * log(nx) +
                    ^~~~
```
[R/drawLocal.R:115:37:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L115) *style:* **Trailing whitespace is superfluous.**
```r
                    allN * log(nx) +
                                    ^
```
[R/drawLocal.R:116:23:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L116) *style:* **Put spaces around all infix operators.**
```r
                    (J-allN) * log(ny))
                     ~^~
```
[R/drawLocal.R:116:24:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L116) *style:* **Variable and function names should be all lowercase.**
```r
                    (J-allN) * log(ny))
                       ^~~~
```
[R/drawLocal.R:118:14:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L118) *warning:* **no visible global function definition for ‘polyaeggenberger’**
```r
    probs <- polyaeggenberger(I_X, I_Y, J, allN)
             ^~~~~~~~~~~~~~~~
```
[R/drawLocal.R:118:44:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L118) *style:* **Variable and function names should be all lowercase.**
```r
    probs <- polyaeggenberger(I_X, I_Y, J, allN)
                                           ^~~~
```
[R/drawLocal.R:124:11:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L124) *warning:* **no visible global function definition for ‘pm_sad’**
```r
  sadx <- pm_sad(theta, I_X, NX)
          ^~~~~~
```
[R/drawLocal.R:125:11:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/drawLocal.R#L125) *warning:* **no visible global function definition for ‘pm_sad’**
```r
  sady <- pm_sad(theta, I_Y, NY)
          ^~~~~~
```
[R/ESF_function.R:1:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L1) *style:* **Variable and function names should be all lowercase.**
```r
logLikelihood.ESF <- function(theta, m, abund) {
^~~~~~~~~~~~~~~~~
```
[R/ESF_function.R:2:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L2) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(theta < 1 ||
    ^
```
[R/ESF_function.R:2:18:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L2) *style:* **Trailing whitespace is superfluous.**
```r
  if(theta < 1 ||
                 ^
```
[R/ESF_function.R:3:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L3) *style:* **Put spaces around all infix operators.**
```r
     m > (1-.Machine$double.eps) ||
          ~^~
```
[R/ESF_function.R:11:14:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L11) *style:* **Put spaces around all infix operators.**
```r
  I <- m * (J-1) / (1 - m)
            ~^~
```
[R/ESF_function.R:13:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L13) *style:* **Variable and function names should be all lowercase.**
```r
  kda <- calcKDA(abund)  #confirmed in PARI
         ^~~~~~~
```
[R/ESF_function.R:13:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L13) *warning:* **no visible global function definition for ‘calcKDA’**
```r
  kda <- calcKDA(abund)  #confirmed in PARI
         ^~~~~~~
```
[R/ESF_function.R:15:13:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L15) *warning:* **no visible global function definition for ‘calc_sum_kda’**
```r
  sumkda <- calc_sum_kda(S, J, I, theta, kda)
            ^~~~~~~~~~~~
```
[R/ESF_function.R:15:46:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L15) *style:* **Trailing whitespace is superfluous.**
```r
  sumkda <- calc_sum_kda(S, J, I, theta, kda)
                                             ^~
```
[R/ESF_function.R:16:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L16) *style:* **Trailing whitespace is superfluous.**
```r

^
```
[R/ESF_function.R:19:6:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L19) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(i in seq_along(x)) freq_x[i] <- x[[i]]
     ^
```
[R/ESF_function.R:20:18:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L20) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  prefactor1 <- -( sum(log(abund)) + sum(lgamma(1 + freq_x)) )
                 ^
```
[R/ESF_function.R:20:18:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L20) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  prefactor1 <- -( sum(log(abund)) + sum(lgamma(1 + freq_x)) )
                 ^
```
[R/ESF_function.R:20:61:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L20) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  prefactor1 <- -( sum(log(abund)) + sum(lgamma(1 + freq_x)) )
                                                            ^
```
[R/ESF_function.R:21:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L21) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ESF_function.R:23:22:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L23) *style:* **Put spaces around all infix operators.**
```r
  factor1 <- lgamma(J+1) + prefactor1
                    ~^~
```
[R/ESF_function.R:23:38:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L23) *style:* **Trailing whitespace is superfluous.**
```r
  factor1 <- lgamma(J+1) + prefactor1
                                     ^~
```
[R/ESF_function.R:24:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L24) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ESF_function.R:25:15:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L25) *style:* **Put spaces around all infix operators.**
```r
  factor2 <- S*log(theta)   -  (lgamma(I + J) - lgamma(I))
             ~^~
```
[R/ESF_function.R:26:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L26) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ESF_function.R:29:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L29) *style:* **Use two spaces to indent, never tabs.**
```r
	  out <- -1 * esf_local(x, abund, prefactor, kda)
^
```
[R/ESF_function.R:30:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L30) *style:* **Use two spaces to indent, never tabs.**
```r
		return(out)
^~
```
[R/ESF_function.R:35:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L35) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(theta < 1 ||
    ^
```
[R/ESF_function.R:35:18:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L35) *style:* **Trailing whitespace is superfluous.**
```r
  if(theta < 1 ||
                 ^
```
[R/ESF_function.R:36:15:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L36) *style:* **Trailing whitespace is superfluous.**
```r
     m <= 0 ||
              ^
```
[R/ESF_function.R:37:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L37) *style:* **Put spaces around all infix operators.**
```r
     m > (1-.Machine$double.eps)) {
          ~^~
```
[R/ESF_function.R:40:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L40) *style:* **Trailing whitespace is superfluous.**
```r

^
```
[R/ESF_function.R:43:14:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L43) *style:* **Put spaces around all infix operators.**
```r
  I <- m * (J-1) / (1 - m)
            ~^~
```
[R/ESF_function.R:45:13:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L45) *warning:* **no visible global function definition for ‘calc_sum_kda’**
```r
  sumkda <- calc_sum_kda(S, J, I, theta, kda)
            ^~~~~~~~~~~~
```
[R/ESF_function.R:46:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L46) *style:* **Trailing whitespace is superfluous.**
```r

^
```
[R/ESF_function.R:47:15:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L47) *style:* **Put spaces around all infix operators.**
```r
  factor2 <- S*log(theta)   -  (lgamma(I + J) - lgamma(I))
             ~^~
```
[R/ESF_function.R:48:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L48) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ESF_function.R:53:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L53) *style:* **Variable and function names should be all lowercase.**
```r
maxLikelihood.ESF <- function(init_vals, abund, verbose=TRUE) {
^~~~~~~~~~~~~~~~~
```
[R/ESF_function.R:71:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L71) *style:* **Variable and function names should be all lowercase.**
```r
  kda <- calcKDA(abund)  #confirmed in PARI
         ^~~~~~~
```
[R/ESF_function.R:71:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L71) *warning:* **no visible global function definition for ‘calcKDA’**
```r
  kda <- calcKDA(abund)  #confirmed in PARI
         ^~~~~~~
```
[R/ESF_function.R:74:3:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L74) *warning:* **local variable ‘S’ assigned but may not be used**
```r
  S <- length(abund)
  ^
```
[R/ESF_function.R:78:24:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L78) *style:* **Put spaces around all infix operators.**
```r
  prefactor <- lgamma(J+1) -( sum(log(abund)) + sum(lgamma(1 + freq_x)) )
                      ~^~
```
[R/ESF_function.R:78:28:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L78) *style:* **Put spaces around all infix operators.**
```r
  prefactor <- lgamma(J+1) -( sum(log(abund)) + sum(lgamma(1 + freq_x)) )
                           ^~
```
[R/ESF_function.R:78:29:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L78) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  prefactor <- lgamma(J+1) -( sum(log(abund)) + sum(lgamma(1 + freq_x)) )
                            ^
```
[R/ESF_function.R:79:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L79) *style:* **Trailing whitespace is superfluous.**
```r

^~~
```
[R/ESF_function.R:81:15:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L81) *style:* **Put spaces around all infix operators.**
```r
	  out <- -1 * esf_local(x, abund, prefactor, kda)
             ~^~~
```
[R/ESF_function.R:81:16:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L81) *warning:* **no visible global function definition for ‘esf_local’**
```r
	  out <- -1 * esf_local(x, abund, prefactor, kda)
               ^~~~~~~~~
```
[R/ESF_function.R:81:21:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L81) *style:* **Put spaces around all infix operators.**
```r
	  out <- -1 * esf_local(x, abund, prefactor, kda)
                   ~^~
```
[R/ESF_function.R:83:4:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L83) *style:* **Trailing whitespace is superfluous.**
```r
  }
   ^~
```
[R/ESF_function.R:84:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L84) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/ESF_function.R:85:14:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/ESF_function.R#L85) *warning:* **no visible global function definition for ‘simplex’, Did you mean 'complex'?**
```r
  optimum <- simplex(init_vals, g, verbose)
             ^~~~~~~
```
[R/evaluateLogLik2.R:1:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L1) *style:* **Variable and function names should be all lowercase.**
```r
evaluateLogLik <- function(v, theta_x, theta_y, alpha_x, alpha_y,
^~~~~~~~~~~~~~
```
[R/evaluateLogLik2.R:4:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L4) *style:* **Put spaces around all infix operators.**
```r
  ny <- 1-v
        ~^~
```
[R/evaluateLogLik2.R:5:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L5) *style:* **Put spaces around all infix operators.**
```r
  I_X <- alpha_x * nx * (J-1) / (1 - alpha_x * nx - alpha_y * ny)
                         ~^~
```
[R/evaluateLogLik2.R:6:27:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L6) *style:* **Put spaces around all infix operators.**
```r
  I_Y <- alpha_y * ny * (J-1) / (1 - alpha_x * nx - alpha_y * ny)
                         ~^~
```
[R/evaluateLogLik2.R:7:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L7) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/evaluateLogLik2.R:11:6:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L11) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(cnt in seq_along(I_X)) {
     ^
```
[R/evaluateLogLik2.R:17:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L17) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  l <- ((theta_x/2) - 1) * log(nx) + ((theta_y/2) - 1) * log(ny)
        ^
```
[R/evaluateLogLik2.R:17:17:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L17) *style:* **Put spaces around all infix operators.**
```r
  l <- ((theta_x/2) - 1) * log(nx) + ((theta_y/2) - 1) * log(ny)
               ~^~
```
[R/evaluateLogLik2.R:17:39:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L17) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  l <- ((theta_x/2) - 1) * log(nx) + ((theta_y/2) - 1) * log(ny)
                                      ^
```
[R/evaluateLogLik2.R:17:47:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L17) *style:* **Put spaces around all infix operators.**
```r
  l <- ((theta_x/2) - 1) * log(nx) + ((theta_y/2) - 1) * log(ny)
                                             ~^~
```
[R/evaluateLogLik2.R:19:8:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L19) *warning:* **no visible global function definition for ‘calc_sum_kda’**
```r
  s <- calc_sum_kda(Sx, Nx, I_X, (theta_x/2), KDA_X)
       ^~~~~~~~~~~~
```
[R/evaluateLogLik2.R:19:42:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L19) *style:* **Put spaces around all infix operators.**
```r
  s <- calc_sum_kda(Sx, Nx, I_X, (theta_x/2), KDA_X)
                                        ~^~
```
[R/evaluateLogLik2.R:20:8:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L20) *warning:* **no visible global function definition for ‘calc_sum_kda’**
```r
  z <- calc_sum_kda(Sy, Ny, I_Y, (theta_y/2), KDA_Y)
       ^~~~~~~~~~~~
```
[R/evaluateLogLik2.R:20:42:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L20) *style:* **Put spaces around all infix operators.**
```r
  z <- calc_sum_kda(Sy, Ny, I_Y, (theta_y/2), KDA_Y)
                                        ~^~
```
[R/evaluateLogLik2.R:21:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/evaluateLogLik2.R#L21) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/expected.R:1:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L1) *style:* **Variable and function names should be all lowercase.**
```r
prestonSort <- function(A) {
^~~~~~~~~~~
```
[R/expected.R:2:19:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L2) *style:* **Commas should always have a space after.**
```r
  output <- rep(0,13)
                  ^
```
[R/expected.R:3:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L3) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/expected.R:4:6:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L4) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(k in 1:length(output)) {
     ^
```
[R/expected.R:5:15:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L5) *style:* **Put spaces around all infix operators.**
```r
    start <- 2^(k-1)
             ~^~
```
[R/expected.R:5:16:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L5) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    start <- 2^(k-1)
               ^
```
[R/expected.R:5:18:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L5) *style:* **Put spaces around all infix operators.**
```r
    start <- 2^(k-1)
                ~^~
```
[R/expected.R:6:18:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L6) *style:* **Put spaces around all infix operators.**
```r
    end <- -1 + 2^(k)
                ~^~
```
[R/expected.R:6:19:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L6) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    end <- -1 + 2^(k)
                  ^
```
[R/expected.R:7:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L7) *style:* **Use two spaces to indent, never tabs.**
```r
		M <- draw_local(theta, alpha_x, alpha_y, J)
^~
```
[R/expected.R:7:7:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L7) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(end > length(A)) {
      ^
```
[R/expected.R:8:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L8) *style:* **Use two spaces to indent, never tabs.**
```r
		for (m in 1:length(M$guildX)) {
^~
```
[R/expected.R:9:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
			meanX[m] <- meanX[m] + M$guildX[m]
^~~
```
[R/expected.R:10:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L10) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/expected.R:11:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L11) *style:* **Use two spaces to indent, never tabs.**
```r
		for (m in 1:length(M$guildY)) {
^~
```
[R/expected.R:11:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L11) *style:* **Use two spaces to indent, never tabs.**
```r
		M <- draw_local_cond(theta, alpha_x, alpha_y, Jx, Jy)
^~
```
[R/expected.R:12:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L12) *style:* **Use two spaces to indent, never tabs.**
```r
			meanY[m] <- meanY[m] + M$guildY[m]
^~~
```
[R/expected.R:12:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L12) *style:* **Use two spaces to indent, never tabs.**
```r
		for (m in 1:length(M$guildX)) {
^~
```
[R/expected.R:13:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L13) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/expected.R:13:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L13) *style:* **Use two spaces to indent, never tabs.**
```r
			meanX[m] <- meanX[m] + M$guildX[m]
^~~
```
[R/expected.R:14:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/expected.R:15:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
		for (m in 1:length(M$guildY)) {
^~
```
[R/expected.R:16:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
			meanY[m] <- meanY[m] + M$guildY[m]
^~~
```
[R/expected.R:17:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/expected.R:21:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L21) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(theta < 1) {
    ^
```
[R/expected.R:25:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L25) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(m < 0) {
    ^
```
[R/expected.R:29:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L29) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(m > 1) {
    ^
```
[R/expected.R:33:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L33) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(J < 0) {
    ^
```
[R/expected.R:37:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L37) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/expected.R:38:5:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L38) *style:* **Use <-, not =, for assignment.**
```r
  I = (J-1)* m / (1-m)
    ^
```
[R/expected.R:38:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L38) *style:* **Put spaces around all infix operators.**
```r
  I = (J-1)* m / (1-m)
       ~^~
```
[R/expected.R:38:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L38) *style:* **Put spaces around all infix operators.**
```r
  I = (J-1)* m / (1-m)
          ~^
```
[R/expected.R:38:20:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L38) *style:* **Put spaces around all infix operators.**
```r
  I = (J-1)* m / (1-m)
                  ~^~
```
[R/expected.R:39:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L39) *warning:* **no visible global function definition for ‘pm_sad’**
```r
  aux <- pm_sad(theta, I, J)
         ^~~~~~
```
[R/expected.R:40:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L40) *style:* **Variable and function names should be all lowercase.**
```r
  SAD <- prestonSort(aux)
         ^~~~~~~~~~~
```
[R/expected.R:40:10:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L40) *warning:* **no visible global function definition for ‘prestonSort’**
```r
  SAD <- prestonSort(aux)
         ^~~~~~~~~~~
```
[R/expected.R:44:1:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L44) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
expected.SAD.Guilds <- function(theta, alpha_x, alpha_y,
^~~~~~~~~~~~~~~~~~~
```
[R/expected.R:46:3:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L46) *style:* **Variable and function names should be all lowercase.**
```r
  meanX <- rep(0, J)
  ^~~~~
```
[R/expected.R:47:3:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L47) *style:* **Variable and function names should be all lowercase.**
```r
  meanY <- rep(0, J)
  ^~~~~
```
[R/expected.R:50:8:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L50) *warning:* **no visible global function definition for ‘draw_local’**
```r
		M <- draw_local(theta, alpha_x, alpha_y, J)
       ^~~~~~~~~~
```
[R/expected.R:50:19:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L50) *style:* **Put spaces around all infix operators.**
```r
		M <- draw_local(theta, alpha_x, alpha_y, J)
                 ~^~~
```
[R/expected.R:51:21:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L51) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		for (m in 1:length(M$guildX)) {
                    ^
```
[R/expected.R:51:38:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L51) *style:* **Variable and function names should be all lowercase.**
```r
		for (m in 1:length(M$guildX)) {
                                     ^~~~~~
```
[R/expected.R:52:25:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L52) *style:* **Variable and function names should be all lowercase.**
```r
			meanX[m] <- meanX[m] + M$guildX[m]
                        ^~~~~
```
[R/expected.R:52:34:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L52) *style:* **Put spaces around all infix operators.**
```r
			meanX[m] <- meanX[m] + M$guildX[m]
                                ~^~~
```
[R/expected.R:52:37:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L52) *style:* **Variable and function names should be all lowercase.**
```r
			meanX[m] <- meanX[m] + M$guildX[m]
                                    ^~~~~
```
[R/expected.R:52:50:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L52) *style:* **Variable and function names should be all lowercase.**
```r
			meanX[m] <- meanX[m] + M$guildX[m]
                                                 ^~~~~~
```
[R/expected.R:54:21:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L54) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		for (m in 1:length(M$guildY)) {
                    ^
```
[R/expected.R:54:38:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L54) *style:* **Variable and function names should be all lowercase.**
```r
		for (m in 1:length(M$guildY)) {
                                     ^~~~~~
```
[R/expected.R:55:25:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L55) *style:* **Variable and function names should be all lowercase.**
```r
			meanY[m] <- meanY[m] + M$guildY[m]
                        ^~~~~
```
[R/expected.R:55:34:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L55) *style:* **Put spaces around all infix operators.**
```r
			meanY[m] <- meanY[m] + M$guildY[m]
                                ~^~~
```
[R/expected.R:55:37:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L55) *style:* **Variable and function names should be all lowercase.**
```r
			meanY[m] <- meanY[m] + M$guildY[m]
                                    ^~~~~
```
[R/expected.R:55:50:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L55) *style:* **Variable and function names should be all lowercase.**
```r
			meanY[m] <- meanY[m] + M$guildY[m]
                                                 ^~~~~~
```
[R/expected.R:58:3:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L58) *style:* **Variable and function names should be all lowercase.**
```r
  meanX <- meanX / n_replicates
  ^~~~~
```
[R/expected.R:58:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L58) *style:* **Variable and function names should be all lowercase.**
```r
  meanX <- meanX / n_replicates
           ^~~~~
```
[R/expected.R:59:3:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L59) *style:* **Variable and function names should be all lowercase.**
```r
  meanY <- meanY / n_replicates
  ^~~~~
```
[R/expected.R:59:12:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L59) *style:* **Variable and function names should be all lowercase.**
```r
  meanY <- meanY / n_replicates
           ^~~~~
```
[R/expected.R:61:3:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L61) *style:* **Variable and function names should be all lowercase.**
```r
  gX <- prestonSort(meanX)
  ^~
```
[R/expected.R:61:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L61) *style:* **Variable and function names should be all lowercase.**
```r
  gX <- prestonSort(meanX)
        ^~~~~~~~~~~
```
[R/expected.R:61:9:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L61) *warning:* **no visible global function definition for ‘prestonSort’**
```r
  gX <- prestonSort(meanX)
        ^~~~~~~~~~~
```
[R/expected.R:61:21:](https://github.com/thijsjanzen/GUILDS/blob/7d53ec880bab76308a45deb7d45d53fa7607d1e7/R/expected.R#L61) *style:* **Variable and function names should be all lowercase.**
```r
  gX <- prestonSort(meanX)
                    ^~~~~
```


> Can you add the 480 MHz back?

Added to my TODO list

> And decide whether you want to set BPi M2+ back to 816 MHz while you're at it (no opinion on that, our thermal experiments said it would be necessary when people are trying out mainline but OTH I don't care about this board at all)

Sorry, didn't pay much attention to this board, so I don't have any opinion on this too


The development of such big mainframe devices in the 1940's continued in the next decade as computers became more advanced and new programming languages were created. Computer Science started to separate itself more from mathematics. Universities started teaching it as a separate subject. In 1953 University of Cambridge introduced Cambridge Diploma in Computer Science, a full-year course that was the first of its kind.

The vision of a personal computer, PC, was demonstrated in the late 1960's. First prototypes of PC's emerged, and these were designed to be used by a single person. While they did not take off in people's homes until decades later, they were first adopted by businesses. PC's were used in various tasks such as accounting, forecasting and database management: they truly became invaluable tools for businesses.


@ramanbuttar 0.10.1 released :)


TeamCity Glyssen :: Glyssen pull requests [Build *.*.256.04316b240d6c0f317369ed9cd9f151d826d2f0f8](http://build.palaso.org/viewLog.html?buildId=77057&buildTypeId=Glyssen_GlyssenPullRequests) outcome was **FAILURE**
Summary: Tests failed: 1 (1 new), passed: 1288, ignored: 17 Build time: 00:03:23
### Failed tests
```
GlyssenTests.dll: GlyssenTests.Bundle.GlyssenDblTextMetadataTests.Serialize: <no details avaliable>

```


we are using two new libraries - google them!


113836013-Swimming-Pool-Evaporation-and-Cover-Issues (Myoldmopar) - x86_64-Linux-Ubuntu-14.04-gcc-4.8: OK (2374 of 2375 tests passed, 0 test warnings)

 * 1 test had: AUD diffs.
 * 1 test had: EIO diffs.
 * 1 test had: ESO big diffs.
 * 1 test had: MTD diffs.
 * 1 test had: MTR big diffs.
 * 1 test had: RDD diffs.
 * 1 test had: Table big diffs.

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


113836013-Swimming-Pool-Evaporation-and-Cover-Issues (Myoldmopar) - x86_64-Linux-Ubuntu-14.04-cppcheck-1.61: OK (0 of 0 tests passed, 0 test warnings)

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


having connected our component it gets some new props - these are from the store + action creators..


113836013-Swimming-Pool-Evaporation-and-Cover-Issues (Myoldmopar) - x86_64-Linux-Ubuntu-14.04-gcc-4.8-UnitTestsCoverage-Debug: Tests Failed (0 of 0 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.svg) ![Test Badge](http://img.shields.io/badge/tests%20passed-NA-red.svg) ![Coverage Badge](http://img.shields.io/badge/coverage%20status-0.0%25-red.svg)


113836013-Swimming-Pool-Evaporation-and-Cover-Issues (Myoldmopar) - x86_64-Linux-Ubuntu-14.04-gcc-4.8-IntegrationCoverage-Debug: Tests Failed (0 of 0 tests passed, 0 test warnings)

![Build Badge](http://img.shields.io/badge/build%20status-passing-green.svg) ![Test Badge](http://img.shields.io/badge/tests%20passed-NA-red.svg) ![Coverage Badge](http://img.shields.io/badge/coverage%20status-0.0%25-red.svg)


113836013-Swimming-Pool-Evaporation-and-Cover-Issues (Myoldmopar) - x86_64-Linux-Ubuntu-14.04-custom_check: OK (0 of 0 tests passed, 0 test warnings)

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


Moin,

das mit dem Soundpool finde ich gut. :D
Dann kann man am level hinterlegen, welches stück gespielt werden soll. Ich bin mir bei den Sounds der figur nur nicht ganz sicher. Ich denke es wäre schon angenehm, wenn diese selber bei bestimmte aktionen SOunds abspielen kann, wie z.B. springen.

Das mit dem wechseln der musik würde ich eventuell über unsichtbare Blöcke machen - wenn man durschreitet wird ein event ausgelöst, welches das nächste stück spielt. Ich gehe davon noch von 2 Spielfeld-layern aus.

VG
    Alex


We are going to use this connector as an HoC to connect our component to the store


Collaborator:
A review for this commit was created. [Link to review](http://dev.visitry.org/ui#review:id=79)


TeamCity OTA+ :: rvi_sota_server :: ci [Build 1127](http://teamcity.prod01.internal.advancedtelematic.com:8111/viewLog.html?buildId=13993&buildTypeId=ota_plus_RviSotaServer_Ci) is now running


TeamCity OTA+ :: rvi_sota_server :: ci [Build 1126](http://teamcity.prod01.internal.advancedtelematic.com:8111/viewLog.html?buildId=13989&buildTypeId=ota_plus_RviSotaServer_Ci) outcome was **SUCCESS**
Summary: Tests passed: 245, ignored: 3 Build time: 00:12:03


Create a new store combining together all our reducers..


The provider provides the store to any connected components


Fixes #20


TeamCity Xbim :: Xbim Geometry :: XbimGeometry [Build 255](http://xbimbuilds.cloudapp.net/viewLog.html?buildId=1216&buildTypeId=Xbim_XbimGeometry_XbimGeometry) is now running


ついでにLoadConfingのやつに説明付けました。


TeamCity Glyssen :: Glyssen pull requests [Build *.*.257.b96711968d31cd3261dc47d0d9f2e49381e48f20](http://build.palaso.org/viewLog.html?buildId=77058&buildTypeId=Glyssen_GlyssenPullRequests) outcome was **SUCCESS**
Summary: Tests passed: 1289, ignored: 17 Build time: 00:03:15