{"comment":{"url":"https://api.github.com/repos/bwlewis/irlba/comments/18753615","html_url":"https://github.com/bwlewis/irlba/commit/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d#commitcomment-18753615","id":18753615,"user":{"login":"lintr-bot","id":10925265,"avatar_url":"https://avatars.githubusercontent.com/u/10925265?v=3","gravatar_id":"","url":"https://api.github.com/users/lintr-bot","html_url":"https://github.com/lintr-bot","followers_url":"https://api.github.com/users/lintr-bot/followers","following_url":"https://api.github.com/users/lintr-bot/following{/other_user}","gists_url":"https://api.github.com/users/lintr-bot/gists{/gist_id}","starred_url":"https://api.github.com/users/lintr-bot/starred{/owner}{/repo}","subscriptions_url":"https://api.github.com/users/lintr-bot/subscriptions","organizations_url":"https://api.github.com/users/lintr-bot/orgs","repos_url":"https://api.github.com/users/lintr-bot/repos","events_url":"https://api.github.com/users/lintr-bot/events{/privacy}","received_events_url":"https://api.github.com/users/lintr-bot/received_events","type":"User","site_admin":false},"position":null,"line":null,"path":null,"commit_id":"25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d","created_at":"2016-08-24T03:16:42Z","updated_at":"2016-08-24T03:16:42Z","body":"[R/eigen.R:57:10:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L57) *warning:* **no visible global function definition for ‘irlba’**\n```r\n​    L <- irlba(x, n, ...)\n         ^~~~~\n```\n[R/eigen.R:58:24:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L58) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(vectors=L$v, values=L$d ^ 2))\n                      ~^~\n```\n[R/eigen.R:58:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L58) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(vectors=L$v, values=L$d ^ 2))\n                                  ~^~\n```\n[R/eigen.R:60:8:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L60) *warning:* **no visible global function definition for ‘irlba’**\n```r\n​  L <- irlba(x, n, ...)\n       ^~~~~\n```\n[R/eigen.R:61:19:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L61) *style:* **Commas should always have a space after.**\n```r\n​  s <- sign(L$u[1,] * L$v[1,])\n                  ^\n```\n[R/eigen.R:61:29:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L61) *style:* **Commas should always have a space after.**\n```r\n​  s <- sign(L$u[1,] * L$v[1,])\n                            ^\n```\n[R/eigen.R:64:24:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L64) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(vectors=L$u, values=L$d))\n                      ~^~\n```\n[R/eigen.R:64:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L64) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(vectors=L$u, values=L$d))\n                                  ~^~\n```\n[R/eigen.R:68:8:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L68) *warning:* **no visible global function definition for ‘irlba’**\n```r\n​  L <- irlba(x, n, shift=shift, ...)\n       ^~~~~\n```\n[R/eigen.R:68:25:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L68) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(x, n, shift=shift, ...)\n                       ~^~\n```\n[R/eigen.R:69:22:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L69) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(vectors=L$u, values=L$d - shift))\n                    ~^~\n```\n[R/eigen.R:69:34:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/eigen.R#L69) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(vectors=L$u, values=L$d - shift))\n                                ~^~\n```\n[R/irlba.R:164:24:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L164) *style:* **Put spaces around all infix operators.**\n```r\n​  ropts <- options(warn=1) # immediately show warnings\n                      ~^~\n```\n[R/irlba.R:239:18:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L239) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(d=s$d[1:k], u=s$u[, 1:nu, drop=FALSE],\n                ~^~\n```\n[R/irlba.R:239:30:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L239) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(d=s$d[1:k], u=s$u[, 1:nu, drop=FALSE],\n                            ~^~\n```\n[R/irlba.R:239:47:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L239) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(d=s$d[1:k], u=s$u[, 1:nu, drop=FALSE],\n                                             ~^~\n```\n[R/irlba.R:240:16:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L240) *style:* **Put spaces around all infix operators.**\n```r\n​              v=s$v[, 1:nv, drop=FALSE], iter=0, mprod=0))\n              ~^~\n```\n[R/irlba.R:240:33:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L240) *style:* **Put spaces around all infix operators.**\n```r\n​              v=s$v[, 1:nv, drop=FALSE], iter=0, mprod=0))\n                               ~^~\n```\n[R/irlba.R:240:46:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L240) *style:* **Put spaces around all infix operators.**\n```r\n​              v=s$v[, 1:nv, drop=FALSE], iter=0, mprod=0))\n                                            ~^~\n```\n[R/irlba.R:240:55:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L240) *style:* **Put spaces around all infix operators.**\n```r\n​              v=s$v[, 1:nv, drop=FALSE], iter=0, mprod=0))\n                                                     ~^~\n```\n[R/irlba.R:257:14:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L257) *warning:* **no visible global function definition for ‘orthog’**\n```r\n​      RND <- orthog(RND, v$v)\n             ^~~~~~\n```\n[R/irlba.R:258:30:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L258) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​      RV <- cbind(v$v, RND / norm2(RND))\n                             ^~~~~\n```\n[R/irlba.R:286:68:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L286) *style:* **Put spaces around all infix operators.**\n```r\n​                 RESTART, RV, RW, RS, SCALE, SHIFT, CENTER, PACKAGE=\"irlba\")\n                                                                  ~^~\n```\n[R/irlba.R:290:48:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L290) *style:* **Put spaces around all infix operators.**\n```r\n​      ans$u <- matrix(head(ans$u, m * nu), nrow=m, ncol=nu)\n                                              ~^~\n```\n[R/irlba.R:290:56:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L290) *style:* **Put spaces around all infix operators.**\n```r\n​      ans$u <- matrix(head(ans$u, m * nu), nrow=m, ncol=nu)\n                                                      ~^~\n```\n[R/irlba.R:291:48:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L291) *style:* **Put spaces around all infix operators.**\n```r\n​      ans$v <- matrix(head(ans$v, n * nv), nrow=n, ncol=nv)\n                                              ~^~\n```\n[R/irlba.R:291:56:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L291) *style:* **Put spaces around all infix operators.**\n```r\n​      ans$v <- matrix(head(ans$v, n * nv), nrow=n, ncol=nv)\n                                                      ~^~\n```\n[R/irlba.R:356:10:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L356) *warning:* **no visible global function definition for ‘orthog’**\n```r\n​    F <- orthog(F, V[, 1:k])\n         ^~~~~~\n```\n[R/irlba.R:357:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L357) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​    V[, k + 1] <- F / norm2(F)\n                      ^~~~~\n```\n[R/irlba.R:379:26:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L379) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​      V[, 1] <- V[, 1] / norm2(V[, 1])\n                         ^~~~~\n```\n[R/irlba.R:411:40:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L411) *warning:* **no visible global function definition for ‘cross’, Did you mean 'class'?**\n```r\n​      W[, j_w] <- W[, j_w] - ds * drop(cross(dv, VJ)) * du\n                                       ^~~~~\n```\n[R/irlba.R:417:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L417) *warning:* **no visible global function definition for ‘orthog’**\n```r\n​      W[, j] <- orthog (W[, j, drop=FALSE], W[, 1:(j - 1), drop=FALSE])\n                ^~~~~~\n```\n[R/irlba.R:417:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L417) *style:* **Put spaces around all infix operators.**\n```r\n​      W[, j] <- orthog (W[, j, drop=FALSE], W[, 1:(j - 1), drop=FALSE])\n                                  ~^~\n```\n[R/irlba.R:417:64:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L417) *style:* **Put spaces around all infix operators.**\n```r\n​      W[, j] <- orthog (W[, j, drop=FALSE], W[, 1:(j - 1), drop=FALSE])\n                                                              ~^~\n```\n[R/irlba.R:420:10:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L420) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​    S <- norm2(W[, j_w, drop=FALSE])\n         ^~~~~\n```\n[R/irlba.R:420:29:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L420) *style:* **Put spaces around all infix operators.**\n```r\n​    S <- norm2(W[, j_w, drop=FALSE])\n                           ~^~\n```\n[R/irlba.R:422:9:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L422) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    if ((S < SVTol) && (j == 1)) stop(\"Starting vector near the null space\")\n        ^\n```\n[R/irlba.R:426:32:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L426) *warning:* **no visible global function definition for ‘orthog’**\n```r\n​      if (w_dim > 1) W[, j] <- orthog(W[, j], W[, 1:(j - 1)])\n                               ^~~~~~\n```\n[R/irlba.R:427:30:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L427) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​      W[, j_w] <- W[, j_w] / norm2(W[, j_w])\n                             ^~~~~\n```\n[R/irlba.R:447:12:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L447) *warning:* **no visible global function definition for ‘orthog’**\n```r\n​      F <- orthog(F, V[, 1:j, drop=FALSE])\n           ^~~~~~\n```\n[R/irlba.R:447:35:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L447) *style:* **Put spaces around all infix operators.**\n```r\n​      F <- orthog(F, V[, 1:j, drop=FALSE])\n                                 ~^~\n```\n[R/irlba.R:450:14:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L450) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​        R <- norm2(F)\n             ^~~~~\n```\n[R/irlba.R:455:16:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L455) *warning:* **no visible global function definition for ‘orthog’**\n```r\n​          F <- orthog(F, V[, 1:j, drop=FALSE])\n               ^~~~~~\n```\n[R/irlba.R:455:39:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L455) *style:* **Put spaces around all infix operators.**\n```r\n​          F <- orthog(F, V[, 1:j, drop=FALSE])\n                                     ~^~\n```\n[R/irlba.R:456:29:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L456) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​          V[, j + 1] <- F / norm2(F)\n                            ^~~~~\n```\n[R/irlba.R:486:48:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L486) *warning:* **no visible global function definition for ‘cross’, Did you mean 'class'?**\n```r\n​          W[, jp1_w] <- W[, jp1_w] - ds * drop(cross(dv, VJP1)) * du\n                                               ^~~~~\n```\n[R/irlba.R:493:48:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L493) *warning:* **no visible global function definition for ‘orthog’**\n```r\n​        if (reorth && w_dim > 1) W[, j + 1] <- orthog(W[, j + 1], W[, 1:j])\n                                               ^~~~~~\n```\n[R/irlba.R:494:14:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L494) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​        S <- norm2(W[, jp1_w])\n             ^~~~~\n```\n[R/irlba.R:499:40:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L499) *warning:* **no visible global function definition for ‘orthog’**\n```r\n​          if (w_dim > 1) W[, j + 1] <- orthog(W[, j + 1], W[, 1:j])\n                                       ^~~~~~\n```\n[R/irlba.R:500:38:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L500) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​          W[, jp1_w] <- W[, jp1_w] / norm2(W[, jp1_w])\n                                     ^~~~~\n```\n[R/irlba.R:520:12:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L520) *warning:* **no visible global function definition for ‘norm2’, Did you mean 'norm'?**\n```r\n​    R_F <- norm2(F)\n           ^~~~~\n```\n[R/irlba.R:541:9:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L541) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​    if ((Smin / Smax < sqrteps) && !reorth)\n        ^\n```\n[R/irlba.R:548:34:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L548) *style:* **Put spaces around all infix operators.**\n```r\n​    R <- R_F * Bsvd$u[Bsz, , drop=FALSE]\n                                ~^~\n```\n[R/irlba.R:561:42:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L561) *style:* **Put spaces around all infix operators.**\n```r\n​                                     drop=FALSE] %*% Bsvd$v[, 1:k], F)\n                                        ~^~\n```\n[R/irlba.R:562:41:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L562) *style:* **Put spaces around all infix operators.**\n```r\n​      B <- cbind( diag(Bsvd$d[1:k], nrow=k), R[1:k])\n                                       ~^~\n```\n[R/irlba.R:567:47:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L567) *style:* **Put spaces around all infix operators.**\n```r\n​      W[, 1:k] <- W[, 1:(dim(Bsvd$u)[1]), drop=FALSE] %*% Bsvd$u[, 1:k]\n                                             ~^~\n```\n[R/irlba.R:580:38:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L580) *style:* **Put spaces around all infix operators.**\n```r\n​    u <- W[, 1:(dim(Bsvd$u)[1]), drop=FALSE] %*% Bsvd$u[, 1:k_org, drop=FALSE]\n                                    ~^~\n```\n[R/irlba.R:580:72:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L580) *style:* **Put spaces around all infix operators.**\n```r\n​    u <- W[, 1:(dim(Bsvd$u)[1]), drop=FALSE] %*% Bsvd$u[, 1:k_org, drop=FALSE]\n                                                                      ~^~\n```\n[R/irlba.R:582:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L582) *style:* **Put spaces around all infix operators.**\n```r\n​  v <- V[, 1:(dim(Bsvd$v)[1]), drop=FALSE] %*% Bsvd$v[, 1:k_org, drop=FALSE]\n                                  ~^~\n```\n[R/irlba.R:582:70:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L582) *style:* **Put spaces around all infix operators.**\n```r\n​  v <- V[, 1:(dim(Bsvd$v)[1]), drop=FALSE] %*% Bsvd$v[, 1:k_org, drop=FALSE]\n                                                                    ~^~\n```\n[R/irlba.R:584:18:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n                ~^~\n```\n[R/irlba.R:584:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n                     ~^~\n```\n[R/irlba.R:584:38:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n                                    ~^~\n```\n[R/irlba.R:584:51:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n                                                 ~^~\n```\n[R/irlba.R:584:63:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L584) *style:* **Put spaces around all infix operators.**\n```r\n​    return(list(d=d, v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n                                                             ~^~\n```\n[R/irlba.R:585:16:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L585) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(d=d, u=u[, 1:nu, drop=FALSE],\n              ~^~\n```\n[R/irlba.R:585:21:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L585) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(d=d, u=u[, 1:nu, drop=FALSE],\n                   ~^~\n```\n[R/irlba.R:585:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L585) *style:* **Put spaces around all infix operators.**\n```r\n​  return(list(d=d, u=u[, 1:nu, drop=FALSE],\n                                  ~^~\n```\n[R/irlba.R:586:16:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L586) *style:* **Put spaces around all infix operators.**\n```r\n​              v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n              ~^~\n```\n[R/irlba.R:586:31:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L586) *style:* **Put spaces around all infix operators.**\n```r\n​              v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n                             ~^~\n```\n[R/irlba.R:586:44:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L586) *style:* **Put spaces around all infix operators.**\n```r\n​              v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n                                          ~^~\n```\n[R/irlba.R:586:56:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/irlba.R#L586) *style:* **Put spaces around all infix operators.**\n```r\n​              v=v[, 1:nv, drop=FALSE], iter=iter, mprod=mprod))\n                                                      ~^~\n```\n[R/prcomp.R:73:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L73) *style:* **Put spaces around all infix operators.**\n```r\n​  args <- list(A=x, nv=n)\n               ~^~\n```\n[R/prcomp.R:73:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L73) *style:* **Put spaces around all infix operators.**\n```r\n​  args <- list(A=x, nv=n)\n                     ~^~\n```\n[R/prcomp.R:84:16:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L84) *warning:* **no visible binding for global variable ‘irlba’**\n```r\n​  s <- do.call(irlba, args=args)\n               ^~~~~\n```\n[R/prcomp.R:84:27:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L84) *style:* **Put spaces around all infix operators.**\n```r\n​  s <- do.call(irlba, args=args)\n                         ~^~\n```\n[R/prcomp.R:85:19:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L85) *style:* **Put spaces around all infix operators.**\n```r\n​  ans <- list(sdev=s$d / sqrt(max(1, nrow(x) - 1)), rotation=s$v)\n                 ~^~\n```\n[R/prcomp.R:85:61:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L85) *style:* **Put spaces around all infix operators.**\n```r\n​  ans <- list(sdev=s$d / sqrt(max(1, nrow(x) - 1)), rotation=s$v)\n                                                           ~^~\n```\n[R/prcomp.R:86:47:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L86) *style:* **Commas should always have a space after.**\n```r\n​  colnames(ans$rotation) <- paste(\"PC\", seq(1,ncol(ans$rotation)), sep=\"\")\n                                              ^\n```\n[R/prcomp.R:86:71:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L86) *style:* **Put spaces around all infix operators.**\n```r\n​  colnames(ans$rotation) <- paste(\"PC\", seq(1,ncol(ans$rotation)), sep=\"\")\n                                                                     ~^~\n```\n[R/prcomp.R:92:42:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L92) *style:* **Commas should always have a space after.**\n```r\n​    colnames(ans$x) <- paste(\"PC\", seq(1,ncol(ans$rotation)), sep=\"\")\n                                         ^\n```\n[R/prcomp.R:92:66:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/prcomp.R#L92) *style:* **Put spaces around all infix operators.**\n```r\n​    colnames(ans$x) <- paste(\"PC\", seq(1,ncol(ans$rotation)), sep=\"\")\n                                                                ~^~\n```\n[R/utility.R:5:21:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L5) *style:* **Commas should always have a space after.**\n```r\n​cross <- function(x,y)\n                    ^\n```\n[R/utility.R:19:13:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L19) *warning:* **no visible global function definition for ‘cross’, Did you mean 'class'?**\n```r\n​  drop(sqrt(cross(x)))\n            ^~~~~\n```\n[R/utility.R:59:27:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L59) *style:* **Put spaces around all infix operators.**\n```r\n​    return (list(converged=TRUE, U_B=U_B[,1:k_org, drop=FALSE],\n                         ~^~\n```\n[R/utility.R:59:37:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L59) *style:* **Put spaces around all infix operators.**\n```r\n​    return (list(converged=TRUE, U_B=U_B[,1:k_org, drop=FALSE],\n                                   ~^~\n```\n[R/utility.R:59:43:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L59) *style:* **Commas should always have a space after.**\n```r\n​    return (list(converged=TRUE, U_B=U_B[,1:k_org, drop=FALSE],\n                                          ^\n```\n[R/utility.R:59:56:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L59) *style:* **Put spaces around all infix operators.**\n```r\n​    return (list(converged=TRUE, U_B=U_B[,1:k_org, drop=FALSE],\n                                                      ~^~\n```\n[R/utility.R:60:22:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L60) *style:* **Put spaces around all infix operators.**\n```r\n​                  S_B=S_B[1:k_org, drop=FALSE],\n                    ~^~\n```\n[R/utility.R:60:40:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L60) *style:* **Put spaces around all infix operators.**\n```r\n​                  S_B=S_B[1:k_org, drop=FALSE],\n                                      ~^~\n```\n[R/utility.R:61:22:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L61) *style:* **Put spaces around all infix operators.**\n```r\n​                  V_B=V_B[,1:k_org, drop=FALSE], k=k))\n                    ~^~\n```\n[R/utility.R:61:28:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L61) *style:* **Commas should always have a space after.**\n```r\n​                  V_B=V_B[,1:k_org, drop=FALSE], k=k))\n                           ^\n```\n[R/utility.R:61:41:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L61) *style:* **Put spaces around all infix operators.**\n```r\n​                  V_B=V_B[,1:k_org, drop=FALSE], k=k))\n                                       ~^~\n```\n[R/utility.R:61:51:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L61) *style:* **Put spaces around all infix operators.**\n```r\n​                  V_B=V_B[,1:k_org, drop=FALSE], k=k))\n                                                 ~^~\n```\n[R/utility.R:67:37:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L67) *style:* **Commas should always have a space after.**\n```r\n​  if (k > Bsz - 3) k <- max(Bsz - 3,1)\n                                    ^\n```\n[R/utility.R:68:25:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L68) *style:* **Put spaces around all infix operators.**\n```r\n​  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )\n                       ~^~\n```\n[R/utility.R:68:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L68) *style:* **Put spaces around all infix operators.**\n```r\n​  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )\n                                  ~^~\n```\n[R/utility.R:68:45:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L68) *style:* **Put spaces around all infix operators.**\n```r\n​  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )\n                                           ~^~\n```\n[R/utility.R:68:54:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L68) *style:* **Put spaces around all infix operators.**\n```r\n​  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )\n                                                    ~^~\n```\n[R/utility.R:68:61:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/R/utility.R#L68) *style:* **Put spaces around all infix operators.**\n```r\n​  return (list(converged=FALSE, U_B=U_B, S_B=S_B, V_B=V_B, k=k) )\n                                                           ~^~\n```\n[tests/edge.R:6:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L6) *style:* **Commas should always have a space after.**\n```r\n​A <- matrix(rnorm(16),4)\n                      ^\n```\n[tests/edge.R:7:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L7) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=FALSE)\n               ~^~\n```\n[tests/edge.R:7:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L7) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=FALSE)\n                     ~^~\n```\n[tests/edge.R:7:30:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L7) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=FALSE)\n                            ~^~\n```\n[tests/edge.R:7:45:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L7) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=FALSE)\n                                           ~^~\n```\n[tests/edge.R:8:18:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​L1 <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=TRUE)\n                ~^~\n```\n[tests/edge.R:8:24:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​L1 <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=TRUE)\n                      ~^~\n```\n[tests/edge.R:8:31:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​L1 <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=TRUE)\n                             ~^~\n```\n[tests/edge.R:8:46:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​L1 <- irlba(A, nu=1, nv=1, tol=1e-9, fastpath=TRUE)\n                                            ~^~\n```\n[tests/edge.R:9:15:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L9) *style:* **Put spaces around all infix operators.**\n```r\n​S <- svd(A, nu=1, nv=1)\n             ~^~\n```\n[tests/edge.R:9:21:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L9) *style:* **Put spaces around all infix operators.**\n```r\n​S <- svd(A, nu=1, nv=1)\n                   ~^~\n```\n[tests/edge.R:10:3:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L10) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​if(!isTRUE(all.equal(L$d, S$d[1])))\n  ^\n```\n[tests/edge.R:14:3:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L14) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​if(!isTRUE(all.equal(L1$d, S$d[1])))\n  ^\n```\n[tests/edge.R:20:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L20) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A)))\n               ~^~\n```\n[tests/edge.R:20:24:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L20) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A)))\n                      ~^~\n```\n[tests/edge.R:20:39:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L20) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A)))\n                                     ~^~\n```\n[tests/edge.R:20:51:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L20) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A)))\n                                                 ~^~\n```\n[tests/edge.R:20:56:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L20) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A)))\n                                                      ~^~\n```\n[tests/edge.R:23:26:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L23) *style:* **Put spaces around all infix operators.**\n```r\n​L <- tryCatch(irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A))), error=function(e) \"NULLSPACE\")\n                        ~^~\n```\n[tests/edge.R:23:33:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L23) *style:* **Put spaces around all infix operators.**\n```r\n​L <- tryCatch(irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A))), error=function(e) \"NULLSPACE\")\n                               ~^~\n```\n[tests/edge.R:23:48:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L23) *style:* **Put spaces around all infix operators.**\n```r\n​L <- tryCatch(irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A))), error=function(e) \"NULLSPACE\")\n                                              ~^~\n```\n[tests/edge.R:23:60:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L23) *style:* **Put spaces around all infix operators.**\n```r\n​L <- tryCatch(irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A))), error=function(e) \"NULLSPACE\")\n                                                          ~^~\n```\n[tests/edge.R:23:65:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L23) *style:* **Put spaces around all infix operators.**\n```r\n​L <- tryCatch(irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A))), error=function(e) \"NULLSPACE\")\n                                                               ~^~\n```\n[tests/edge.R:23:89:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L23) *style:* **Put spaces around all infix operators.**\n```r\n​L <- tryCatch(irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=rep(0, nrow(A))), error=function(e) \"NULLSPACE\")\n                                                                                       ~^~\n```\n[tests/edge.R:25:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=S$v[,1])\n               ~^~\n```\n[tests/edge.R:25:24:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=S$v[,1])\n                      ~^~\n```\n[tests/edge.R:25:39:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=S$v[,1])\n                                     ~^~\n```\n[tests/edge.R:25:51:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=S$v[,1])\n                                                 ~^~\n```\n[tests/edge.R:25:56:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=S$v[,1])\n                                                      ~^~\n```\n[tests/edge.R:25:62:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L25) *style:* **Commas should always have a space after.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, v=S$v[,1])\n                                                             ^\n```\n[tests/edge.R:26:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                      ^\n```\n[tests/edge.R:26:25:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                        ^\n```\n[tests/edge.R:26:27:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                          ^\n```\n[tests/edge.R:26:29:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                            ^\n```\n[tests/edge.R:26:31:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                              ^\n```\n[tests/edge.R:26:33:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                                ^\n```\n[tests/edge.R:26:35:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                                  ^\n```\n[tests/edge.R:26:37:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                                    ^\n```\n[tests/edge.R:26:39:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L26) *style:* **Commas should always have a space after.**\n```r\n​A <- S$u %*% diag(c(1,1,1,1,1,1,1,1,1,1e-12)) %*% t(S$v)\n                                      ^\n```\n[tests/edge.R:27:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L27) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, reorth=FALSE)\n               ~^~\n```\n[tests/edge.R:27:24:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L27) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, reorth=FALSE)\n                      ~^~\n```\n[tests/edge.R:27:39:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L27) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, reorth=FALSE)\n                                     ~^~\n```\n[tests/edge.R:27:51:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L27) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, reorth=FALSE)\n                                                 ~^~\n```\n[tests/edge.R:27:61:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/edge.R#L27) *style:* **Put spaces around all infix operators.**\n```r\n​L <- irlba(A, nv=3, tol=1e-9, fastpath=FALSE, work=2, reorth=FALSE)\n                                                           ~^~\n```\n[tests/test.R:3:4:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L3) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​for(FAST in c(TRUE, FALSE))\n   ^\n```\n[tests/test.R:8:19:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                 ~^~\n```\n[tests/test.R:8:25:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                       ~^~\n```\n[tests/test.R:8:32:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                              ~^~\n```\n[tests/test.R:8:47:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L8) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                                             ~^~\n```\n[tests/test.R:9:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L9) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(A, nu=2, nv=2)\n               ~^~\n```\n[tests/test.R:9:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L9) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(A, nu=2, nv=2)\n                     ~^~\n```\n[tests/test.R:10:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L10) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L$d, S$d[1:2])))\n    ^\n```\n[tests/test.R:16:20:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L16) *style:* **Put spaces around all infix operators.**\n```r\n​  L1 <- irlba(A, nv=3, v=L, fastpath=FAST)\n                  ~^~\n```\n[tests/test.R:16:25:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L16) *style:* **Put spaces around all infix operators.**\n```r\n​  L1 <- irlba(A, nv=3, v=L, fastpath=FAST)\n                       ~^~\n```\n[tests/test.R:16:37:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L16) *style:* **Put spaces around all infix operators.**\n```r\n​  L1 <- irlba(A, nv=3, v=L, fastpath=FAST)\n                                   ~^~\n```\n[tests/test.R:17:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L17) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L1$d, S$d[1:3])))\n    ^\n```\n[tests/test.R:25:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, center=m, scale=s, fastpath=FAST)\n                     ~^~\n```\n[tests/test.R:25:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, center=m, scale=s, fastpath=FAST)\n                                  ~^~\n```\n[tests/test.R:25:45:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, center=m, scale=s, fastpath=FAST)\n                                           ~^~\n```\n[tests/test.R:25:57:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L25) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, center=m, scale=s, fastpath=FAST)\n                                                       ~^~\n```\n[tests/test.R:26:27:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L26) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(scale(A, center=TRUE, scale=s))\n                         ~^~\n```\n[tests/test.R:26:39:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L26) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(scale(A, center=TRUE, scale=s))\n                                     ~^~\n```\n[tests/test.R:27:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L27) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L$d, S$d[1:3])))\n    ^\n```\n[tests/test.R:35:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L35) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, scale=s, fastpath=FAST)\n                     ~^~\n```\n[tests/test.R:35:35:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L35) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, scale=s, fastpath=FAST)\n                                 ~^~\n```\n[tests/test.R:35:47:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L35) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, scale=s, fastpath=FAST)\n                                             ~^~\n```\n[tests/test.R:36:27:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L36) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(scale(A, center=FALSE, scale=s))\n                         ~^~\n```\n[tests/test.R:36:40:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L36) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(scale(A, center=FALSE, scale=s))\n                                      ~^~\n```\n[tests/test.R:37:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L37) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L$d, S$d[1:3])))\n    ^\n```\n[tests/test.R:42:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L42) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, center=m, fastpath=FAST)\n                     ~^~\n```\n[tests/test.R:42:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L42) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, center=m, fastpath=FAST)\n                                  ~^~\n```\n[tests/test.R:42:48:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L42) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 3, tol=1e-9, center=m, fastpath=FAST)\n                                              ~^~\n```\n[tests/test.R:43:27:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L43) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(scale(A, center=TRUE, scale=FALSE))\n                         ~^~\n```\n[tests/test.R:43:39:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L43) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(scale(A, center=TRUE, scale=FALSE))\n                                     ~^~\n```\n[tests/test.R:44:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L44) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L$d, S$d[1:3])))\n    ^\n```\n[tests/test.R:52:22:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L52) *style:* **Put spaces around all infix operators.**\n```r\n​  i <- sample(K, size=N, replace=TRUE)\n                    ~^~\n```\n[tests/test.R:52:33:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L52) *style:* **Put spaces around all infix operators.**\n```r\n​  i <- sample(K, size=N, replace=TRUE)\n                               ~^~\n```\n[tests/test.R:53:22:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L53) *style:* **Put spaces around all infix operators.**\n```r\n​  j <- sample(K, size=N, replace=TRUE)\n                    ~^~\n```\n[tests/test.R:53:33:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L53) *style:* **Put spaces around all infix operators.**\n```r\n​  j <- sample(K, size=N, replace=TRUE)\n                               ~^~\n```\n[tests/test.R:54:28:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L54) *style:* **Put spaces around all infix operators.**\n```r\n​  A <- sparseMatrix(i, j, x=rnorm(N))\n                          ~^~\n```\n[tests/test.R:55:19:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L55) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                 ~^~\n```\n[tests/test.R:55:25:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L55) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                       ~^~\n```\n[tests/test.R:55:32:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L55) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                              ~^~\n```\n[tests/test.R:55:47:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L55) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                                             ~^~\n```\n[tests/test.R:56:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L56) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(A, nu=2, nv=2)\n               ~^~\n```\n[tests/test.R:56:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L56) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(A, nu=2, nv=2)\n                     ~^~\n```\n[tests/test.R:57:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L57) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L$d, S$d[1:2])))\n    ^\n```\n[tests/test.R:64:39:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L64) *style:* **Put spaces around all infix operators.**\n```r\n​  V <- qr.Q(qr(matrix(runif(100), nrow=10)))\n                                     ~^~\n```\n[tests/test.R:66:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L66) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(partial_eigen(x, 3, fastpath=FAST)$values, c(10,8,6))))\n    ^\n```\n[tests/test.R:66:52:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L66) *style:* **Put spaces around all infix operators.**\n```r\n​  if(!isTRUE(all.equal(partial_eigen(x, 3, fastpath=FAST)$values, c(10,8,6))))\n                                                  ~^~\n```\n[tests/test.R:66:72:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L66) *style:* **Commas should always have a space after.**\n```r\n​  if(!isTRUE(all.equal(partial_eigen(x, 3, fastpath=FAST)$values, c(10,8,6))))\n                                                                       ^\n```\n[tests/test.R:66:74:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L66) *style:* **Commas should always have a space after.**\n```r\n​  if(!isTRUE(all.equal(partial_eigen(x, 3, fastpath=FAST)$values, c(10,8,6))))\n                                                                         ^\n```\n[tests/test.R:72:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L72) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 2, tol=1e-9, right_only=TRUE, fastpath=FAST)\n                     ~^~\n```\n[tests/test.R:72:40:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L72) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 2, tol=1e-9, right_only=TRUE, fastpath=FAST)\n                                      ~^~\n```\n[tests/test.R:72:55:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L72) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, 2, tol=1e-9, right_only=TRUE, fastpath=FAST)\n                                                     ~^~\n```\n[tests/test.R:73:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L73) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(A, nu=2, nv=2)\n               ~^~\n```\n[tests/test.R:73:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L73) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(A, nu=2, nv=2)\n                     ~^~\n```\n[tests/test.R:74:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L74) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L$d, S$d[1:2])))\n    ^\n```\n[tests/test.R:81:19:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L81) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                 ~^~\n```\n[tests/test.R:81:25:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L81) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                       ~^~\n```\n[tests/test.R:81:32:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L81) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                              ~^~\n```\n[tests/test.R:81:47:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L81) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                                             ~^~\n```\n[tests/test.R:82:17:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L82) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(A, nu=2, nv=2)\n               ~^~\n```\n[tests/test.R:82:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L82) *style:* **Put spaces around all infix operators.**\n```r\n​  S <- svd(A, nu=2, nv=2)\n                     ~^~\n```\n[tests/test.R:83:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L83) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L$d, S$d[1:2])))\n    ^\n```\n[tests/test.R:89:19:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L89) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FAST)\n                 ~^~\n```\n[tests/test.R:89:25:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L89) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FAST)\n                       ~^~\n```\n[tests/test.R:89:32:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L89) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FAST)\n                              ~^~\n```\n[tests/test.R:89:45:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L89) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FAST)\n                                           ~^~\n```\n[tests/test.R:89:60:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L89) *style:* **Put spaces around all infix operators.**\n```r\n​  L <- irlba(A, nu=2, nv=2, tol=1e-9, reorth=TRUE, fastpath=FAST)\n                                                          ~^~\n```\n[tests/test.R:90:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L90) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L$d, S$d[1:2])))\n    ^\n```\n[tests/test.R:96:32:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L96) *style:* **Put spaces around all infix operators.**\n```r\n​  x  <- matrix(rnorm(200), nrow=20)\n                              ~^~\n```\n[tests/test.R:97:26:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L97) *style:* **Put spaces around all infix operators.**\n```r\n​  p1 <- prcomp_irlba(x, n=3, fastpath=FAST)\n                        ~^~\n```\n[tests/test.R:97:38:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L97) *style:* **Put spaces around all infix operators.**\n```r\n​  p1 <- prcomp_irlba(x, n=3, fastpath=FAST)\n                                    ~^~\n```\n[tests/test.R:98:22:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L98) *style:* **Put spaces around all infix operators.**\n```r\n​  p2 <- prcomp(x, tol=0.7)\n                    ~^~\n```\n[tests/test.R:99:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L99) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(p1$sdev[1:2], p2$sdev[1:2])))\n    ^\n```\n[tests/test.R:107:20:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L107) *style:* **Put spaces around all infix operators.**\n```r\n​  L1 <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                  ~^~\n```\n[tests/test.R:107:26:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L107) *style:* **Put spaces around all infix operators.**\n```r\n​  L1 <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                        ~^~\n```\n[tests/test.R:107:33:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L107) *style:* **Put spaces around all infix operators.**\n```r\n​  L1 <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                               ~^~\n```\n[tests/test.R:107:48:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L107) *style:* **Put spaces around all infix operators.**\n```r\n​  L1 <- irlba(A, nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                                              ~^~\n```\n[tests/test.R:108:23:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L108) *style:* **Put spaces around all infix operators.**\n```r\n​  L2 <- irlba(t(A), nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                     ~^~\n```\n[tests/test.R:108:29:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L108) *style:* **Put spaces around all infix operators.**\n```r\n​  L2 <- irlba(t(A), nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                           ~^~\n```\n[tests/test.R:108:36:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L108) *style:* **Put spaces around all infix operators.**\n```r\n​  L2 <- irlba(t(A), nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                                  ~^~\n```\n[tests/test.R:108:51:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L108) *style:* **Put spaces around all infix operators.**\n```r\n​  L2 <- irlba(t(A), nu=2, nv=2, tol=1e-9, fastpath=FAST)\n                                                 ~^~\n```\n[tests/test.R:109:5:](https://github.com/bwlewis/irlba/blob/25b5b8f174e5e9cc9eba5b3c77e8a11a9cfcf35d/tests/test.R#L109) *style:* **Place a space before left parenthesis, except in a function call.**\n```r\n​  if(!isTRUE(all.equal(L1$d, L2$d)))\n    ^\n```"}}
{"actor":{"display_login":"lintr-bot"}}