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)] currentDevice="yamaRasPiDp9_1",Date=2016/8/1/ 14:49:33