test4 のバックアップ(No.3)

バックアップ一覧
差分を表示
現在との差分を表示
ソースを表示
test4 へ行く。

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] 
command: end ex1
command: program ex2
program: dim Table
program: dim RowLabel
program: dim ColumnLabel
program: url="http://www.yama-lab.org/r-1/index.php?test3"
program: page=ex("connector", "getpage "+url)
program: pageR=getResultPart(page)
program: parseCsv(pageR, Table, RowLabel, ColumnLabel)
program: ix=getindex(Table, RowLabel, ColumnLabel("device"),"=","a-0")
program: v=Table(ix,ColumnLabel("v"))
program: ex("service","putSendBuffer "+v)
program: ex("ex1","run")
program: out="eval v <- "+v
program: ex("ex1",out)
program: ex("ex1","eval v")
program: ex("ex1","eval mean(v)")
command: end ex2
command: run ex2
command: clear sendBuffer
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* (0.0)]
[REAL* (0.0)]
[REAL* (0.0)]
currentDevice="yamaRasPiDp9_1",Date=2016/9/5/ 14:32:58