> #tests of arith, logic and bit operations
> #arith with integer arguments
> 1+3
[1] 4
> c(-3,1789)-20
[1]   -23  1769
> c(-7,09)*c(100,-10,1)
[1] -700  -90   -7
Warning messages:
  Length of longer object is not a multiple of the length of the shorter object in: c(-7, 9) * c(100, -10, 1)
> c(5,3,1,340)/3
[1]   1.6666667   1.0000000   0.3333333 113.3333333
> c(5,3,1,340)%/%3
[1]   1   1   0 113
> c(12,35,159,NA)^2
[1]   144  1225 25281    NA
> 7^c(0,1,-1)
[1] 1.0000000 7.0000000 0.1428571
> c(86,-33,123456)%%5
[1] 1 2 1
> #arith with real or mixed arguments
> 15+.0078
[1] 15.0078
> c(23.4,1,-50)-17
[1]   6.4 -16.0 -67.0
> 1.234e12*.02
[1] 2.468e+10
> c(15,-2.,1.e3)/7.2
[1]    2.0833333   -0.2777778  138.8888889
> c(15,-2.,1.e3)%/%7.2
[1]    2   -1  138
> 17.53%%c(5.,0.,1.5)
[1]  2.53 17.53  1.03
> c(1.2,-3,5.67)^2
[1]  1.4400  9.0000 32.1489
> c(1.2,-3,5.67)^2.001
[1]  1.440263        NA 32.204733
> #arith with double, complex arguments
> 15+.0078d0
[1] 15.0078
> c(23.4,1,-50)-(17+5i)
[1]   6.4-5i -16.0-5i -67.0-5i
> 1.23456789012345d12*.02
[1] 24691357802
> c(15,-2.,1.d3)/7.2
[1]    2.0833333   -0.2777778  138.8888889
> c(15,-2.,1.d3)%/%7.2
[1]    2   -1  138
> # logical with integer arguments
> 5<c(4,6,-5)
[1] F T F
> c(7,12345)>500
[1] F T
> 17<=c(17,-1,100,NA)
[1]  T  F  T NA
> -12>=c(500,0,-5,-12,-30)
[1] F F F T T
> c(2,3,-3,4,NA)==c(2,-3,-3,1,NA)
[1]  T  F  T  F NA
> # logical with real or mixed arguments
> 5<c(4.9,6.123,-5)
[1] F T F
> c(7.3,12345)>7.3
[1] F T
> 1.17<=c(1.17,-1.1,100.1,NA)
[1]  T  F  T NA
> -12.001>=c(500.001,0.001,-5.001,-12.001,-30)
[1] F F F T T
> c(2.,3.,-3.,4.,NA)==c(2.,-3.,-3.,1.,NA)
[1]  T  F  T  F NA
> #bit operators
> 17<=c(17,-1,100,NA) & -12>=c(500,0,-5,-12,-30)
[1]  F  F  F NA  T
Warning messages:
  Length of longer object is not a multiple of the length of the shorter object in: 17 <= c(17, -1, 100, NA) & -12 >= c(500, 0, -5, -12, -30)
> 17<=c(17,-1,100,NA) | -12>=c(500,0,-5,-12,-30)
[1] T F T T T
Warning messages:
  Length of longer object is not a multiple of the length of the shorter object in: 17 <= c(17, -1, 100, NA) | -12 >= c(500, 0, -5, -12, -30)
> 3.3u 2.7s 16r 	 /usr/s/cmd/Sqpe
