test のバックアップ(No.7)

FrontPage
command: R ex1
R: a1 <- c(5,2,7,3,5)
R: a2 <- c(1,9,7,0,3) 
R: a1[5 < a1]
R: a2[5 < a2] 
R: a3 <- c(a1,a2)
R: a3[5 < a3] 
command: end ex1
command: clear sendBuffer
command: run ex1
command: getOutput ex1
command: sendResults.
result:
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0)]
[REAL* (1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (7.0)]
[REAL* (9.0, 7.0)]
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0, 1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (7.0, 9.0, 7.0)]
null
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0)]
[REAL* (1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (7.0)]
[REAL* (9.0, 7.0)]
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0, 1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (7.0, 9.0, 7.0)]
null
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0)]
[REAL* (1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (7.0)]
[REAL* (9.0, 7.0)]
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0, 1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (7.0, 9.0, 7.0)]
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0)]
[REAL* (1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (7.0)]
[REAL* (9.0, 7.0)]
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0, 1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (7.0, 9.0, 7.0)]
currentDevice="yamaRasPiDp9_1",Date=2016/7/25/ 15:55:33