xref: /Universal-ctags/Units/parser-r.r/r-loop-counters.d/input.r (revision 82036e8fecf438241c9a130c2d06e270c7d7809b) 
1# defining an operator
2`%*%` <- function (v, p) {
3    r <- 1
4    if (p == 1) {
5        r <- v
6    } else {
7        for (i in 1:p) {
8            r <- r * v
9        }
10    }
11    r
12}
13
14print (c(2 %*% 10, 2%*%2, 2%*%3)[1:2])
15
16# j introduced as a global var.
17for (j in 1:3) {
18    print (j)
19}
20print (j)
21