[R/calcSumKDA2.R:1:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L1) *style:* **Variable and function names should be all lowercase.**
```r
calcSumKDA2 <- function(S, N, I, theta, KDA) {
^~~~~~~~~~~
```
[R/calcSumKDA2.R:4:20:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L4) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  results <- matrix( 0, nrow = s, ncol = 1)
                   ^
```
[R/calcSumKDA2.R:7:28:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L7) *style:* **Put spaces around all infix operators.**
```r
    outcomes <- KDA[numbers+1] + (log(I[i]) * numbers)  -
                          ~^~
```
[R/calcSumKDA2.R:8:7:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L8) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( lgamma( theta + numbers ) - lgamma(theta) )
      ^
```
[R/calcSumKDA2.R:8:15:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L8) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( lgamma( theta + numbers ) - lgamma(theta) )
              ^
```
[R/calcSumKDA2.R:8:32:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L8) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( lgamma( theta + numbers ) - lgamma(theta) )
                               ^
```
[R/calcSumKDA2.R:8:50:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L8) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
      ( lgamma( theta + numbers ) - lgamma(theta) )
                                                 ^
```
[R/calcSumKDA2.R:8:52:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L8) *style:* **Trailing whitespace is superfluous.**
```r
      ( lgamma( theta + numbers ) - lgamma(theta) )
                                                   ^
```
[R/calcSumKDA2.R:10:19:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L10) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    log_max <- max( outcomes )
                  ^
```
[R/calcSumKDA2.R:10:29:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L10) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    log_max <- max( outcomes )
                            ^
```
[R/calcSumKDA2.R:11:19:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L11) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    sumlist <- sum( exp(outcomes - log_max) )
                  ^
```
[R/calcSumKDA2.R:11:44:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/calcSumKDA2.R#L11) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
    sumlist <- sum( exp(outcomes - log_max) )
                                           ^
```
[R/Condition.R:1:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L1) *style:* **Variable and function names should be all lowercase.**
```r
evaluateCondLik <- function(v, theta_x, theta_y, alpha_x, alpha_y, Nx, Ny) {
^~~~~~~~~~~~~~~
```
[R/Condition.R:5:27:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.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/Condition.R:6:27:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.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/Condition.R:12:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L12) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:13:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L13) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(cnt in 1:length(I_X)) {
     ^
```
[R/Condition.R:14:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L14) *style:* **Use <-, not =, for assignment.**
```r
    b[cnt] = lgamma(I_X[cnt] + I_Y[cnt] + J) - lgamma(I_X[cnt] + I_Y[cnt])
           ^
```
[R/Condition.R:15:17:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L15) *style:* **Use <-, not =, for assignment.**
```r
    poch_X[cnt] = lgamma(I_X[cnt] + Nx) - lgamma(I_X[cnt])
                ^
```
[R/Condition.R:16:17:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L16) *style:* **Use <-, not =, for assignment.**
```r
    poch_Y[cnt] = lgamma(I_Y[cnt] + Ny) - lgamma(I_Y[cnt])
                ^
```
[R/Condition.R:18:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L18) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:20:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L20) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:21:36:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L21) *style:* **Put spaces around all infix operators.**
```r
  h <- poch_X + poch_Y - (lgamma(Nx+1) + lgamma(Ny+1))
                                  ~^~
```
[R/Condition.R:21:51:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L21) *style:* **Put spaces around all infix operators.**
```r
  h <- poch_X + poch_Y - (lgamma(Nx+1) + lgamma(Ny+1))
                                                 ~^~
```
[R/Condition.R:22:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L22) *style:* **Trailing whitespace is superfluous.**
```r

^~~
```
[R/Condition.R:23:16:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L23) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  k  <-  lgamma( (theta_x / 2) + (theta_y / 2) ) -
               ^
```
[R/Condition.R:23:47:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L23) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
  k  <-  lgamma( (theta_x / 2) + (theta_y / 2) ) -
                                              ^
```
[R/Condition.R:23:51:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L23) *style:* **Trailing whitespace is superfluous.**
```r
  k  <-  lgamma( (theta_x / 2) + (theta_y / 2) ) -
                                                  ^
```
[R/Condition.R:24:53:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L24) *style:* **Do not place spaces around code in parentheses or square brackets.**
```r
          (lgamma(theta_x / 2) + lgamma(theta_y / 2) )
                                                    ^
```
[R/Condition.R:25:10:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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:25:42:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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:26:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L26) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:32:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L32) *style:* **Variable and function names should be all lowercase.**
```r
calcConditional <- function(v, model, Nx, Ny) {
^~~~~~~~~~~~~~~
```
[R/Condition.R:33:3:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L33) *style:* **Variable and function names should be all lowercase.**
```r
  incorrectLength <- 0
  ^~~~~~~~~~~~~~~
```
[R/Condition.R:34:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L34) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(model == "D0" && length(v) != 2) incorrectLength <- 1
    ^
```
[R/Condition.R:34:39:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L34) *style:* **Variable and function names should be all lowercase.**
```r
  if(model == "D0" && length(v) != 2) incorrectLength <- 1
                                      ^~~~~~~~~~~~~~~
```
[R/Condition.R:35:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L35) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(model == "D1" && length(v) != 3) incorrectLength <- 1
    ^
```
[R/Condition.R:35:39:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L35) *style:* **Variable and function names should be all lowercase.**
```r
  if(model == "D1" && length(v) != 3) incorrectLength <- 1
                                      ^~~~~~~~~~~~~~~
```
[R/Condition.R:36:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L36) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:37:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L37) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(incorrectLength == 1) {
    ^
```
[R/Condition.R:37:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L37) *style:* **Variable and function names should be all lowercase.**
```r
  if(incorrectLength == 1) {
     ^~~~~~~~~~~~~~~
```
[R/Condition.R:37:28:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L37) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  if(incorrectLength == 1) {
                           ^
```
[R/Condition.R:37:29:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L37) *style:* **Trailing whitespace is superfluous.**
```r
  if(incorrectLength == 1) {
                            ^
```
[R/Condition.R:38:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L38) *style:* **Use two spaces to indent, never tabs.**
```r
	x <- subplex(initVals, g)
^
```
[R/Condition.R:41:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L41) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:46:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L46) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:47:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L47) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(model == "D1") {
    ^
```
[R/Condition.R:50:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L50) *style:* **Trailing whitespace is superfluous.**
```r

^
```
[R/Condition.R:51:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L51) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(alpha_x < 0 ||
    ^
```
[R/Condition.R:55:18:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L55) *style:* **Put spaces around all infix operators.**
```r
     alpha_x > (1-(1e-8)) ||
                ~^~
```
[R/Condition.R:55:19:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L55) *style:* **Place a space before left parenthesis, except in a function call.**
```r
     alpha_x > (1-(1e-8)) ||
                  ^
```
[R/Condition.R:56:13:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L56) *style:* **Put spaces around all infix operators.**
```r
     alpha_y>(1-(1e-8))
           ~^~
```
[R/Condition.R:56:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L56) *style:* **Place a space before left parenthesis, except in a function call.**
```r
     alpha_y>(1-(1e-8))
             ^
```
[R/Condition.R:56:16:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L56) *style:* **Put spaces around all infix operators.**
```r
     alpha_y>(1-(1e-8))
              ~^~
```
[R/Condition.R:56:17:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L56) *style:* **Place a space before left parenthesis, except in a function call.**
```r
     alpha_y>(1-(1e-8))
                ^
```
[R/Condition.R:58:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L58) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:60:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L60) *style:* **Trailing whitespace is superfluous.**
```r

^
```
[R/Condition.R:62:18:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L62) *style:* **Variable and function names should be all lowercase.**
```r
    return( -1 * evaluateCondLik(x, theta_x, theta_y,
                 ^~~~~~~~~~~~~~~
```
[R/Condition.R:62:54:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L62) *style:* **Trailing whitespace is superfluous.**
```r
    return( -1 * evaluateCondLik(x, theta_x, theta_y,
                                                     ^
```
[R/Condition.R:66:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L66) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:69:7:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L69) *style:* **Use <-, not =, for assignment.**
```r
 ymax = -1 * maxes$fmin
      ^
```
[R/Condition.R:70:7:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L70) *style:* **Use <-, not =, for assignment.**
```r
 xmax = maxes$xmin
      ^
```
[R/Condition.R:71:7:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L71) *style:* **Use <-, not =, for assignment.**
```r
 xlft = 0
      ^
```
[R/Condition.R:72:7:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L72) *style:* **Use <-, not =, for assignment.**
```r
 xrgt = 1
      ^
```
[R/Condition.R:73:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L73) *style:* **Use <-, not =, for assignment.**
```r
 eps = .Machine$double.eps
     ^
```
[R/Condition.R:75:2:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
 checkLeftX  = evaluateCondLik(eps, theta_x, theta_y,
 ^~~~~~~~~~
```
[R/Condition.R:75:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L75) *style:* **Use <-, not =, for assignment.**
```r
 checkLeftX  = evaluateCondLik(eps, theta_x, theta_y,
             ^
```
[R/Condition.R:75:16:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L75) *style:* **Variable and function names should be all lowercase.**
```r
 checkLeftX  = evaluateCondLik(eps, theta_x, theta_y,
               ^~~~~~~~~~~~~~~
```
[R/Condition.R:75:54:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L75) *style:* **Trailing whitespace is superfluous.**
```r
 checkLeftX  = evaluateCondLik(eps, theta_x, theta_y,
                                                     ^
```
[R/Condition.R:77:2:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L77) *style:* **Variable and function names should be all lowercase.**
```r
 checkRightX = evaluateCondLik(1 - eps, theta_x, theta_y,
 ^~~~~~~~~~~
```
[R/Condition.R:77:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L77) *style:* **Use <-, not =, for assignment.**
```r
 checkRightX = evaluateCondLik(1 - eps, theta_x, theta_y,
             ^
```
[R/Condition.R:77:16:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L77) *style:* **Variable and function names should be all lowercase.**
```r
 checkRightX = evaluateCondLik(1 - eps, theta_x, theta_y,
               ^~~~~~~~~~~~~~~
```
[R/Condition.R:80:4:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L80) *style:* **Place a space before left parenthesis, except in a function call.**
```r
 if(checkLeftX < 0) {
   ^
```
[R/Condition.R:80:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L80) *style:* **Variable and function names should be all lowercase.**
```r
 if(checkLeftX < 0) {
    ^~~~~~~~~~
```
[R/Condition.R:82:16:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L82) *style:* **Variable and function names should be all lowercase.**
```r
        return(evaluateCondLik(x, theta_x, theta_y,
               ^~~~~~~~~~~~~~~
```
[R/Condition.R:82:52:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L82) *style:* **Trailing whitespace is superfluous.**
```r
        return(evaluateCondLik(x, theta_x, theta_y,
                                                   ^
```
[R/Condition.R:85:32:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L85) *style:* **Commas should always have a space after.**
```r
     xlft <- (uniroot(g, c(eps,xmax)))$root
                               ^
```
[R/Condition.R:88:4:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L88) *style:* **Place a space before left parenthesis, except in a function call.**
```r
 if(checkRightX < 0) {
   ^
```
[R/Condition.R:88:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L88) *style:* **Variable and function names should be all lowercase.**
```r
 if(checkRightX < 0) {
    ^~~~~~~~~~~
```
[R/Condition.R:90:16:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L90) *style:* **Variable and function names should be all lowercase.**
```r
        return(evaluateCondLik(x, theta_x, theta_y,
               ^~~~~~~~~~~~~~~
```
[R/Condition.R:94:26:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L94) *style:* **Commas should always have a space after.**
```r
     xrgt <- (uniroot( h,c( xmax, 1 - eps)))$root
                         ^
```
[R/Condition.R:97:2:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L97) *style:* **Variable and function names should be all lowercase.**
```r
 calcLLEXP <- function(x) {
 ^~~~~~~~~
```
[R/Condition.R:98:15:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L98) *style:* **Variable and function names should be all lowercase.**
```r
   out <- exp(evaluateCondLik(x, theta_x, theta_y,
              ^~~~~~~~~~~~~~~
```
[R/Condition.R:104:24:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L104) *style:* **Variable and function names should be all lowercase.**
```r
  aux <- integrate(f = calcLLEXP,
                       ^~~~~~~~~
```
[R/Condition.R:111:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L111) *style:* **Trailing whitespace is superfluous.**
```r
  return(LL);
             ^~
```
[R/Condition.R:115:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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:118:3:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L118) *warning:* **local variable ‘Sx’ assigned but may not be used**
```r
  Sx = length(SADX)
  ^~
```
[R/Condition.R:118:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L118) *style:* **Use <-, not =, for assignment.**
```r
  Sx = length(SADX)
     ^
```
[R/Condition.R:119:3:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L119) *warning:* **local variable ‘Sy’ assigned but may not be used**
```r
  Sy = length(SADY)
  ^~
```
[R/Condition.R:119:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L119) *style:* **Use <-, not =, for assignment.**
```r
  Sy = length(SADY)
     ^
```
[R/Condition.R:120:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L120) *style:* **Use <-, not =, for assignment.**
```r
  Nx = sum(SADX)
     ^
```
[R/Condition.R:121:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L121) *style:* **Use <-, not =, for assignment.**
```r
  Ny = sum(SADY)
     ^
```
[R/Condition.R:122:3:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L122) *warning:* **local variable ‘J’ assigned but may not be used**
```r
  J = Nx + Ny
  ^
```
[R/Condition.R:122:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L122) *style:* **Use <-, not =, for assignment.**
```r
  J = Nx + Ny
    ^
```
[R/Condition.R:123:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L123) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:126:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L126) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(verbose == TRUE) {
    ^
```
[R/Condition.R:128:55:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L128) *style:* **Trailing whitespace is superfluous.**
```r
   cat("Now starting to calculate likelihood of: \n");
                                                      ^
```
[R/Condition.R:130:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L130) *style:* **Place a space before left parenthesis, except in a function call.**
```r
   if(model == "D0") cat("Theta X =", x2[1],
     ^
```
[R/Condition.R:130:45:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L130) *style:* **Trailing whitespace is superfluous.**
```r
   if(model == "D0") cat("Theta X =", x2[1],
                                            ^
```
[R/Condition.R:131:50:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L131) *style:* **Trailing whitespace is superfluous.**
```r
                         " Theta Y =", "Theta X",
                                                 ^
```
[R/Condition.R:133:50:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L133) *style:* **Commas should never have a space before.**
```r
                         " Alpha Y =", "Alpha X" ,"\n")
                                                ~^
```
[R/Condition.R:133:51:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L133) *style:* **Commas should always have a space after.**
```r
                         " Alpha Y =", "Alpha X" ,"\n")
                                                  ^
```
[R/Condition.R:134:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L134) *style:* **Place a space before left parenthesis, except in a function call.**
```r
   if(model == "D1") cat("Theta X =", x2[1],
     ^
```
[R/Condition.R:134:45:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L134) *style:* **Trailing whitespace is superfluous.**
```r
   if(model == "D1") cat("Theta X =", x2[1],
                                            ^
```
[R/Condition.R:137:49:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L137) *style:* **Commas should never have a space before.**
```r
                         " Alpha Y =", x2[3]    ,"\n");
                                            ~~~~^
```
[R/Condition.R:137:50:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L137) *style:* **Commas should always have a space after.**
```r
                         " Alpha Y =", x2[3]    ,"\n");
                                                 ^
```
[R/Condition.R:141:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L141) *style:* **Trailing whitespace is superfluous.**
```r

^~~
```
[R/Condition.R:142:9:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L142) *style:* **Variable and function names should be all lowercase.**
```r
  LL <- logLikelihood.Guilds(parameters, model, SADX, SADY, verbose)
        ^~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:142:9:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L142) *warning:* **no visible global function definition for ‘logLikelihood.Guilds’**
```r
  LL <- logLikelihood.Guilds(parameters, model, SADX, SADY, verbose)
        ^~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:143:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L143) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:145:23:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L145) *style:* **Variable and function names should be all lowercase.**
```r
  conditional_part <- calcConditional(parameters, model, Nx, Ny)
                      ^~~~~~~~~~~~~~~
```
[R/Condition.R:145:23:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L145) *warning:* **no visible global function definition for ‘calcConditional’**
```r
  conditional_part <- calcConditional(parameters, model, Nx, Ny)
                      ^~~~~~~~~~~~~~~
```
[R/Condition.R:146:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L146) *style:* **Trailing whitespace is superfluous.**
```r

^~~
```
[R/Condition.R:151:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L151) *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:152:72:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L152) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
                               prefactor1, prefactor2, verbose = TRUE) {
                                                                       ^
```
[R/Condition.R:152:73:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L152) *style:* **Trailing whitespace is superfluous.**
```r
                               prefactor1, prefactor2, verbose = TRUE) {
                                                                        ^~
```
[R/Condition.R:153:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L153) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:158:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L158) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:159:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L159) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(model == "D1") {
    ^
```
[R/Condition.R:162:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L162) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:163:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L163) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(alpha_x < 0 ||
    ^
```
[R/Condition.R:167:18:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L167) *style:* **Put spaces around all infix operators.**
```r
     alpha_x > (1-(1e-8)) ||
                ~^~
```
[R/Condition.R:167:19:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L167) *style:* **Place a space before left parenthesis, except in a function call.**
```r
     alpha_x > (1-(1e-8)) ||
                  ^
```
[R/Condition.R:168:13:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L168) *style:* **Put spaces around all infix operators.**
```r
     alpha_y>(1-(1e-8))
           ~^~
```
[R/Condition.R:168:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L168) *style:* **Place a space before left parenthesis, except in a function call.**
```r
     alpha_y>(1-(1e-8))
             ^
```
[R/Condition.R:168:16:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L168) *style:* **Put spaces around all infix operators.**
```r
     alpha_y>(1-(1e-8))
              ~^~
```
[R/Condition.R:168:17:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L168) *style:* **Place a space before left parenthesis, except in a function call.**
```r
     alpha_y>(1-(1e-8))
                ^
```
[R/Condition.R:170:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L170) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:171:9:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L171) *style:* **Variable and function names should be all lowercase.**
```r
  LL <- logLikguilds(theta_x, theta_y, alpha_x, alpha_y, J,
        ^~~~~~~~~~~~
```
[R/Condition.R:171:60:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L171) *style:* **Trailing whitespace is superfluous.**
```r
  LL <- logLikguilds(theta_x, theta_y, alpha_x, alpha_y, J,
                                                           ^
```
[R/Condition.R:174:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L174) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:175:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L175) *style:* **Variable and function names should be all lowercase.**
```r
  cond_LL <- calcConditional(v, model, Nx, Ny)
             ^~~~~~~~~~~~~~~
```
[R/Condition.R:175:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L175) *warning:* **no visible global function definition for ‘calcConditional’**
```r
  cond_LL <- calcConditional(v, model, Nx, Ny)
             ^~~~~~~~~~~~~~~
```
[R/Condition.R:180:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L180) *style:* **Variable and function names should be all lowercase.**
```r
maxLikelihood.Guilds.Conditional <- function(initVals, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:180:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L180) *style:* **Words within variable and function names should be separated by '_' rather than '.'.**
```r
maxLikelihood.Guilds.Conditional <- function(initVals, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:180:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L180) *style:* **Variable and function names should not be longer than 30 characters.**
```r
maxLikelihood.Guilds.Conditional <- function(initVals, model,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/Condition.R:180:46:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L180) *style:* **Variable and function names should be all lowercase.**
```r
maxLikelihood.Guilds.Conditional <- function(initVals, model,
                                             ^~~~~~~~
```
[R/Condition.R:181:53:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L181) *style:* **Trailing whitespace is superfluous.**
```r
                                             method,
                                                    ^
```
[R/Condition.R:184:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L184) *style:* **Variable and function names should be all lowercase.**
```r
  KDA_X <- calcKDA(SADX)
           ^~~~~~~
```
[R/Condition.R:184:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L184) *warning:* **no visible global function definition for ‘calcKDA’**
```r
  KDA_X <- calcKDA(SADX)
           ^~~~~~~
```
[R/Condition.R:185:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L185) *style:* **Variable and function names should be all lowercase.**
```r
  KDA_Y <- calcKDA(SADY)
           ^~~~~~~
```
[R/Condition.R:185:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L185) *warning:* **no visible global function definition for ‘calcKDA’**
```r
  KDA_Y <- calcKDA(SADY)
           ^~~~~~~
```
[R/Condition.R:186:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L186) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:189:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L189) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(i in 1:length(x)) freq_x[i] <- x[[i]]
     ^
```
[R/Condition.R:190:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L190) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:191:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L191) *style:* **Use <-, not =, for assignment.**
```r
  prefactor1 = -( sum(log(SADX)) + sum(lgamma(1 + freq_x)) )
             ^
```
[R/Condition.R:191:17:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L191) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  prefactor1 = -( sum(log(SADX)) + sum(lgamma(1 + freq_x)) )
                ^
```
[R/Condition.R:192:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L192) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:195:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L195) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(i in 1:length(x2)) freq_y[i] <- x2[[i]]
     ^
```
[R/Condition.R:196:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L196) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:197:14:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L197) *style:* **Use <-, not =, for assignment.**
```r
  prefactor2 = -( sum(log(SADY)) + sum(lgamma(1 + freq_y)) )
             ^
```
[R/Condition.R:197:17:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L197) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  prefactor2 = -( sum(log(SADY)) + sum(lgamma(1 + freq_y)) )
                ^
```
[R/Condition.R:199:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L199) *style:* **Use <-, not =, for assignment.**
```r
  Sx = length(SADX)
     ^
```
[R/Condition.R:200:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L200) *style:* **Use <-, not =, for assignment.**
```r
  Sy = length(SADY)
     ^
```
[R/Condition.R:201:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L201) *style:* **Use <-, not =, for assignment.**
```r
  Nx = sum(SADX)
     ^
```
[R/Condition.R:202:6:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L202) *style:* **Use <-, not =, for assignment.**
```r
  Ny = sum(SADY)
     ^
```
[R/Condition.R:203:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L203) *style:* **Use <-, not =, for assignment.**
```r
  J = Nx + Ny
    ^
```
[R/Condition.R:206:17:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L206) *style:* **Variable and function names should be all lowercase.**
```r
    out <- -1 * conditional.LogLik(x, model, J, Sx, Sy, Nx, Ny,
                ^~~~~~~~~~~~~~~~~~
```
[R/Condition.R:211:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L211) *style:* **Trailing whitespace is superfluous.**
```r

^~
```
[R/Condition.R:213:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L213) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(method == "simplex") {
    ^
```
[R/Condition.R:214:10:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L214) *warning:* **no visible global function definition for ‘simplex’, Did you mean 'complex'?**
```r
    x <- simplex(initVals, g, verbose)
         ^~~~~~~
```
[R/Condition.R:214:18:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L214) *style:* **Variable and function names should be all lowercase.**
```r
    x <- simplex(initVals, g, verbose)
                 ^~~~~~~~
```
[R/Condition.R:215:4:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L215) *style:* **Trailing whitespace is superfluous.**
```r
  }
   ^
```
[R/Condition.R:216:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L216) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(method == "subplex") {
    ^
```
[R/Condition.R:217:7:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L217) *warning:* **no visible global function definition for ‘subplex’**
```r
	x <- subplex(initVals, g)
      ^~~~~~~
```
[R/Condition.R:217:11:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L217) *style:* **Put spaces around all infix operators.**
```r
	x <- subplex(initVals, g)
         ~^~~
```
[R/Condition.R:217:22:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/Condition.R#L217) *style:* **Variable and function names should be all lowercase.**
```r
	x <- subplex(initVals, g)
                     ^~~~~~~~
```
[R/drawLocal.R:1:23:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L1) *style:* **Commas should always have a space after.**
```r
pm_sad <- function(th,I,j) {
                      ^
```
[R/drawLocal.R:1:25:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L1) *style:* **Commas should always have a space after.**
```r
pm_sad <- function(th,I,j) {
                        ^
```
[R/drawLocal.R:3:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **Use two spaces to indent, never tabs.**
```r
	k1 = unique(round(10^seq(0,log10(j-1),len=1000)))     #k1=unique(round(logspace(0,log10(j-1),1000)));
^
```
[R/drawLocal.R:3:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **lines should not be more than 80 characters.**
```r
	k1 = unique(round(10^seq(0,log10(j-1),len=1000)))     #k1=unique(round(logspace(0,log10(j-1),1000)));
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/drawLocal.R:3:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **Use two spaces to indent, never tabs.**
```r
	y = matrix(0,nrow=size(x)[1],ncol=size(x)[2]);
^
```
[R/drawLocal.R:3:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **Use <-, not =, for assignment.**
```r
	k1 = unique(round(10^seq(0,log10(j-1),len=1000)))     #k1=unique(round(logspace(0,log10(j-1),1000)));
           ^
```
[R/drawLocal.R:3:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **Put spaces around all infix operators.**
```r
	k1 = unique(round(10^seq(0,log10(j-1),len=1000)))     #k1=unique(round(logspace(0,log10(j-1),1000)));
          ~^~
```
[R/drawLocal.R:3:29:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **Put spaces around all infix operators.**
```r
	k1 = unique(round(10^seq(0,log10(j-1),len=1000)))     #k1=unique(round(logspace(0,log10(j-1),1000)));
                           ~^~
```
[R/drawLocal.R:3:43:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **Put spaces around all infix operators.**
```r
	k1 = unique(round(10^seq(0,log10(j-1),len=1000)))     #k1=unique(round(logspace(0,log10(j-1),1000)));
                                         ~^~
```
[R/drawLocal.R:3:50:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **Put spaces around all infix operators.**
```r
	k1 = unique(round(10^seq(0,log10(j-1),len=1000)))     #k1=unique(round(logspace(0,log10(j-1),1000)));
                                                ~^
```
[R/drawLocal.R:3:57:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L3) *style:* **Commented code should be removed.**
```r
	k1 = unique(round(10^seq(0,log10(j-1),len=1000)))     #k1=unique(round(logspace(0,log10(j-1),1000)));
                                                        ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/drawLocal.R:4:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L4) *style:* **Use two spaces to indent, never tabs.**
```r
	res=rep(0,length(k1))  								  #res=zeros(1,length(k1));
^
```
[R/drawLocal.R:4:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L4) *style:* **Use two spaces to indent, never tabs.**
```r
	idx0=which(x==0);
^
```
[R/drawLocal.R:4:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L4) *style:* **Use <-, not =, for assignment.**
```r
	res=rep(0,length(k1))  								  #res=zeros(1,length(k1));
           ^
```
[R/drawLocal.R:4:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L4) *style:* **Put spaces around all infix operators.**
```r
	res=rep(0,length(k1))  								  #res=zeros(1,length(k1));
          ~^~
```
[R/drawLocal.R:4:25:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L4) *style:* **Use two spaces to indent, never tabs.**
```r
	res=rep(0,length(k1))  								  #res=zeros(1,length(k1));
                        ^~~~~~~~
```
[R/drawLocal.R:4:36:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L4) *style:* **Commented code should be removed.**
```r
	res=rep(0,length(k1))  								  #res=zeros(1,length(k1));
                                   ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/drawLocal.R:5:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L5) *style:* **Use two spaces to indent, never tabs.**
```r
	for(cnt in 1:length(k1)) {
^
```
[R/drawLocal.R:5:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L5) *style:* **Use two spaces to indent, never tabs.**
```r
	if(length(idx0)) {
^
```
[R/drawLocal.R:5:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L5) *style:* **Place a space before left parenthesis, except in a function call.**
```r
	for(cnt in 1:length(k1)) {
           ^
```
[R/drawLocal.R:6:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L6) *style:* **Use two spaces to indent, never tabs.**
```r
		k = k1[cnt];
^~
```
[R/drawLocal.R:6:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L6) *style:* **Use two spaces to indent, never tabs.**
```r
		aux = log(th) + lgamma(I) - lgamma(I+j) +
^~
```
[R/drawLocal.R:6:19:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L6) *style:* **Use <-, not =, for assignment.**
```r
		k = k1[cnt];
                  ^
```
[R/drawLocal.R:7:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L7) *style:* **Use two spaces to indent, never tabs.**
```r
		f <- function(x) {
^~
```
[R/drawLocal.R:7:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L7) *style:* **Use two spaces to indent, never tabs.**
```r
			  lgamma(j+1) - lgamma(k+1) - lgamma(j-k+1) +
^~~
```
[R/drawLocal.R:7:19:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L7) *style:* **Put spaces around all infix operators.**
```r
		f <- function(x) {
                 ~^~~
```
[R/drawLocal.R:8:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L8) *style:* **Use two spaces to indent, never tabs.**
```r
			return(-1 * pm_sadaux(x,I,th,j,k));
^~~
```
[R/drawLocal.R:8:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L8) *style:* **Use two spaces to indent, never tabs.**
```r
			  lgamma(k) +   lgamma(I+j-k) - lgamma(I) + log(I);
^~~
```
[R/drawLocal.R:8:16:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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:8:35:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L8) *style:* **Put spaces around all infix operators.**
```r
			return(-1 * pm_sadaux(x,I,th,j,k));
                                 ~^~
```
[R/drawLocal.R:9:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/drawLocal.R:9:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L9) *style:* **Use two spaces to indent, never tabs.**
```r
		y[idx0] = aux;
^~
```
[R/drawLocal.R:10:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L10) *style:* **Use two spaces to indent, never tabs.**
```r
		xmax = optimize(f,c(0,1))$minimum
^~
```
[R/drawLocal.R:10:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L10) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/drawLocal.R:10:22:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L10) *style:* **Use <-, not =, for assignment.**
```r
		xmax = optimize(f,c(0,1))$minimum
                     ^
```
[R/drawLocal.R:10:22:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L10) *style:* **Put spaces around all infix operators.**
```r
		xmax = optimize(f,c(0,1))$minimum
                    ~^~
```
[R/drawLocal.R:11:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L11) *style:* **Use two spaces to indent, never tabs.**
```r
		ymax = pm_sadaux(xmax,I,th,j,k)
^~
```
[R/drawLocal.R:11:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L11) *style:* **Use two spaces to indent, never tabs.**
```r
	idx1=which(x==1);
^
```
[R/drawLocal.R:11:10:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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:11:22:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L11) *style:* **Use <-, not =, for assignment.**
```r
		ymax = pm_sadaux(xmax,I,th,j,k)
                     ^
```
[R/drawLocal.R:11:22:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L11) *style:* **Put spaces around all infix operators.**
```r
		ymax = pm_sadaux(xmax,I,th,j,k)
                    ~^~
```
[R/drawLocal.R:12:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L12) *style:* **Use two spaces to indent, never tabs.**
```r
		y0 = pm_sadaux(0,I,th,j,k);
^~
```
[R/drawLocal.R:12:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L12) *style:* **Use two spaces to indent, never tabs.**
```r
	if(length(idx1)) {
^
```
[R/drawLocal.R:12:8:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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:12:20:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L12) *style:* **Use <-, not =, for assignment.**
```r
		y0 = pm_sadaux(0,I,th,j,k);
                   ^
```
[R/drawLocal.R:12:20:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L12) *style:* **Put spaces around all infix operators.**
```r
		y0 = pm_sadaux(0,I,th,j,k);
                  ~^~
```
[R/drawLocal.R:13:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L13) *style:* **Use two spaces to indent, never tabs.**
```r
		if(ymax<(y0+1)) {
^~
```
[R/drawLocal.R:13:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L13) *style:* **Use two spaces to indent, never tabs.**
```r
		  if ((k<j)||((k==j)&&(th>1))) {
^~
```
[R/drawLocal.R:14:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
			xmin = 0;
^~~
```
[R/drawLocal.R:14:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L14) *style:* **Use two spaces to indent, never tabs.**
```r
			  y[idx1] = -Inf;
^~~
```
[R/drawLocal.R:14:30:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L14) *style:* **Use <-, not =, for assignment.**
```r
			xmin = 0;
                             ^
```
[R/drawLocal.R:15:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
		} else {
^~
```
[R/drawLocal.R:15:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L15) *style:* **Use two spaces to indent, never tabs.**
```r
		  } else if ((k==j)&&(th==1)) {
^~
```
[R/drawLocal.R:16:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
			f <- function(x) {
^~~
```
[R/drawLocal.R:16:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L16) *style:* **Use two spaces to indent, never tabs.**
```r
		      y[idx1] = 0;
^~
```
[R/drawLocal.R:17:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
				return(pm_sadaux(x,I,th,j,k) - ymax + 1);
^~~~
```
[R/drawLocal.R:17:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L17) *style:* **Use two spaces to indent, never tabs.**
```r
		  } else if ((k==j)&&(th< 1)) {
^~
```
[R/drawLocal.R:17:12:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L18) *style:* **Use two spaces to indent, never tabs.**
```r
			}
^~~
```
[R/drawLocal.R:18:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L18) *style:* **Use two spaces to indent, never tabs.**
```r
			  y[idx1] = Inf;
^~~
```
[R/drawLocal.R:19:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
			#xL = f(1e-10);
^~~
```
[R/drawLocal.R:19:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L19) *style:* **Use two spaces to indent, never tabs.**
```r
		   }
^~
```
[R/drawLocal.R:19:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L19) *style:* **Commented code should be removed.**
```r
			#xL = f(1e-10);
    ^~~~~~~~~~~~~~
```
[R/drawLocal.R:20:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L20) *style:* **Use two spaces to indent, never tabs.**
```r
			#xR = f(xmax);
^~~
```
[R/drawLocal.R:20:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L20) *style:* **Use two spaces to indent, never tabs.**
```r
	}
^
```
[R/drawLocal.R:20:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L20) *style:* **Commented code should be removed.**
```r
			#xR = f(xmax);
    ^~~~~~~~~~~~~
```
[R/drawLocal.R:21:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L21) *style:* **Use two spaces to indent, never tabs.**
```r
			#cat(cnt,xL,xR,"\n"); flush.console();
^~~
```
[R/drawLocal.R:21:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L21) *style:* **Use two spaces to indent, never tabs.**
```r
	idxp = which((x>0)&(x<1));
^
```
[R/drawLocal.R:21:5:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L21) *style:* **Commented code should be removed.**
```r
			#cat(cnt,xL,xR,"\n"); flush.console();
    ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/drawLocal.R:22:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L22) *style:* **Use two spaces to indent, never tabs.**
```r
			xmin = uniroot(f,c(1e-10,xmax))$root;
^~~
```
[R/drawLocal.R:22:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L22) *style:* **Use two spaces to indent, never tabs.**
```r
	xx=x[idxp];
^
```
[R/drawLocal.R:22:30:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L22) *style:* **Use <-, not =, for assignment.**
```r
			xmin = uniroot(f,c(1e-10,xmax))$root;
                             ^
```
[R/drawLocal.R:22:30:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L22) *style:* **Put spaces around all infix operators.**
```r
			xmin = uniroot(f,c(1e-10,xmax))$root;
                            ~^~
```
[R/drawLocal.R:23:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L23) *style:* **Use two spaces to indent, never tabs.**
```r
		}
^~
```
[R/drawLocal.R:23:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L23) *style:* **Use two spaces to indent, never tabs.**
```r
	aux = log(th) + lgamma(I)-lgamma(I+j) +
^
```
[R/drawLocal.R:24:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L24) *style:* **Use two spaces to indent, never tabs.**
```r
		x1 = (xmax+1)/2;
^~
```
[R/drawLocal.R:24:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L24) *style:* **Use two spaces to indent, never tabs.**
```r
		  lgamma(j+1) - lgamma(k+1) - lgamma(j-k+1) +
^~
```
[R/drawLocal.R:24:20:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L24) *style:* **Use <-, not =, for assignment.**
```r
		x1 = (xmax+1)/2;
                   ^
```
[R/drawLocal.R:25:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L25) *style:* **Use two spaces to indent, never tabs.**
```r
		y1 = pm_sadaux(x1,I,th,j,k);
^~
```
[R/drawLocal.R:25:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L25) *style:* **Use two spaces to indent, never tabs.**
```r
		  lgamma(I*xx+k) - lgamma(I*xx) +
^~
```
[R/drawLocal.R:25:8:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/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:25:20:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L25) *style:* **Use <-, not =, for assignment.**
```r
		y1 = pm_sadaux(x1,I,th,j,k);
                   ^
```
[R/drawLocal.R:25:20:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L25) *style:* **Put spaces around all infix operators.**
```r
		y1 = pm_sadaux(x1,I,th,j,k);
                  ~^~
```
[R/drawLocal.R:26:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L26) *style:* **Use two spaces to indent, never tabs.**
```r
		while(ymax < (y1+1)) {
^~
```
[R/drawLocal.R:26:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L26) *style:* **Use two spaces to indent, never tabs.**
```r
		  lgamma(I*(1-xx)+j-k)-lgamma(I*(1-xx)) +
^~
```
[R/drawLocal.R:26:22:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L26) *style:* **Place a space before left parenthesis, except in a function call.**
```r
		while(ymax < (y1+1)) {
                     ^
```
[R/drawLocal.R:27:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L27) *style:* **Use two spaces to indent, never tabs.**
```r
			x1 = (x1 + 1) / 2;
^~~
```
[R/drawLocal.R:27:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L27) *style:* **Use two spaces to indent, never tabs.**
```r
		  (th-1)*log(1-xx)-log(xx);
^~
```
[R/drawLocal.R:27:28:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L27) *style:* **Use <-, not =, for assignment.**
```r
			x1 = (x1 + 1) / 2;
                           ^
```
[R/drawLocal.R:28:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L28) *style:* **Use two spaces to indent, never tabs.**
```r
			y1 = pm_sadaux(x1,I,th,j,k);
^~~
```
[R/drawLocal.R:28:1:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L28) *style:* **Use two spaces to indent, never tabs.**
```r
	y[idxp] = aux;
^
```
[R/drawLocal.R:28:9:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L28) *warning:* **no visible global function definition for ‘pm_sadaux’**
```r
			y1 = pm_sadaux(x1,I,th,j,k);
        ^~~~~~~~~
```
[R/drawLocal.R:28:28:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L28) *style:* **Use <-, not =, for assignment.**
```r
			y1 = pm_sadaux(x1,I,th,j,k);
                           ^
```
[R/drawLocal.R:28:28:](https://github.com/thijsjanzen/GUILDS/blob/1ec370307bbc9cb8832e3dfb437bb96942f7c57e/R/drawLocal.R#L28) *style:* **Put spaces around all infix operators.**
```r
			y1 = pm_sadaux(x1,I,th,j,k);
                          ~^~
```


wouldnt removing "ignoreCancelled = true" do the opposite of your commit message?


is line 70 missing `(var)` after the `%`?

I am getting a syntax error `File "~/BIRDHOUSE/flyingpigeon/flyingpigeon/processes/wps_plot_timeseries.py", line 70
    title='Ensemble uncertainty for %s ' %,`


www


Why do you need to exclude the angles here ? There are no angles grid metadata in the userProduct root XML.