[R/Contacts.r:131:16:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L131) *style:* **Place a space before left parenthesis, except in a function call.**
```r
             if(!identical(length(l), 1L)) {
               ^
```
[R/Contacts.r:136:16:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L136) *style:* **Place a space before left parenthesis, except in a function call.**
```r
             if(is.null(retval)) {
               ^
```
[R/Contacts.r:144:11:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L144) *style:* **Put spaces around all infix operators.**
```r
setAs(from="Contacts",
         ~^~
```
[R/Contacts.r:145:9:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L145) *style:* **Put spaces around all infix operators.**
```r
      to="data.frame",
       ~^~
```
[R/Contacts.r:146:10:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L146) *style:* **Put spaces around all infix operators.**
```r
      def=function(from)
        ~^~
```
[R/Contacts.r:147:3:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L147) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/Contacts.r:148:9:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L148) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(from@source) > 0L) {
        ^
```
[R/Contacts.r:149:35:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L149) *style:* **Put spaces around all infix operators.**
```r
          df1 <- data.frame(source=from@source,
                                 ~^~
```
[R/Contacts.r:150:40:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L150) *style:* **Put spaces around all infix operators.**
```r
                            destination=from@destination,
                                      ~^~
```
[R/Contacts.r:151:30:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L151) *style:* **Put spaces around all infix operators.**
```r
                            t=from@t,
                            ~^~
```
[R/Contacts.r:152:31:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L152) *style:* **Put spaces around all infix operators.**
```r
                            id=from@id,
                             ~^~
```
[R/Contacts.r:153:30:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L153) *style:* **Put spaces around all infix operators.**
```r
                            n=from@n,
                            ~^~
```
[R/Contacts.r:154:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L154) *style:* **Put spaces around all infix operators.**
```r
                            category=from@category,
                                   ~^~
```
[R/Contacts.r:155:45:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L155) *style:* **Put spaces around all infix operators.**
```r
                            stringsAsFactors=FALSE)
                                           ~^~
```
[R/Contacts.r:157:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L157) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(identical(from@direction, "in")) {
            ^
```
[R/Contacts.r:158:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L158) *style:* **Put spaces around all infix operators.**
```r
              df2 <- data.frame(root=from@root,
                                   ~^~
```
[R/Contacts.r:159:40:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L159) *style:* **Put spaces around all infix operators.**
```r
                                inBegin=from@tBegin,
                                      ~^~
```
[R/Contacts.r:160:38:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L160) *style:* **Put spaces around all infix operators.**
```r
                                inEnd=from@tEnd,
                                    ~^~
```
[R/Contacts.r:161:41:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L161) *style:* **Put spaces around all infix operators.**
```r
                                outBegin=as.Date(as.character(NA)),
                                       ~^~
```
[R/Contacts.r:162:39:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L162) *style:* **Put spaces around all infix operators.**
```r
                                outEnd=as.Date(as.character(NA)),
                                     ~^~
```
[R/Contacts.r:163:42:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L163) *style:* **Put spaces around all infix operators.**
```r
                                direction="in",
                                        ~^~
```
[R/Contacts.r:164:49:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L164) *style:* **Put spaces around all infix operators.**
```r
                                stringsAsFactors=FALSE)
                                               ~^~
```
[R/Contacts.r:166:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L166) *style:* **Put spaces around all infix operators.**
```r
              df2 <- data.frame(root=from@root,
                                   ~^~
```
[R/Contacts.r:167:40:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L167) *style:* **Put spaces around all infix operators.**
```r
                                inBegin=as.Date(as.character(NA)),
                                      ~^~
```
[R/Contacts.r:168:38:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L168) *style:* **Put spaces around all infix operators.**
```r
                                inEnd=as.Date(as.character(NA)),
                                    ~^~
```
[R/Contacts.r:169:41:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L169) *style:* **Put spaces around all infix operators.**
```r
                                outBegin=from@tBegin,
                                       ~^~
```
[R/Contacts.r:170:39:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L170) *style:* **Put spaces around all infix operators.**
```r
                                outEnd=from@tEnd,
                                     ~^~
```
[R/Contacts.r:171:42:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L171) *style:* **Put spaces around all infix operators.**
```r
                                direction="out",
                                        ~^~
```
[R/Contacts.r:172:49:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L172) *style:* **Put spaces around all infix operators.**
```r
                                stringsAsFactors=FALSE)
                                               ~^~
```
[R/Contacts.r:178:33:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L178) *style:* **Put spaces around all infix operators.**
```r
          return(data.frame(root=character(0),
                               ~^~
```
[R/Contacts.r:179:36:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L179) *style:* **Put spaces around all infix operators.**
```r
                            inBegin=as.Date(character(0)),
                                  ~^~
```
[R/Contacts.r:180:34:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L180) *style:* **Put spaces around all infix operators.**
```r
                            inEnd=as.Date(character(0)),
                                ~^~
```
[R/Contacts.r:181:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L181) *style:* **Put spaces around all infix operators.**
```r
                            outBegin=as.Date(character(0)),
                                   ~^~
```
[R/Contacts.r:182:35:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L182) *style:* **Put spaces around all infix operators.**
```r
                            outEnd=as.Date(character(0)),
                                 ~^~
```
[R/Contacts.r:183:38:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L183) *style:* **Put spaces around all infix operators.**
```r
                            direction=character(0),
                                    ~^~
```
[R/Contacts.r:184:35:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L184) *style:* **Put spaces around all infix operators.**
```r
                            source=character(0),
                                 ~^~
```
[R/Contacts.r:185:40:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L185) *style:* **Put spaces around all infix operators.**
```r
                            destination=character(0),
                                      ~^~
```
[R/Contacts.r:186:30:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L186) *style:* **Put spaces around all infix operators.**
```r
                            t=as.Date(character(0)),
                            ~^~
```
[R/Contacts.r:187:31:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L187) *style:* **Put spaces around all infix operators.**
```r
                            id=character(0),
                             ~^~
```
[R/Contacts.r:188:30:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L188) *style:* **Put spaces around all infix operators.**
```r
                            n=numeric(0),
                            ~^~
```
[R/Contacts.r:189:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L189) *style:* **Put spaces around all infix operators.**
```r
                            category=character(0),
                                   ~^~
```
[R/Contacts.r:190:45:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/Contacts.r#L190) *style:* **Put spaces around all infix operators.**
```r
                            stringsAsFactors=FALSE))
                                           ~^~
```
[R/ContactTrace.r:73:3:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ContactTrace.r#L73) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  {
  ^
```
[R/in-degree.r:174:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/in-degree.r#L174) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/in-degree.r:175:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/in-degree.r#L175) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(x@direction, "in")) {
            ^
```
[R/in-degree.r:179:54:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/in-degree.r#L179) *style:* **Put spaces around all infix operators.**
```r
          return(length(unique(x@source[x@destination==x@root])))
                                                    ~^~~
```
[R/in-degree.r:187:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/in-degree.r#L187) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/in-degree.r:188:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/in-degree.r#L188) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/in-degree.r:207:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/in-degree.r#L207) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/in-degree.r:208:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/in-degree.r#L208) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/in-degree.r:212:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/in-degree.r#L212) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(is.null(tEnd), is.null(days))) {
            ^
```
[R/ingoing-contact-chain.r:183:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L183) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/ingoing-contact-chain.r:184:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L184) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/ingoing-contact-chain.r:185:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L185) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(x@direction, "in")) {
            ^
```
[R/ingoing-contact-chain.r:190:42:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L190) *style:* **Commas should always have a space after.**
```r
          return(length(setdiff(x@source,x@root)))
                                         ^
```
[R/ingoing-contact-chain.r:198:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L198) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/ingoing-contact-chain.r:199:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L199) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/ingoing-contact-chain.r:218:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L218) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/ingoing-contact-chain.r:219:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L219) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/ingoing-contact-chain.r:223:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/ingoing-contact-chain.r#L223) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(is.null(tEnd), is.null(days))) {
            ^
```
[R/network-structure.r:122:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L122) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/network-structure.r:123:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L123) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(length(object@source) > 0L) {
            ^
```
[R/network-structure.r:128:39:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L128) *style:* **Put spaces around all infix operators.**
```r
                         deparse.level=0)
                                     ~^~
```
[R/network-structure.r:132:63:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L132) *style:* **Put spaces around all infix operators.**
```r
              tmp <- apply(m, 1, function(x) paste(x, collapse="\r"))
                                                             ~^~
```
[R/network-structure.r:136:43:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L136) *style:* **Put spaces around all infix operators.**
```r
              i <- tmp[seq_len(length(tmp)-1)] != tmp[seq_len(length(tmp))[-1]]
                                         ~^~
```
[R/network-structure.r:139:54:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L139) *style:* **Put spaces around all infix operators.**
```r
              m <- as.data.frame(m[c(TRUE, i), , drop=FALSE],
                                                    ~^~
```
[R/network-structure.r:140:50:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L140) *style:* **Put spaces around all infix operators.**
```r
                                 stringsAsFactors=FALSE)
                                                ~^~
```
[R/network-structure.r:146:17:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L146) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(identical(object@direction, "in")) {
                ^
```
[R/network-structure.r:147:44:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L147) *style:* **Put spaces around all infix operators.**
```r
                  result <- data.frame(root=object@root,
                                          ~^~
```
[R/network-structure.r:148:47:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L148) *style:* **Put spaces around all infix operators.**
```r
                                       inBegin=object@tBegin,
                                             ~^~
```
[R/network-structure.r:149:45:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L149) *style:* **Put spaces around all infix operators.**
```r
                                       inEnd=object@tEnd,
                                           ~^~
```
[R/network-structure.r:150:48:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L150) *style:* **Put spaces around all infix operators.**
```r
                                       outBegin=as.Date(as.character(NA)),
                                              ~^~
```
[R/network-structure.r:151:46:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L151) *style:* **Put spaces around all infix operators.**
```r
                                       outEnd=as.Date(as.character(NA)),
                                            ~^~
```
[R/network-structure.r:152:49:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L152) *style:* **Put spaces around all infix operators.**
```r
                                       direction="in",
                                               ~^~
```
[R/network-structure.r:153:56:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L153) *style:* **Put spaces around all infix operators.**
```r
                                       stringsAsFactors=FALSE)
                                                      ~^~
```
[R/network-structure.r:155:44:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L155) *style:* **Put spaces around all infix operators.**
```r
                  result <- data.frame(root=object@root,
                                          ~^~
```
[R/network-structure.r:156:47:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L156) *style:* **Put spaces around all infix operators.**
```r
                                       inBegin=as.Date(as.character(NA)),
                                             ~^~
```
[R/network-structure.r:157:45:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L157) *style:* **Put spaces around all infix operators.**
```r
                                       inEnd=as.Date(as.character(NA)),
                                           ~^~
```
[R/network-structure.r:158:48:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L158) *style:* **Put spaces around all infix operators.**
```r
                                       outBegin=object@tBegin,
                                              ~^~
```
[R/network-structure.r:159:46:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L159) *style:* **Put spaces around all infix operators.**
```r
                                       outEnd=object@tEnd,
                                            ~^~
```
[R/network-structure.r:160:49:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L160) *style:* **Put spaces around all infix operators.**
```r
                                       direction="out",
                                               ~^~
```
[R/network-structure.r:161:56:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L161) *style:* **Put spaces around all infix operators.**
```r
                                       stringsAsFactors=FALSE)
                                                      ~^~
```
[R/network-structure.r:167:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L167) *style:* **Put spaces around all infix operators.**
```r
              return(data.frame(root=character(0),
                                   ~^~
```
[R/network-structure.r:168:40:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L168) *style:* **Put spaces around all infix operators.**
```r
                                inBegin=as.Date(character(0)),
                                      ~^~
```
[R/network-structure.r:169:38:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L169) *style:* **Put spaces around all infix operators.**
```r
                                inEnd=as.Date(character(0)),
                                    ~^~
```
[R/network-structure.r:170:41:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L170) *style:* **Put spaces around all infix operators.**
```r
                                outBegin=as.Date(character(0)),
                                       ~^~
```
[R/network-structure.r:171:39:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L171) *style:* **Put spaces around all infix operators.**
```r
                                outEnd=as.Date(character(0)),
                                     ~^~
```
[R/network-structure.r:172:42:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L172) *style:* **Put spaces around all infix operators.**
```r
                                direction=character(0),
                                        ~^~
```
[R/network-structure.r:173:39:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L173) *style:* **Put spaces around all infix operators.**
```r
                                source=character(0),
                                     ~^~
```
[R/network-structure.r:174:44:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L174) *style:* **Put spaces around all infix operators.**
```r
                                destination=character(0),
                                          ~^~
```
[R/network-structure.r:175:41:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L175) *style:* **Put spaces around all infix operators.**
```r
                                distance=integer(0),
                                       ~^~
```
[R/network-structure.r:176:49:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L176) *style:* **Put spaces around all infix operators.**
```r
                                stringsAsFactors=FALSE))
                                               ~^~
```
[R/network-structure.r:184:27:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L184) *style:* **Put spaces around all infix operators.**
```r
          signature(object="ContactTrace"),
                         ~^~
```
[R/network-structure.r:186:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-structure.r#L186) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/network-summary.r:245:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L245) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/network-summary.r:246:26:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L246) *style:* **Put spaces around all infix operators.**
```r
          data.frame(root=x@root,
                        ~^~
```
[R/network-summary.r:247:29:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L247) *style:* **Put spaces around all infix operators.**
```r
                     inBegin=x@ingoingContacts@tBegin,
                           ~^~
```
[R/network-summary.r:248:27:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L248) *style:* **Put spaces around all infix operators.**
```r
                     inEnd=x@ingoingContacts@tEnd,
                         ~^~
```
[R/network-summary.r:249:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L249) *style:* **Lines should not be more than 80 characters.**
```r
                     inDays=as.integer(x@ingoingContacts@tEnd - x@ingoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:249:28:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L249) *style:* **Put spaces around all infix operators.**
```r
                     inDays=as.integer(x@ingoingContacts@tEnd - x@ingoingContacts@tBegin),
                          ~^~
```
[R/network-summary.r:250:30:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L250) *style:* **Put spaces around all infix operators.**
```r
                     outBegin=x@outgoingContacts@tBegin,
                            ~^~
```
[R/network-summary.r:251:28:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L251) *style:* **Put spaces around all infix operators.**
```r
                     outEnd=x@outgoingContacts@tEnd,
                          ~^~
```
[R/network-summary.r:252:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L252) *style:* **Lines should not be more than 80 characters.**
```r
                     outDays=as.integer(x@outgoingContacts@tEnd - x@outgoingContacts@tBegin),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:252:29:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L252) *style:* **Put spaces around all infix operators.**
```r
                     outDays=as.integer(x@outgoingContacts@tEnd - x@outgoingContacts@tBegin),
                           ~^~
```
[R/network-summary.r:253:30:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L253) *style:* **Put spaces around all infix operators.**
```r
                     inDegree=InDegree(x@ingoingContacts),
                            ~^~
```
[R/network-summary.r:254:31:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L254) *style:* **Put spaces around all infix operators.**
```r
                     outDegree=OutDegree(x@outgoingContacts),
                             ~^~
```
[R/network-summary.r:255:41:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L255) *style:* **Put spaces around all infix operators.**
```r
                     ingoingContactChain=IngoingContactChain(x@ingoingContacts),
                                       ~^~
```
[R/network-summary.r:256:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L256) *style:* **Lines should not be more than 80 characters.**
```r
                     outgoingContactChain=OutgoingContactChain(x@outgoingContacts))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:256:42:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L256) *style:* **Put spaces around all infix operators.**
```r
                     outgoingContactChain=OutgoingContactChain(x@outgoingContacts))
                                        ~^~
```
[R/network-summary.r:262:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L262) *style:* **functions should have cyclomatic complexity of less than 15, this has 38.**
```r
setMethod("NetworkSummary",
^
```
[R/network-summary.r:272:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L272) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/network-summary.r:276:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L276) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!all(c("source", "destination", "t") %in% names(x))) {
            ^
```
[R/network-summary.r:280:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L280) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(x$source), is.integer(x$source))) {
            ^
```
[R/network-summary.r:282:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L282) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(x$source)) {
                   ^
```
[R/network-summary.r:286:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L286) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(x$destination), is.integer(x$destination))) {
            ^
```
[R/network-summary.r:288:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L288) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(x$destination)) {
                   ^
```
[R/network-summary.r:292:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L292) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(x$t), is.factor(x$t))) {
            ^
```
[R/network-summary.r:296:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L296) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(x$t), "Date")) {
            ^
```
[R/network-summary.r:300:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L300) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(x$t))) {
            ^
```
[R/network-summary.r:309:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L309) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/network-summary.r:313:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L313) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.factor(root), is.integer(root))) {
            ^
```
[R/network-summary.r:315:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L315) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(is.numeric(root)) {
                   ^
```
[R/network-summary.r:317:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L317) *style:* **Lines should not be more than 80 characters.**
```r
              ## so test that root is a integer the same way as binom.test test x
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:319:17:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L319) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(any(max(abs(root - rootr) > 1e-07))) {
                ^
```
[R/network-summary.r:324:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L324) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(!is.character(root)) {
                   ^
```
[R/network-summary.r:325:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L325) *style:* **Only use double-quotes.**
```r
              stop('invalid class of root')
                   ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:330:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L330) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(!is.null(tEnd), !is.null(days))) {
            ^
```
[R/network-summary.r:333:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L333) *style:* **Lines should not be more than 80 characters.**
```r
              if(!all(is.null(inBegin), is.null(inEnd), is.null(outBegin), is.null(outEnd))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:333:17:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L333) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!all(is.null(inBegin), is.null(inEnd), is.null(outBegin), is.null(outEnd))) {
                ^
```
[R/network-summary.r:334:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L334) *style:* **Lines should not be more than 80 characters.**
```r
                  stop("Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to NetworkSummary")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:337:17:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L337) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(any(is.character(tEnd), is.factor(tEnd))) {
                ^
```
[R/network-summary.r:341:17:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L341) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!identical(class(tEnd), "Date")) {
                ^
```
[R/network-summary.r:345:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L345) *style:* **Lines should not be more than 80 characters.**
```r
              ## Test that days is a nonnegative integer the same way as binom.test test x
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:347:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L347) *style:* **Lines should not be more than 80 characters.**
```r
              if (any(is.na(days) | (days < 0)) || max(abs(days - daysr)) > 1e-07) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:362:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L362) *style:* **Put spaces around all infix operators.**
```r
              root <- rep(root, each=n.tEnd*n.days, length.out=n)
                                   ~^~
```
[R/network-summary.r:362:44:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L362) *style:* **Put spaces around all infix operators.**
```r
              root <- rep(root, each=n.tEnd*n.days, length.out=n)
                                          ~^~
```
[R/network-summary.r:362:63:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L362) *style:* **Put spaces around all infix operators.**
```r
              root <- rep(root, each=n.tEnd*n.days, length.out=n)
                                                             ~^~
```
[R/network-summary.r:363:38:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L363) *style:* **Put spaces around all infix operators.**
```r
              inEnd <- rep(tEnd, each=n.days, length.out=n)
                                    ~^~
```
[R/network-summary.r:363:57:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L363) *style:* **Put spaces around all infix operators.**
```r
              inEnd <- rep(tEnd, each=n.days, length.out=n)
                                                       ~^~
```
[R/network-summary.r:364:48:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L364) *style:* **Put spaces around all infix operators.**
```r
              inBegin <- inEnd - rep(days, each=1, length.out=n)
                                              ~^~
```
[R/network-summary.r:364:62:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L364) *style:* **Put spaces around all infix operators.**
```r
              inBegin <- inEnd - rep(days, each=1, length.out=n)
                                                            ~^~
```
[R/network-summary.r:367:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L367) *style:* **Lines should not be more than 80 characters.**
```r
          } else if(all(!is.null(inBegin), !is.null(inEnd), !is.null(outBegin), !is.null(outEnd))) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:367:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L367) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          } else if(all(!is.null(inBegin), !is.null(inEnd), !is.null(outBegin), !is.null(outEnd))) {
                   ^
```
[R/network-summary.r:371:17:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L371) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!all(is.null(tEnd), is.null(days))) {
                ^
```
[R/network-summary.r:372:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L372) *style:* **Lines should not be more than 80 characters.**
```r
                  stop("Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to NetworkSummary")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:375:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L375) *style:* **Lines should not be more than 80 characters.**
```r
              stop("Use either tEnd and days or inBegin, inEnd, outBegin and outEnd in call to NetworkSummary")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:381:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L381) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(inBegin), is.factor(inBegin))) {
            ^
```
[R/network-summary.r:385:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L385) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(inBegin), "Date")) {
            ^
```
[R/network-summary.r:389:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L389) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(inBegin))) {
            ^
```
[R/network-summary.r:396:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L396) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(inEnd), is.factor(inEnd))) {
            ^
```
[R/network-summary.r:400:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L400) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(inEnd), "Date")) {
            ^
```
[R/network-summary.r:404:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L404) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(inEnd))) {
            ^
```
[R/network-summary.r:411:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L411) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(outBegin), is.factor(outBegin))) {
            ^
```
[R/network-summary.r:415:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L415) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(outBegin), "Date")) {
            ^
```
[R/network-summary.r:419:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L419) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(outBegin))) {
            ^
```
[R/network-summary.r:426:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L426) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.character(outEnd), is.factor(outEnd))) {
            ^
```
[R/network-summary.r:430:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L430) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(class(outEnd), "Date")) {
            ^
```
[R/network-summary.r:434:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L434) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(is.na(outEnd))) {
            ^
```
[R/network-summary.r:441:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L441) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(inEnd < inBegin)) {
            ^
```
[R/network-summary.r:445:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L445) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(any(outEnd < outBegin)) {
            ^
```
[R/network-summary.r:452:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L452) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(length(unique(c(length(root),
            ^
```
[R/network-summary.r:458:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L458) *style:* **Lines should not be more than 80 characters.**
```r
              stop("root, inBegin, inEnd, outBegin and outEnd must have equal length")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:470:24:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L470) *style:* **Put spaces around all infix operators.**
```r
          contact_chain<- .Call("networkSummary",
                      ~^
```
[R/network-summary.r:471:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L471) *style:* **Lines should not be more than 80 characters.**
```r
                                as.integer(factor(x$source, levels=levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:471:67:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L471) *style:* **Put spaces around all infix operators.**
```r
                                as.integer(factor(x$source, levels=levels(nodes))),
                                                                 ~^~
```
[R/network-summary.r:472:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L472) *style:* **Lines should not be more than 80 characters.**
```r
                                as.integer(factor(x$destination, levels=levels(nodes))),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:472:72:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L472) *style:* **Put spaces around all infix operators.**
```r
                                as.integer(factor(x$destination, levels=levels(nodes))),
                                                                      ~^~
```
[R/network-summary.r:474:63:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L474) *style:* **Put spaces around all infix operators.**
```r
                                as.integer(factor(root, levels=levels(nodes))),
                                                             ~^~
```
[R/network-summary.r:482:33:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L482) *style:* **Put spaces around all infix operators.**
```r
          return(data.frame(root=root,
                               ~^~
```
[R/network-summary.r:483:36:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L483) *style:* **Put spaces around all infix operators.**
```r
                            inBegin=inBegin,
                                  ~^~
```
[R/network-summary.r:484:34:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L484) *style:* **Put spaces around all infix operators.**
```r
                            inEnd=inEnd,
                                ~^~
```
[R/network-summary.r:485:35:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L485) *style:* **Put spaces around all infix operators.**
```r
                            inDays=as.integer(inEnd - inBegin),
                                 ~^~
```
[R/network-summary.r:486:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L486) *style:* **Put spaces around all infix operators.**
```r
                            outBegin=outBegin,
                                   ~^~
```
[R/network-summary.r:487:35:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L487) *style:* **Put spaces around all infix operators.**
```r
                            outEnd=outEnd,
                                 ~^~
```
[R/network-summary.r:488:36:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L488) *style:* **Put spaces around all infix operators.**
```r
                            outDays=as.integer(outEnd - outBegin),
                                  ~^~
```
[R/network-summary.r:489:37:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L489) *style:* **Put spaces around all infix operators.**
```r
                            inDegree=contact_chain[["inDegree"]],
                                   ~^~
```
[R/network-summary.r:490:38:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L490) *style:* **Put spaces around all infix operators.**
```r
                            outDegree=contact_chain[["outDegree"]],
                                    ~^~
```
[R/network-summary.r:491:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L491) *style:* **Lines should not be more than 80 characters.**
```r
                            ingoingContactChain=contact_chain[["ingoingContactChain"]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:491:48:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L491) *style:* **Put spaces around all infix operators.**
```r
                            ingoingContactChain=contact_chain[["ingoingContactChain"]],
                                              ~^~
```
[R/network-summary.r:492:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L492) *style:* **Lines should not be more than 80 characters.**
```r
                            outgoingContactChain=contact_chain[["outgoingContactChain"]]))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/network-summary.r:492:49:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/network-summary.r#L492) *style:* **Put spaces around all infix operators.**
```r
                            outgoingContactChain=contact_chain[["outgoingContactChain"]]))
                                               ~^~
```
[R/out-degree.r:119:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L119) *style:* **Lines should not be more than 80 characters.**
```r
##'     Get the OutDegree for a data.frame with movements, see details and examples.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/out-degree.r:176:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L176) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/out-degree.r:177:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L177) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/out-degree.r:178:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L178) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(x@direction, "out")) {
            ^
```
[R/out-degree.r:182:54:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L182) *style:* **Put spaces around all infix operators.**
```r
          return(length(unique(x@destination[x@source==x@root])))
                                                    ~^~~
```
[R/out-degree.r:190:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L190) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/out-degree.r:191:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L191) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/out-degree.r:210:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L210) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/out-degree.r:211:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L211) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/out-degree.r:215:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/out-degree.r#L215) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(is.null(tEnd), is.null(days))) {
            ^
```
[R/outgoing-contact-chain.r:67:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L67) *style:* **Lines should not be more than 80 characters.**
```r
##'     The \code{\link{OutgoingContactChain}} of the root within the time-interval
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/outgoing-contact-chain.r:77:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L77) *style:* **Lines should not be more than 80 characters.**
```r
##'     Get the OutgoingContactChain for a data.frame with movements, see examples.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/outgoing-contact-chain.r:135:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L135) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/outgoing-contact-chain.r:136:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L136) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/outgoing-contact-chain.r:137:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L137) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!identical(x@direction, "out")) {
            ^
```
[R/outgoing-contact-chain.r:138:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L138) *style:* **Lines should not be more than 80 characters.**
```r
              stop("Unable to determine OutgoingContactChain for ingoing contacts")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/outgoing-contact-chain.r:141:47:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L141) *style:* **Commas should always have a space after.**
```r
          return(length(setdiff(x@destination,x@root)))
                                              ^
```
[R/outgoing-contact-chain.r:149:20:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L149) *style:* **Remove spaces before the left parenthesis in a function call.**
```r
          function (x)
                   ^
```
[R/outgoing-contact-chain.r:150:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L150) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/outgoing-contact-chain.r:169:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L169) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/outgoing-contact-chain.r:170:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L170) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(missing(root)) {
            ^
```
[R/outgoing-contact-chain.r:174:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/outgoing-contact-chain.r#L174) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(all(is.null(tEnd), is.null(days))) {
            ^
```
[R/plot.r:73:7:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L73) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
      {
      ^
```
[R/plot.r:81:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L81) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!is.null(tree$ingoing)) {
            ^
```
[R/plot.r:82:70:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L82) *style:* **Put spaces around all infix operators.**
```r
              tree$ingoing <- position_tree(tree$ingoing, orientation="South")
                                                                    ~^~
```
[R/plot.r:83:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L83) *style:* **Lines should not be more than 80 characters.**
```r
              tree$ingoing$bg <- ifelse(tree$ingoing$level > 0, "white", "black")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plot.r:94:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L94) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!is.null(tree$outgoing)) {
            ^
```
[R/plot.r:96:1:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L96) *style:* **Lines should not be more than 80 characters.**
```r
              tree$outgoing$bg <- ifelse(tree$outgoing$level > 0, "gray", "black")
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/plot.r:105:17:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L105) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(is.null(vertices)) {
                ^
```
[R/plot.r:108:64:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L108) *style:* **Commas should always have a space after.**
```r
                  vertices <- rbind(vertices, tree$outgoing[-1,])
                                                               ^
```
[R/plot.r:112:13:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L112) *style:* **Place a space before left parenthesis, except in a function call.**
```r
          if(!is.null(vertices)) {
            ^
```
[R/plot.r:116:17:](https://github.com/stewid/EpiContactTrace/blob/6453f06ac8cb497bfe435e6b31311b5a8bf27dc9/R/plot.r#L116) *style:* **Place a space before left parenthesis, except in a function call.**
```r
              if(!is.null(edges_in)) {
                ^
```


Переворачивание строки по словам/SwitchAnySymbol.cpp

Error in this string "отсутствует оператор "=", соответствующий этим"


شرمنده استاد توی ایمیل قبلیم یادم رفت فایل رو الحاق کنم

On 2 Nov 2019 10:05, Faramarz Qoshchi <faramarzqoshchi@hotmail.com> wrote:
سلام استاد وقت بخیر
امروز ساعت ۹ تا ۱۰ اومد دانشگاه تشرف نداشتین، اگه امکانش باشه یک تایم هفتگی ثابت مشخص کنید برام تا روی پروژه کار کنیم ممنون میشیم، من برنامه دانشگاهم رو الحاق کردم.(به علاوه هر روز ۲ ظهر به بعد شرکت هستم).

On 1 Nov 2019 19:18, rojiar <notifications@github.com> wrote:

I saw and read your codes

—
You are receiving this because you authored the thread.
Reply to this email directly, view it on GitHub<https://github.com/faramarzQ/final-project/commit/feeb06df94bb546f235ade264a42cd954e30b715?email_source=notifications&email_token=AGKXH6OP4VHV3SFOEUPXAA3QRRFVFA5CNFSM4JH4RGTKYY3PNVWWK3TUL52HS4DFVVBW63LNNF2EG33NNVSW45FKMNXW23LFNZ2F62LEZYBCDPVG#commitcomment-35765926>, or unsubscribe<https://github.com/notifications/unsubscribe-auth/AGKXH6MGSVSGBPY6YP6TWQ3QRRFVFANCNFSM4JH4RGTA>.