[R/eigen.R:44:29:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L44) *style:* **Commas should always have a space after.**
```r
  if (n > 0.5 * min(nrow(x),ncol(x)))
                            ^
```
[R/eigen.R:50:10:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L50) *warning:* **no visible global function definition for ‘irlba’**
```r
    L <- irlba(x, n, ...)
         ^~~~~
```
[R/eigen.R:51:24:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L51) *style:* **Put spaces around all infix operators.**
```r
    return(list(vectors=L$v, values=L$d ^ 2))
                      ~^~
```
[R/eigen.R:51:36:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L51) *style:* **Put spaces around all infix operators.**
```r
    return(list(vectors=L$v, values=L$d ^ 2))
                                  ~^~
```
[R/eigen.R:53:8:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L53) *warning:* **no visible global function definition for ‘irlba’**
```r
  L <- irlba(x, n, ...)
       ^~~~~
```
[R/eigen.R:54:19:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L54) *style:* **Commas should always have a space after.**
```r
  s <- sign(L$u[1,] * L$v[1,])
                  ^
```
[R/eigen.R:54:29:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L54) *style:* **Commas should always have a space after.**
```r
  s <- sign(L$u[1,] * L$v[1,])
                            ^
```
[R/eigen.R:57:24:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L57) *style:* **Put spaces around all infix operators.**
```r
    return(list(vectors=L$u, values=L$d))
                      ~^~
```
[R/eigen.R:57:36:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L57) *style:* **Put spaces around all infix operators.**
```r
    return(list(vectors=L$u, values=L$d))
                                  ~^~
```
[R/eigen.R:61:8:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L61) *warning:* **no visible global function definition for ‘irlba’**
```r
  L <- irlba(x, n, shift=shift, ...)
       ^~~~~
```
[R/eigen.R:61:25:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L61) *style:* **Put spaces around all infix operators.**
```r
  L <- irlba(x, n, shift=shift, ...)
                       ~^~
```
[R/eigen.R:62:22:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L62) *style:* **Put spaces around all infix operators.**
```r
  return(list(vectors=L$u, values=L$d - shift))
                    ~^~
```
[R/eigen.R:62:34:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/eigen.R#L62) *style:* **Put spaces around all infix operators.**
```r
  return(list(vectors=L$u, values=L$d - shift))
                                ~^~
```
[R/irlba.R:164:24:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L164) *style:* **Put spaces around all infix operators.**
```r
  ropts <- options(warn=1) # immediately show warnings
                      ~^~
```
[R/irlba.R:183:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L183) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(fastpath) du <- NULL
      ^
```
[R/irlba.R:230:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L230) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(verbose) message("Tiny problem detected, using standard `svd` function.")
      ^
```
[R/irlba.R:231:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L231) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!missing(scale)) A <- A / scale
      ^
```
[R/irlba.R:232:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L232) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!missing(shift)) A <- A + diag(shift)
      ^
```
[R/irlba.R:233:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L233) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(deflate)
      ^
```
[R/irlba.R:235:9:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L235) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(is.null(du)) du <- rep(1, nrow(A))
        ^
```
[R/irlba.R:239:18:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L239) *style:* **Put spaces around all infix operators.**
```r
    return(list(d=s$d[1:k], u=s$u[, 1:nu, drop=FALSE],
                ~^~
```
[R/irlba.R:239:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L239) *style:* **Put spaces around all infix operators.**
```r
    return(list(d=s$d[1:k], u=s$u[, 1:nu, drop=FALSE],
                            ~^~
```
[R/irlba.R:239:47:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L239) *style:* **Put spaces around all infix operators.**
```r
    return(list(d=s$d[1:k], u=s$u[, 1:nu, drop=FALSE],
                                             ~^~
```
[R/irlba.R:240:16:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L240) *style:* **Put spaces around all infix operators.**
```r
              v=s$v[, 1:nv, drop=FALSE], iter=0, mprod=0))
              ~^~
```
[R/irlba.R:240:33:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L240) *style:* **Put spaces around all infix operators.**
```r
              v=s$v[, 1:nv, drop=FALSE], iter=0, mprod=0))
                               ~^~
```
[R/irlba.R:240:46:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L240) *style:* **Put spaces around all infix operators.**
```r
              v=s$v[, 1:nv, drop=FALSE], iter=0, mprod=0))
                                            ~^~
```
[R/irlba.R:240:55:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L240) *style:* **Put spaces around all infix operators.**
```r
              v=s$v[, 1:nv, drop=FALSE], iter=0, mprod=0))
                                                     ~^~
```
[R/irlba.R:244:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L244) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(deflate) fastpath <- fastpath && is.null(du)
    ^
```
[R/irlba.R:245:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L245) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(fastpath && missingmult && !iscomplex && !right_only)
    ^
```
[R/irlba.R:251:12:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L251) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    else if(is.list(v))  # restarted case
           ^
```
[R/irlba.R:257:14:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L257) *warning:* **no visible global function definition for ‘orthog’**
```r
      RND <- orthog(RND, v$v)
             ^~~~~~
```
[R/irlba.R:258:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L258) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
      RV <- cbind(v$v, RND / norm2(RND))
                             ^~~~~
```
[R/irlba.R:265:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L265) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(verbose) message("irlba: using fast C implementation")
      ^
```
[R/irlba.R:269:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L269) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!missing(scale))
      ^
```
[R/irlba.R:271:9:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L271) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(scale) != ncol(A)) stop("scale length must mactch number of matrix columns")
        ^
```
[R/irlba.R:274:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L274) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(!missing(shift))
      ^
```
[R/irlba.R:276:9:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L276) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(shift) != 1) stop("shift length must be 1")
        ^
```
[R/irlba.R:279:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L279) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(deflate)
      ^
```
[R/irlba.R:281:9:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L281) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(center) != ncol(A)) stop("the centering vector length must match the number of matrix columns")
        ^
```
[R/irlba.R:286:68:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L286) *style:* **Put spaces around all infix operators.**
```r
                 RESTART, RV, RW, RS, SCALE, SHIFT, CENTER, PACKAGE="irlba")
                                                                  ~^~
```
[R/irlba.R:287:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L287) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(ans[[6]] == 0 || ans[[6]] == -2)
      ^
```
[R/irlba.R:290:48:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L290) *style:* **Put spaces around all infix operators.**
```r
      ans$u <- matrix(head(ans$u, m * nu), nrow=m, ncol=nu)
                                              ~^~
```
[R/irlba.R:290:56:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L290) *style:* **Put spaces around all infix operators.**
```r
      ans$u <- matrix(head(ans$u, m * nu), nrow=m, ncol=nu)
                                                      ~^~
```
[R/irlba.R:291:48:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L291) *style:* **Put spaces around all infix operators.**
```r
      ans$v <- matrix(head(ans$v, n * nv), nrow=n, ncol=nv)
                                              ~^~
```
[R/irlba.R:291:56:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L291) *style:* **Put spaces around all infix operators.**
```r
      ans$v <- matrix(head(ans$v, n * nv), nrow=n, ncol=nv)
                                                      ~^~
```
[R/irlba.R:292:9:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L292) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(ans[[6]] == -2) warning("did not converge; try increasing maxit or fastpath=FALSE")
        ^
```
[R/irlba.R:301:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L301) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(erridx > 1)
      ^
```
[R/irlba.R:356:10:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L356) *warning:* **no visible global function definition for ‘orthog’**
```r
    F <- orthog(F, V[, 1:k])
         ^~~~~~
```
[R/irlba.R:357:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L357) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
    V[, k + 1] <- F / norm2(F)
                      ^~~~~
```
[R/irlba.R:379:26:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L379) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
      V[, 1] <- V[, 1] / norm2(V[, 1])
                         ^~~~~
```
[R/irlba.R:394:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L394) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if("Matrix" %in% attributes(class(avj)) && "x" %in% slotNames(avj))
      ^
```
[R/irlba.R:396:9:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L396) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(avj@x) == nrow(W)) avj <- slot(avj, "x")
        ^
```
[R/irlba.R:411:40:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L411) *warning:* **no visible global function definition for ‘cross’, Did you mean 'class'?**
```r
      W[, j_w] <- W[, j_w] - ds * drop(cross(dv, VJ)) * du
                                       ^~~~~
```
[R/irlba.R:417:17:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L417) *warning:* **no visible global function definition for ‘orthog’**
```r
      W[, j] <- orthog (W[, j, drop=FALSE], W[, 1:(j - 1), drop=FALSE])
                ^~~~~~
```
[R/irlba.R:417:36:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L417) *style:* **Put spaces around all infix operators.**
```r
      W[, j] <- orthog (W[, j, drop=FALSE], W[, 1:(j - 1), drop=FALSE])
                                  ~^~
```
[R/irlba.R:417:64:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L417) *style:* **Put spaces around all infix operators.**
```r
      W[, j] <- orthog (W[, j, drop=FALSE], W[, 1:(j - 1), drop=FALSE])
                                                              ~^~
```
[R/irlba.R:420:10:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L420) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
    S <- norm2(W[, j_w, drop=FALSE])
         ^~~~~
```
[R/irlba.R:420:29:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L420) *style:* **Put spaces around all infix operators.**
```r
    S <- norm2(W[, j_w, drop=FALSE])
                           ~^~
```
[R/irlba.R:426:32:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L426) *warning:* **no visible global function definition for ‘orthog’**
```r
      if (w_dim > 1) W[, j] <- orthog(W[, j], W[, 1:(j - 1)])
                               ^~~~~~
```
[R/irlba.R:427:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L427) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
      W[, j_w] <- W[, j_w] / norm2(W[, j_w])
                             ^~~~~
```
[R/irlba.R:447:12:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L447) *warning:* **no visible global function definition for ‘orthog’**
```r
      F <- orthog(F, V[, 1:j, drop=FALSE])
           ^~~~~~
```
[R/irlba.R:447:35:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L447) *style:* **Put spaces around all infix operators.**
```r
      F <- orthog(F, V[, 1:j, drop=FALSE])
                                 ~^~
```
[R/irlba.R:450:14:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L450) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
        R <- norm2(F)
             ^~~~~
```
[R/irlba.R:455:16:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L455) *warning:* **no visible global function definition for ‘orthog’**
```r
          F <- orthog(F, V[, 1:j, drop=FALSE])
               ^~~~~~
```
[R/irlba.R:455:39:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L455) *style:* **Put spaces around all infix operators.**
```r
          F <- orthog(F, V[, 1:j, drop=FALSE])
                                     ~^~
```
[R/irlba.R:456:29:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L456) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
          V[, j + 1] <- F / norm2(F)
                            ^~~~~
```
[R/irlba.R:486:48:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L486) *warning:* **no visible global function definition for ‘cross’, Did you mean 'class'?**
```r
          W[, jp1_w] <- W[, jp1_w] - ds * drop(cross(dv, VJP1)) * du
                                               ^~~~~
```
[R/irlba.R:493:48:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L493) *warning:* **no visible global function definition for ‘orthog’**
```r
        if (reorth && w_dim > 1) W[, j + 1] <- orthog(W[, j + 1], W[, 1:j])
                                               ^~~~~~
```
[R/irlba.R:494:14:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L494) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
        S <- norm2(W[, jp1_w])
             ^~~~~
```
[R/irlba.R:499:40:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L499) *warning:* **no visible global function definition for ‘orthog’**
```r
          if (w_dim > 1) W[, j + 1] <- orthog(W[, j + 1], W[, 1:j])
                                       ^~~~~~
```
[R/irlba.R:500:38:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L500) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
          W[, jp1_w] <- W[, jp1_w] / norm2(W[, jp1_w])
                                     ^~~~~
```
[R/irlba.R:520:12:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L520) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**
```r
    R_F <- norm2(F)
           ^~~~~
```
[R/irlba.R:548:34:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L548) *style:* **Put spaces around all infix operators.**
```r
    R <- R_F * Bsvd$u[Bsz, , drop=FALSE]
                                ~^~
```
[R/irlba.R:561:42:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L561) *style:* **Put spaces around all infix operators.**
```r
                                     drop=FALSE] %*% Bsvd$v[, 1:k], F)
                                        ~^~
```
[R/irlba.R:562:41:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L562) *style:* **Put spaces around all infix operators.**
```r
      B <- cbind( diag(Bsvd$d[1:k], nrow=k), R[1:k])
                                       ~^~
```
[R/irlba.R:567:47:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L567) *style:* **Put spaces around all infix operators.**
```r
      W[, 1:k] <- W[, 1:(dim(Bsvd$u)[1]), drop=FALSE] %*% Bsvd$u[, 1:k]
                                             ~^~
```
[R/irlba.R:580:38:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L580) *style:* **Put spaces around all infix operators.**
```r
    u <- W[, 1:(dim(Bsvd$u)[1]), drop=FALSE] %*% Bsvd$u[, 1:k_org, drop=FALSE]
                                    ~^~
```
[R/irlba.R:580:72:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L580) *style:* **Put spaces around all infix operators.**
```r
    u <- W[, 1:(dim(Bsvd$u)[1]), drop=FALSE] %*% Bsvd$u[, 1:k_org, drop=FALSE]
                                                                      ~^~
```
[R/irlba.R:582:36:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L582) *style:* **Put spaces around all infix operators.**
```r
  v <- V[, 1:(dim(Bsvd$v)[1]), drop=FALSE] %*% Bsvd$v[, 1:k_org, drop=FALSE]
                                  ~^~
```
[R/irlba.R:582:70:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L582) *style:* **Put spaces around all infix operators.**
```r
  v <- V[, 1:(dim(Bsvd$v)[1]), drop=FALSE] %*% Bsvd$v[, 1:k_org, drop=FALSE]
                                                                    ~^~
```
[R/irlba.R:584:18:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**
```r
    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
                ~^~
```
[R/irlba.R:584:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**
```r
    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
                     ~^~
```
[R/irlba.R:584:38:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**
```r
    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
                                    ~^~
```
[R/irlba.R:584:51:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**
```r
    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
                                                 ~^~
```
[R/irlba.R:584:63:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**
```r
    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
                                                             ~^~
```
[R/irlba.R:585:16:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L585) *style:* **Put spaces around all infix operators.**
```r
  return(list(d=d, u=u[, 1:nu, drop=FALSE],
              ~^~
```
[R/irlba.R:585:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L585) *style:* **Put spaces around all infix operators.**
```r
  return(list(d=d, u=u[, 1:nu, drop=FALSE],
                   ~^~
```
[R/irlba.R:585:36:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L585) *style:* **Put spaces around all infix operators.**
```r
  return(list(d=d, u=u[, 1:nu, drop=FALSE],
                                  ~^~
```
[R/irlba.R:586:16:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L586) *style:* **Put spaces around all infix operators.**
```r
              v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
              ~^~
```
[R/irlba.R:586:31:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L586) *style:* **Put spaces around all infix operators.**
```r
              v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
                             ~^~
```
[R/irlba.R:586:44:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L586) *style:* **Put spaces around all infix operators.**
```r
              v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
                                          ~^~
```
[R/irlba.R:586:56:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/irlba.R#L586) *style:* **Put spaces around all infix operators.**
```r
              v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))
                                                      ~^~
```
[R/prcomp.R:67:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L67) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if("tol" %in% a)
    ^
```
[R/prcomp.R:72:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L72) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.matrix(x)) x <- as.matrix(x)
    ^
```
[R/prcomp.R:73:17:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L73) *style:* **Put spaces around all infix operators.**
```r
  args <- list(A=x, nv=n)
               ~^~
```
[R/prcomp.R:73:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L73) *style:* **Put spaces around all infix operators.**
```r
  args <- list(A=x, nv=n)
                     ~^~
```
[R/prcomp.R:74:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L74) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.logical(center))
    ^
```
[R/prcomp.R:76:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L76) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(center) args$center <- colMeans(x)
      ^
```
[R/prcomp.R:78:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L78) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.logical(scale.))
    ^
```
[R/prcomp.R:80:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L80) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(scale.) args$scale <- apply(x, 2, sd)
      ^
```
[R/prcomp.R:82:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L82) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!missing(...)) args <- c(args, list(...))
    ^
```
[R/prcomp.R:84:16:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L84) *warning:* **no visible binding for global variable ‘irlba’**
```r
  s <- do.call(irlba, args=args)
               ^~~~~
```
[R/prcomp.R:84:27:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L84) *style:* **Put spaces around all infix operators.**
```r
  s <- do.call(irlba, args=args)
                         ~^~
```
[R/prcomp.R:85:19:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L85) *style:* **Put spaces around all infix operators.**
```r
  ans <- list(sdev=s$d / sqrt(max(1, nrow(x) - 1)), rotation=s$v)
                 ~^~
```
[R/prcomp.R:85:61:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L85) *style:* **Put spaces around all infix operators.**
```r
  ans <- list(sdev=s$d / sqrt(max(1, nrow(x) - 1)), rotation=s$v)
                                                           ~^~
```
[R/prcomp.R:86:47:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L86) *style:* **Commas should always have a space after.**
```r
  colnames(ans$rotation) <- paste("PC", seq(1,ncol(ans$rotation)), sep="")
                                              ^
```
[R/prcomp.R:86:71:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L86) *style:* **Put spaces around all infix operators.**
```r
  colnames(ans$rotation) <- paste("PC", seq(1,ncol(ans$rotation)), sep="")
                                                                     ~^~
```
[R/prcomp.R:89:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L89) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(retx)
    ^
```
[R/prcomp.R:92:42:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L92) *style:* **Commas should always have a space after.**
```r
    colnames(ans$x) <- paste("PC", seq(1,ncol(ans$rotation)), sep="")
                                         ^
```
[R/prcomp.R:92:66:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/prcomp.R#L92) *style:* **Put spaces around all infix operators.**
```r
    colnames(ans$x) <- paste("PC", seq(1,ncol(ans$rotation)), sep="")
                                                                ~^~
```
[R/utility.R:5:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L5) *style:* **Commas should always have a space after.**
```r
cross <- function(x,y)
                    ^
```
[R/utility.R:7:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L7) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(missing(y))
    ^
```
[R/utility.R:9:7:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L9) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(is.complex(x)) return(abs(Conj(t(x)) %*% x))
      ^
```
[R/utility.R:12:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L12) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.complex(x) && !is.complex(y)) return(crossprod(x, y))
    ^
```
[R/utility.R:19:13:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L19) *warning:* **no visible global function definition for ‘cross’, Did you mean 'class'?**
```r
  drop(sqrt(cross(x)))
            ^~~~~
```
[R/utility.R:26:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L26) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(dx2)) dx2 <- 1
    ^
```
[R/utility.R:28:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L28) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(dy2)) dy2 <- 1
    ^
```
[R/utility.R:57:5:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L57) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.na(len_res)) len_res <- 0
    ^
```
[R/utility.R:59:27:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L59) *style:* **Put spaces around all infix operators.**
```r
    return (list(converged=TRUE, U_B=U_B[,1:k_org, drop=FALSE],
                         ~^~
```
[R/utility.R:59:37:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L59) *style:* **Put spaces around all infix operators.**
```r
    return (list(converged=TRUE, U_B=U_B[,1:k_org, drop=FALSE],
                                   ~^~
```
[R/utility.R:59:43:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L59) *style:* **Commas should always have a space after.**
```r
    return (list(converged=TRUE, U_B=U_B[,1:k_org, drop=FALSE],
                                          ^
```
[R/utility.R:59:56:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L59) *style:* **Put spaces around all infix operators.**
```r
    return (list(converged=TRUE, U_B=U_B[,1:k_org, drop=FALSE],
                                                      ~^~
```
[R/utility.R:60:22:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L60) *style:* **Put spaces around all infix operators.**
```r
                  S_B=S_B[1:k_org, drop=FALSE],
                    ~^~
```
[R/utility.R:60:40:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L60) *style:* **Put spaces around all infix operators.**
```r
                  S_B=S_B[1:k_org, drop=FALSE],
                                      ~^~
```
[R/utility.R:61:22:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L61) *style:* **Put spaces around all infix operators.**
```r
                  V_B=V_B[,1:k_org, drop=FALSE], k=k))
                    ~^~
```
[R/utility.R:61:28:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L61) *style:* **Commas should always have a space after.**
```r
                  V_B=V_B[,1:k_org, drop=FALSE], k=k))
                           ^
```
[R/utility.R:61:41:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L61) *style:* **Put spaces around all infix operators.**
```r
                  V_B=V_B[,1:k_org, drop=FALSE], k=k))
                                       ~^~
```
[R/utility.R:61:51:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L61) *style:* **Put spaces around all infix operators.**
```r
                  V_B=V_B[,1:k_org, drop=FALSE], k=k))
                                                 ~^~
```
[R/utility.R:67:37:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L67) *style:* **Commas should always have a space after.**
```r
  if (k > Bsz - 3) k <- max(Bsz - 3,1)
                                    ^
```
[R/utility.R:68:25:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L68) *style:* **Put spaces around all infix operators.**
```r
  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )
                       ~^~
```
[R/utility.R:68:36:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L68) *style:* **Put spaces around all infix operators.**
```r
  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )
                                  ~^~
```
[R/utility.R:68:45:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L68) *style:* **Put spaces around all infix operators.**
```r
  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )
                                           ~^~
```
[R/utility.R:68:54:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L68) *style:* **Put spaces around all infix operators.**
```r
  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )
                                                    ~^~
```
[R/utility.R:68:61:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/R/utility.R#L68) *style:* **Put spaces around all infix operators.**
```r
  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )
                                                           ~^~
```
[tests/edge.R:6:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L6) *style:* **Commas should always have a space after.**
```r
A <- matrix(rnorm(16),4)
                      ^
```
[tests/edge.R:7:17:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L7) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=FALSE)
               ~^~
```
[tests/edge.R:7:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L7) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=FALSE)
                     ~^~
```
[tests/edge.R:7:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L7) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=FALSE)
                            ~^~
```
[tests/edge.R:7:45:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L7) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=FALSE)
                                           ~^~
```
[tests/edge.R:8:18:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L8) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=TRUE)
                ~^~
```
[tests/edge.R:8:24:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L8) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=TRUE)
                      ~^~
```
[tests/edge.R:8:31:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L8) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=TRUE)
                             ~^~
```
[tests/edge.R:8:46:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L8) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=TRUE)
                                            ~^~
```
[tests/edge.R:9:15:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L9) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=1, nv=1)
             ~^~
```
[tests/edge.R:9:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L9) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=1, nv=1)
                   ~^~
```
[tests/edge.R:10:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L10) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1])))
  ^
```
[tests/edge.R:14:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/edge.R#L14) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L1$d, S$d[1])))
  ^
```
[tests/reference.R:8:17:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L8) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
               ~^~
```
[tests/reference.R:8:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L8) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                     ~^~
```
[tests/reference.R:8:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L8) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                            ~^~
```
[tests/reference.R:8:45:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L8) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                                           ~^~
```
[tests/reference.R:9:15:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L9) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
             ~^~
```
[tests/reference.R:9:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L9) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
                   ~^~
```
[tests/reference.R:10:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L10) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:2])))
  ^
```
[tests/reference.R:16:18:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L16) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nv=3, v=L, fastpath=FALSE)
                ~^~
```
[tests/reference.R:16:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L16) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nv=3, v=L, fastpath=FALSE)
                     ~^~
```
[tests/reference.R:16:35:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L16) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nv=3, v=L, fastpath=FALSE)
                                 ~^~
```
[tests/reference.R:17:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L17) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L1$d, S$d[1:3])))
  ^
```
[tests/reference.R:25:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L25) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, scale=s, fastpath=FALSE)
                   ~^~
```
[tests/reference.R:25:34:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L25) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, scale=s, fastpath=FALSE)
                                ~^~
```
[tests/reference.R:25:43:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L25) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, scale=s, fastpath=FALSE)
                                         ~^~
```
[tests/reference.R:25:55:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L25) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, scale=s, fastpath=FALSE)
                                                     ~^~
```
[tests/reference.R:26:25:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L26) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=TRUE, scale=s))
                       ~^~
```
[tests/reference.R:26:37:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L26) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=TRUE, scale=s))
                                   ~^~
```
[tests/reference.R:27:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L27) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:3])))
  ^
```
[tests/reference.R:32:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L32) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, scale=s, fastpath=FALSE)
                   ~^~
```
[tests/reference.R:32:33:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L32) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, scale=s, fastpath=FALSE)
                               ~^~
```
[tests/reference.R:32:45:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L32) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, scale=s, fastpath=FALSE)
                                           ~^~
```
[tests/reference.R:33:25:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L33) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=FALSE, scale=s))
                       ~^~
```
[tests/reference.R:33:38:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L33) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=FALSE, scale=s))
                                    ~^~
```
[tests/reference.R:34:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L34) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:3])))
  ^
```
[tests/reference.R:39:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L39) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, fastpath=FALSE)
                   ~^~
```
[tests/reference.R:39:34:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L39) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, fastpath=FALSE)
                                ~^~
```
[tests/reference.R:39:46:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L39) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, fastpath=FALSE)
                                            ~^~
```
[tests/reference.R:40:25:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L40) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=TRUE, scale=FALSE))
                       ~^~
```
[tests/reference.R:40:37:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L40) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=TRUE, scale=FALSE))
                                   ~^~
```
[tests/reference.R:41:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L41) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:3])))
  ^
```
[tests/reference.R:50:20:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L50) *style:* **Put spaces around all infix operators.**
```r
i <- sample(K, size=N, replace=TRUE)
                  ~^~
```
[tests/reference.R:50:31:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L50) *style:* **Put spaces around all infix operators.**
```r
i <- sample(K, size=N, replace=TRUE)
                             ~^~
```
[tests/reference.R:51:20:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L51) *style:* **Put spaces around all infix operators.**
```r
j <- sample(K, size=N, replace=TRUE)
                  ~^~
```
[tests/reference.R:51:31:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L51) *style:* **Put spaces around all infix operators.**
```r
j <- sample(K, size=N, replace=TRUE)
                             ~^~
```
[tests/reference.R:52:26:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L52) *style:* **Put spaces around all infix operators.**
```r
A <- sparseMatrix(i, j, x=rnorm(N))
                        ~^~
```
[tests/reference.R:53:17:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L53) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
               ~^~
```
[tests/reference.R:53:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L53) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                     ~^~
```
[tests/reference.R:53:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L53) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                            ~^~
```
[tests/reference.R:53:45:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L53) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                                           ~^~
```
[tests/reference.R:54:15:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L54) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
             ~^~
```
[tests/reference.R:54:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L54) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
                   ~^~
```
[tests/reference.R:55:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L55) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:2])))
  ^
```
[tests/reference.R:62:37:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L62) *style:* **Put spaces around all infix operators.**
```r
V <- qr.Q(qr(matrix(runif(100), nrow=10)))
                                   ~^~
```
[tests/reference.R:64:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L64) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(partial_eigen(x, 3)$values, c(10,8,6))))
  ^
```
[tests/reference.R:64:55:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L64) *style:* **Commas should always have a space after.**
```r
if(!isTRUE(all.equal(partial_eigen(x, 3)$values, c(10,8,6))))
                                                      ^
```
[tests/reference.R:64:57:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L64) *style:* **Commas should always have a space after.**
```r
if(!isTRUE(all.equal(partial_eigen(x, 3)$values, c(10,8,6))))
                                                        ^
```
[tests/reference.R:70:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L70) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 2, tol=1e-9, right_only=TRUE, fastpath=FALSE)
                   ~^~
```
[tests/reference.R:70:38:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L70) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 2, tol=1e-9, right_only=TRUE, fastpath=FALSE)
                                    ~^~
```
[tests/reference.R:70:53:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L70) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 2, tol=1e-9, right_only=TRUE, fastpath=FALSE)
                                                   ~^~
```
[tests/reference.R:71:15:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L71) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
             ~^~
```
[tests/reference.R:71:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L71) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
                   ~^~
```
[tests/reference.R:72:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L72) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:2])))
  ^
```
[tests/reference.R:79:17:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L79) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
               ~^~
```
[tests/reference.R:79:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L79) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                     ~^~
```
[tests/reference.R:79:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L79) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                            ~^~
```
[tests/reference.R:79:45:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L79) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                                           ~^~
```
[tests/reference.R:80:15:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L80) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
             ~^~
```
[tests/reference.R:80:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L80) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
                   ~^~
```
[tests/reference.R:81:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L81) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:2])))
  ^
```
[tests/reference.R:87:17:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L87) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FALSE)
               ~^~
```
[tests/reference.R:87:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L87) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FALSE)
                     ~^~
```
[tests/reference.R:87:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L87) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FALSE)
                            ~^~
```
[tests/reference.R:87:43:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L87) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FALSE)
                                         ~^~
```
[tests/reference.R:87:58:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L87) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FALSE)
                                                        ~^~
```
[tests/reference.R:88:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L88) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:2])))
  ^
```
[tests/reference.R:94:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L94) *style:* **Put spaces around all infix operators.**
```r
x  <- matrix(rnorm(200), nrow=20)
                            ~^~
```
[tests/reference.R:95:24:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L95) *style:* **Put spaces around all infix operators.**
```r
p1 <- prcomp_irlba(x, n=3, fastpath=FALSE)
                      ~^~
```
[tests/reference.R:95:36:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L95) *style:* **Put spaces around all infix operators.**
```r
p1 <- prcomp_irlba(x, n=3, fastpath=FALSE)
                                  ~^~
```
[tests/reference.R:96:20:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L96) *style:* **Put spaces around all infix operators.**
```r
p2 <- prcomp(x, tol=0.7)
                  ~^~
```
[tests/reference.R:97:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L97) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(p1$sdev[1:2], p2$sdev[1:2])))
  ^
```
[tests/reference.R:105:18:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L105) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                ~^~
```
[tests/reference.R:105:24:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L105) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                      ~^~
```
[tests/reference.R:105:31:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L105) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                             ~^~
```
[tests/reference.R:105:46:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L105) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                                            ~^~
```
[tests/reference.R:106:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L106) *style:* **Put spaces around all infix operators.**
```r
L2 <- irlba(t(A), nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                   ~^~
```
[tests/reference.R:106:27:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L106) *style:* **Put spaces around all infix operators.**
```r
L2 <- irlba(t(A), nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                         ~^~
```
[tests/reference.R:106:34:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L106) *style:* **Put spaces around all infix operators.**
```r
L2 <- irlba(t(A), nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                                ~^~
```
[tests/reference.R:106:49:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L106) *style:* **Put spaces around all infix operators.**
```r
L2 <- irlba(t(A), nu=2, nv=2, tol=1e-9, fastpath=FALSE)
                                               ~^~
```
[tests/reference.R:107:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/reference.R#L107) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L1$d, L2$d)))
  ^
```
[tests/test.R:5:17:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L5) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9)
               ~^~
```
[tests/test.R:5:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L5) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9)
                     ~^~
```
[tests/test.R:5:30:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L5) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, nu=2, nv=2, tol=1e-9)
                            ~^~
```
[tests/test.R:6:15:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L6) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
             ~^~
```
[tests/test.R:6:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L6) *style:* **Put spaces around all infix operators.**
```r
S <- svd(A, nu=2, nv=2)
                   ~^~
```
[tests/test.R:7:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L7) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:2])))
  ^
```
[tests/test.R:13:18:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L13) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nv=3, v=L)
                ~^~
```
[tests/test.R:13:23:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L13) *style:* **Put spaces around all infix operators.**
```r
L1 <- irlba(A, nv=3, v=L)
                     ~^~
```
[tests/test.R:14:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L14) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L1$d, S$d[1:3])))
  ^
```
[tests/test.R:22:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L22) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, scale=s)
                   ~^~
```
[tests/test.R:22:34:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L22) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, scale=s)
                                ~^~
```
[tests/test.R:22:43:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L22) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, center=m, scale=s)
                                         ~^~
```
[tests/test.R:23:25:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L23) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=TRUE, scale=s))
                       ~^~
```
[tests/test.R:23:37:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L23) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=TRUE, scale=s))
                                   ~^~
```
[tests/test.R:24:3:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L24) *style:* **Place a space before left parenthesis, except in a function call.**
```r
if(!isTRUE(all.equal(L$d, S$d[1:3])))
  ^
```
[tests/test.R:29:21:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L29) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, scale=s)
                   ~^~
```
[tests/test.R:29:33:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L29) *style:* **Put spaces around all infix operators.**
```r
L <- irlba(A, 3, tol=1e-9, scale=s)
                               ~^~
```
[tests/test.R:30:25:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L30) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=FALSE, scale=s))
                       ~^~
```
[tests/test.R:30:38:](https://github.com/bwlewis/irlba/blob/8e38d29270da3d4fa558c2446a7ee85027b1c43b/tests/test.R#L30) *style:* **Put spaces around all infix operators.**
```r
S <- svd(scale(A, center=FALSE, scale=s))
                                    ~^~
```


There is a slight delay when anything is assigned to the double tap home button. If nothing is assigned there is no delay, but if there is there seems to be a slight delay (assuming it waits to see if there is a second tap).


True, although I think we were not too keen to accomodate edge cases in the feedback process


- It is said that "actual bound on memory allocated by this pool is sizeBytes + maxSingleAllocationSize". But I think we should be able to bound the memory with sizeBytes, and avoid having maxSingleAllocationSize. Here is the idea:

When `NetworkReceive.readFromReadableChannel(..)` is called, if `requestedBufferSize > availableMemory`, we can allocate availableMemory and assign store the number in the NetworkReceive. And NetworkReceive can act as if there is no available memory. The NetworkReceive only creates a complete buffer after the accumulated size of buffer == requestedBufferSize.

- Why do we need buffersInFlight? Can we simply store the size of buffer in BufferReference, and do availableMemory.addAndGet(ref.bufferSize) when we release the buffer? This will make the implementation simpler by avoiding `buffersInFlight` and `bufferIdentity`.


Why do you use jetbrains' annotation when you have google findbugs javax annotations?


@tamird oh, okay, it takes the smaller value which seems correct.


Erik, next time can you specify the opportunities that you are talking about? Otherwise the commit message is pretty cryptic.

I am assuming that this is referring to the partial apply thing that you just added?


Question (maybe silly): why is `finish` called so early? Shouldn't this close the activity?


This is the first regular expression I've seen from a student while teaching this class!


Have you thought about using webpack2 instead?

`npm install --save-dev webpack@2.1.0-beta.21 webpack-dev-server@2.1.0-beta.0`

You'll be happy to find we've added numerous speed and perf enhancements.


#4262-Cooling-Towers-are-not-being-sequentially-loaded,-all-towers-are-running (rraustad) - x86_64-Linux-Ubuntu-14.04-gcc-4.8: OK (2366 of 2366 tests passed, 0 test warnings)

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


Não seria melhor ter implementado? Melhor remover ou terminar a feature.


Can you put a space in between the first line and the second line. It is proper doxygen style.


Also, can you put a space in between 69 and 70 for the same reason.


Acho que seria melhor adicionar essa feature de buscar (que é apenas o filtro) na própria página de promoções.


Can you extract this into a helper function?


Very robust handling of all cases. Nice stuff.


This is a slick way to clear a form. You can also use the val() function and pass in an empty string.


Why should this go here? Seems like a random place to put it.


Great stuff. I'm genuinely impressed that you used a regular expression to trim the whitespace and also used toLowerCase. Excellent job handling the logic for all the different cities as well as a blank input and bad values.


ok my bad


For instance, I could see such a small thing going in SILCombine (where we already have a bunch of code for combining partial applies), or given previous discussions, maybe we create a framework for specializing these partial applies so we can move that large amount of code out of SILCombine?


possible fix:
change line 1351:
from: crontab -l -u ${MAGE_WEB_USER} >> magecron
to: crontab -l -u ${MAGE_WEB_USER} | sed -i "s/no crontab for ${MAGE_WEB_USER}//g" > magecron