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]
R: s <- matrix(a3,nrow=2,ncol=5)
R: s + 3
command: end ex1
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)]
[REAL* (5.0, 2.0, 7.0, 3.0, 5.0, 1.0, 9.0, 7.0, 0.0, 3.0)]
[REAL* (8.0, 5.0, 10.0, 6.0, 8.0, 4.0, 12.0, 10.0, 3.0, 6.0)]
currentDevice="yamaRasPiDp9_1",Date=2016/7/20/ 15:55:13