| | | | |
| Offset 486, 15 lines modified | Offset 486, 15 lines modified |
| 486 | ····mm·<-·match.call() | 486 | ····mm·<-·match.call() |
| 487 | ····mm$expr·<-·NULL | 487 | ····mm$expr·<-·NULL |
| 488 | ····mm[[1]]·<-·as.name("macro") | 488 | ····mm[[1]]·<-·as.name("macro") |
| 489 | ····attr(ff,·"source")·<-·c(deparse(mm),·deparse(expr)) | 489 | ····attr(ff,·"source")·<-·c(deparse(mm),·deparse(expr)) |
| 490 | ····ff | 490 | ····ff |
| 491 | } | 491 | } |
| | |
| 492 | destdir·(character)·=·"/tmp/RtmpgwpMwy" | 492 | destdir·(character)·=·"/tmp/RtmpjMoY0G" |
| | |
| 493 | even·(closure)·=·function·(x)· | 493 | even·(closure)·=·function·(x)· |
| 494 | x%%2·==·0 | 494 | x%%2·==·0 |
| | |
| 495 | foldchange·(closure)·=·function·(num,·denom)· | 495 | foldchange·(closure)·=·function·(num,·denom)· |
| 496 | { | 496 | { |
| 497 | ····ifelse(num·>=·denom,·num/denom,·-denom/num) | 497 | ····ifelse(num·>=·denom,·num/denom,·-denom/num) |